怎么过滤所有HTML代码和CSS

来源:爱站网时间:2021-12-10编辑:网友分享
怎么过滤所有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 = "

以上内容就是爱站技术频道小编为大家分享的怎么过滤所有HTML代码和CSS,看完以上分享之后,大家应该都知道怎么过滤所有HTML代码和CSS了吧。

上一篇:自己学正则时做的笔记,其实正则也不难哦,现在分享给大家

下一篇:正则表达式学习笔记

您可能感兴趣的文章

相关阅读

热门软件源码

最新软件源码下载