asp只采集网站可见文本的正则

欣姐大奶太澎湃

2016-02-19 11:03

人生本是一个不断学习的过程，在这个过程中，图老师就是你们的好帮手，下面分享的asp只采集网站可见文本的正则懂设计的网友们快点来了解吧！

我写的是这样:
Function ClearHTMLCode(originCode)
Dim reg
set reg = new RegExp
reg.IgnoreCase = True
reg.Global = True
reg.Pattern = "(s+cript(.+?)/s+cript)"
originCode= reg.Replace(originCode, "")
reg.Pattern = "(s+tyle(.+?)/s+tyle)"
originCode= reg.Replace(originCode, "")
reg.Pattern = "[^]*"
originCode= reg.Replace(originCode, "")
ClearHTMLCode = originCode
End Function

不过有一些过滤不了！而且速度太慢！

展开更多（50%）