最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

asp只采集網(wǎng)站可見文本的正則

 更新時間: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

不過有一些過濾不了!而且速度太慢!

相關(guān)文章

最新評論

黑水县| 山丹县| 科技| 临潭县| 乡城县| 屏南县| 砀山县| 乌恰县| 凭祥市| 库伦旗| 扎赉特旗| 曲周县| 叙永县| 紫金县| 达日县| 内丘县| 托克逊县| 仪征市| 靖宇县| 诸城市| 阿勒泰市| 峨边| 蚌埠市| 内乡县| 荣昌县| 海阳市| 淅川县| 钦州市| 无棣县| 孝昌县| 娱乐| 皮山县| 曲阳县| 仙桃市| 历史| 新竹市| 饶河县| 梁山县| 成武县| 龙江县| 和硕县|