最新国产好看的视频,伊人天堂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)文章

最新評論

张掖市| 鹿邑县| 丹江口市| 常德市| 盐城市| 海晏县| 依安县| 南部县| 灵丘县| 环江| 穆棱市| 蓬莱市| 时尚| 贵定县| 乌苏市| 大城县| 泾川县| 白水县| 蒲城县| 全椒县| 永康市| 南陵县| 清徐县| 宾川县| 新田县| 牙克石市| 汝州市| 赤峰市| 罗江县| 河津市| 忻城县| 武平县| 磴口县| 增城市| 林芝县| 南靖县| 玉田县| 乌拉特中旗| 当雄县| 义乌市| 资阳市|