移除HTML标签的正则表达式
时间：2021-05-17 08:39:41|栏目：|点击： 次
复制代码 代码如下:
' 模块名: 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
上一篇：Docker中iptables规则在iptables重启后丢失的完整过程
栏 目：
下一篇：docker 容器上编译 go 程序提示找不到文件问题
本文标题：移除HTML标签的正则表达式
本文地址：http://www.codeinn.net/misctech/122941.html
