复制代码 代码如下:

FunctionRemoveHTML(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,"","")

DimobjRegExp,Match,Matches

SetobjRegExp=NewRegexp

objRegExp.IgnoreCase=True

objRegExp.Global=True

'取闭合的<>

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

'进行匹配

SetMatches=objRegExp.Execute(strHTML)

'遍历匹配集合，并替换掉匹配的项目

ForEachMatchinMatches

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

Next

'取闭合的<>

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

'进行匹配

SetMatches=objRegExp.Execute(strHTML)

'遍历匹配集合，并替换掉匹配的项目

ForEachMatchinMatches

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

Next

'取闭合的<>

objRegExp.Pattern="<.+?>"

'进行匹配

SetMatches=objRegExp.Execute(strHTML)

'遍历匹配集合，并替换掉匹配的项目

ForEachMatchinMatches

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

Next

RemoveHTML=strHTML

SetobjRegExp=Nothing

EndFunction