江山十日雪，雪深江雾浓。开时刻的牵绊，邀阳光作伴，约清风同行，收拾起行囊，咱们去亲近草原吧，去亲近辽阔无边的草原。
' 模块名: 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
以上就是移除HTML标签的正则表达式。幸福只有一种，不幸各有各的不幸；简单只有一种，复杂各有各的复杂；放下只有一种，记得各有各的记得；宽容只有一种，生气各有各的生气；知足只有一种，不满各有各的不满；信任只有一种，怀疑各有各的怀疑；适合只有一种，不适各有各的不适；成功只有一种，失败各有各的失败；转播都是好人，不转各有各的原因。更多关于移除HTML标签的正则表达式请关注haodaima.com其它相关文章！