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)文章

js正則表達(dá)式之search方法講解
返回與正則表達(dá)式查找內(nèi)容匹配的第一個(gè)子字符串的位置
2012-10-10
利用正則表達(dá)式(只錄入中文，數(shù)字，英文)
利用正則表達(dá)式(只錄入中文，數(shù)字，英文)限制的代碼，好多情況下都需要。
2009-08-08
正則表達(dá)式高級(jí)技巧及實(shí)例詳解笨活兒
正則表達(dá)式(Regular Expression, abbr. regex) 功能強(qiáng)大，能夠用于在一大串字符里找到所需信息。
2009-11-11
java正則表達(dá)式四種常用的處理方式（匹配、分割、替代、獲?。?/a>
這篇文章主要為大家詳細(xì)介紹了java正則表達(dá)式四種常用的處理方式，包括匹配、分割、替代、獲取四種，感興趣的小伙伴們可以參考一下
2016-06-06

收集整理項(xiàng)目中常用到的正則表達(dá)式
本篇文章給大家分享的常用正則表達(dá)式，都是小編在日常的項(xiàng)目過(guò)程中收集整理的，在此分享給大家，供大家參考
2015-10-10
c# 正則表達(dá)式對(duì)網(wǎng)頁(yè)進(jìn)行有效內(nèi)容抽取
本問(wèn)主要總結(jié)了用正則表達(dá)式對(duì)網(wǎng)頁(yè)進(jìn)行有效內(nèi)容提取的具體實(shí)現(xiàn)方法,并給出了c#代碼
2009-03-03
正則表達(dá)式匹配，替換，查找
本文由腳本之家小編給大家分享JS正則表達(dá)式匹配，替換，查找，感興趣的朋友一起學(xué)習(xí)學(xué)習(xí)吧
2015-09-09
PHP 正則的使用基礎(chǔ)入門
正則表達(dá)式，作為一種快速、便捷的處理字符串的工具，在各種編程語(yǔ)言中都有著廣泛的用途，通過(guò)在PHP中的一些使用，下面記錄一下關(guān)于PHP中正則使用的一些技巧。
2009-10-10
正則表達(dá)式特殊字符應(yīng)用分析[簡(jiǎn)單詳細(xì)入門必看]
網(wǎng)上的東西，都沒(méi)有這個(gè)詳細(xì)，對(duì)于想入手正則表達(dá)式高級(jí)應(yīng)用的朋友，也是個(gè)不錯(cuò)的資料參考。
2008-11-11
ubb js
ubb js...
2006-06-06