手机
当前位置:查字典教程网 >编程开发 >正则表达式 >过滤所有HTML代码和CSS,JS
过滤所有HTML代码和CSS,JS
摘要:复制代码代码如下:FunctionRemoveHTML(strHTML)'过滤HTML代码的函数包括过滤CSS和JSStrHtml=Repl...

复制代码 代码如下:

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

【过滤所有HTML代码和CSS,JS】相关文章:

Java正则表达式过滤出字母、数字和中文

JavaScript 正则表达式验证函数代码

ASP 正则函数替换分页后的参数

自动识别HTML的标记 替换连接

通过Java正则表达式去掉SQL代码中回车换行和多余空格

asp 正则 过滤重复字符串的代码

js 常用正则表达式表单验证代码

55分钟学会正则表达式

js 正则表达式学习笔记之匹配字符串

python实现统计汉字/英文单词数的正则表达式

精品推荐
分类导航