過濾所有HTML代碼和CSS,JS

複製代碼 代碼如下:Function RemoveHTML(strHTML) '過濾HTML代碼的函數包括過濾CSS和JS

StrHtml = Replace(StrHtml,vbCrLf,"")

StrHtml = Replace(StrHtml,Chr(13)&Chr(10),"")

StrHtml = Replace(StrHtml,Chr(13),"")

StrHtml = Replace(StrHtml,Chr(10),"")

StrHtml = Replace(StrHtml," ","")

StrHtml = Replace(StrHtml," ","")

Dim objRegExp, Match, Matches

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

'取閉合的<>

objRegExp.Pattern = "<style(.+?)/style>"

'進行匹配

Set Matches = objRegExp.Execute(strHTML)

' 遍曆匹配集合，並替換掉匹配的項目

For Each Match in Matches

strHtml=Replace(strHTML,Match.Value,"")

Next

'取閉合的<>

objRegExp.Pattern = "<script(.+?)/script>"

'進行匹配

Set Matches = objRegExp.Execute(strHTML)

' 遍曆匹配集合，並替換掉匹配的項目

For Each Match in Matches

strHtml=Replace(strHTML,Match.Value,"")

Next

'取閉合的<>

objRegExp.Pattern = "<.+?>"

'進行匹配

Set Matches = objRegExp.Execute(strHTML)

' 遍曆匹配集合，並替換掉匹配的項目

For Each Match in Matches

strHtml=Replace(strHTML,Match.Value,"")

Next

RemoveHTML=strHTML

Set objRegExp = Nothing

End Function