实现代码如下:

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

以上就是【过滤所有HTML代码和CSS,javascript】的全部内容了,欢迎留言评论进行交流!

赞(0) 踩(0)

与本文相关的软件

发表我的评论

最新评论

  1. 暂无评论