asp只采集网站可见文本的正则
更新时间:2008年08月15日 13:12:39 作者:
它可以过虑Js 可以过滤 CSS 过滤HTML标识,只采集页面的可见文本。
我写的是这样:
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
不过有一些过滤不了!而且速度太慢!
相关文章
Javascript 字符串字节长度计算函数代码与效率分析(for VS 正则)
下面的函数都是用于计算字符串长度,英文算一个,中文算两个。效果一样,效率却未必一样,大家可以自行选择下。2009-12-12
最新评论