当前位置：主页 > 查看内容

移除HTML标签的正则表达式

发布时间：2021-07-04 00:00| 有 位朋友查看

简介：复制代码 代码如下: ' 模块名: RemoveHTML ' 功 能 : 移除HTML标签 ' 输入值: HTML代码 ' 返回值: 字符串 Function RemoveHTML(ByVal strHTML) Dim objRegExp, Match, Matches set objRegExp = New RegExp Dim str: str = strHTML objRegExp.IgnoreCase = Tr……
复制代码 代码如下:

' 模块名: RemoveHTML
' 功 能 : 移除HTML标签
' 输入值: HTML代码
' 返回值: 字符串
Function RemoveHTML(ByVal strHTML)
Dim objRegExp, Match, Matches
set objRegExp = New RegExp
Dim str: str = strHTML
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
str = objRegExp.Replace(str, "")
Set objRegExp = Nothing
RemoveHTML = str
End Function

原文链接：https://m.jb51.net/article/20884.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：匹配价格的正则表达式 下一篇：没有了

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐