移除HTML标签的正则表达式

复制代码代码如下:
" 模块名: 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