当前位置: 编程技术>其它
asp只采集网站可见文本的正则
来源: 互联网 发布时间:2014-10-14
本文导语: 我写的是这样: Function ClearHTMLCode(originCode) Dim reg set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = "(" originCode= reg.Replace(originCode, "") ClearHTMLCode = originCode End Function 不过有一些过滤不了!而且速度太慢!
我写的是这样:
Function ClearHTMLCode(originCode)
Dim reg
set reg = new RegExp
reg.IgnoreCase = True
reg.Global = True
reg.Pattern = "("
originCode= reg.Replace(originCode, "")
ClearHTMLCode = originCode
End Function
不过有一些过滤不了!而且速度太慢!