首页 相关文章 过滤所有HTML代码和CSS,JS

过滤所有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...[ 查看全文 ]

2016-02-19 标签:

过滤所有HTML代码和CSS,JS的相关文章

手机页面
收藏网站 回到头部