手机
当前位置:查字典教程网 >编程开发 >正则表达式 >过滤所有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】相关文章:

将 html 转成 ubb代码的小脚本

正则表达式单行、多行模式简介(使用说明)

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

PHP preg_match的匹配多国语言的技巧

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

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

完美替换html代码

正则表达式提取网址、标题、图片等一例(.Net Asp Javascript/Js)的实现

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

校验普通电话、传真号码的正则表达式(可以+开头,除数字外,可含有-)

精品推荐
分类导航