复制代码 代码如下:

' 模块名: 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