函数如下:
Function RemoveHTML(strText)
Dim RegExs
Set RegExs = New RegExp
RegExs.Pattern = "<[^>]*>"
RegExs.Global = True
RemoveHTML = RegExs.Replace(strText, "")
End Function
使用方法:
直接RemoveHTML(内容)
这样就屏蔽了所有的html标签
函数如下:
Function RemoveHTML(strText)
Dim RegExs
Set RegExs = New RegExp
RegExs.Pattern = "<[^>]*>"
RegExs.Global = True
RemoveHTML = RegExs.Replace(strText, "")
End Function
使用方法:
直接RemoveHTML(内容)
这样就屏蔽了所有的html标签