加载中…
个人资料
代码学堂
代码学堂
  • 博客等级:
  • 博客积分:0
  • 博客访问:6,315
  • 关注人气:1
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
正文 字体大小:

利用正则过滤所有HTML、CSS和JS代码

(2017-07-09 13:27:48)
标签:

正则

正则表达式

html

分类: 我要学代码

代码如下:


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和JS代码

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有