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

正則表達(dá)式輕松消除HTML代碼

 更新時(shí)間:2009年02月27日 20:46:18   作者:  
正則表達(dá)式再次讓我震撼,寥寥數(shù)行代碼就可以完成普通代碼不易實(shí)現(xiàn)的功能,至少是實(shí)現(xiàn)起來比較復(fù)雜的功能。
一、清楚內(nèi)容中的Javsscript 代碼
復(fù)制代碼 代碼如下:

Function ClearJSCode(originCode)
Dim reg
set reg = New RegExp
reg.Pattern = "<SCRIPT[^<]*</SCRIPT>"
reg.IgnoreCase = True
reg.Global = True
clearJSCode = reg.Replace(originCode, "")
End Function

二、清除內(nèi)容中的HTML代碼 
復(fù)制代碼 代碼如下:

Function ClearHTMLCode(originCode)
Dim reg
set reg = new RegExp
reg.Pattern = "<[^>]*>"
reg.IgnoreCase = True
reg.Global = True
ClearHTMLCode = reg.Replace(originCode, "")
End Function

現(xiàn)在好多網(wǎng)站的內(nèi)容都是使用采集程序生成的,使用上邊的代碼就可以輕松的將內(nèi)容中的HTML和JS代碼清除掉。

相關(guān)文章

最新評(píng)論

石门县| 德化县| 磐安县| 灵宝市| 福贡县| 南靖县| 滦南县| 阿克陶县| 临夏县| 福州市| 汾西县| 云浮市| 商丘市| 宿州市| 霍城县| 弥渡县| 汝城县| 金乡县| 舟曲县| 长沙市| 灵川县| 开鲁县| 洛隆县| 杨浦区| 文昌市| 宁夏| 湾仔区| 淮阳县| 阿拉善右旗| 长宁区| 宁明县| 西畴县| 长春市| 泽州县| 邢台县| 鄂托克旗| 浪卡子县| 邹城市| 济阳县| 中阳县| 灌阳县|