移除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