复制代码 代码如下:
' 模块名: 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
您可能感兴趣的文章:- php过滤HTML标签、属性等正则表达式汇总
- asp自动补全html标签自动闭合(正则表达式)
- asp.net正则表达式删除指定的HTML标签的代码
- Java/Js下使用正则表达式匹配嵌套Html标签
- 用正则表达式格式化html标签的代码
- 请教一个正则表达式,匹配所有Html标签外部的指定字符串
- 使用正则表达式去除所有html标签只保留文字