当前位置: 编程技术>其它
移除HTML标签的正则表达式
来源: 互联网 发布时间:2014-10-15
本文导语: 代码如下: ' 模块名: 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.Patter...
代码如下:
' 模块名: 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