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