鸿 网 互 联 www.68idc.cn

过滤所有HTML代码和CSS,JS

来源:互联网 作者:佚名 时间:2012-10-15 15:59
过滤所有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

网友评论
<