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