Function HTMLfilter(fString)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "<[^>]+>|</[^>]+>"
regEx.Global = true
fString = regEx.Replace(fString,"")
HTMLfilter = fString End Function
转自csdn
Function HTMLfilter(fString)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "<[^>]+>|</[^>]+>"
regEx.Global = true
fString = regEx.Replace(fString,"")
HTMLfilter = fString End Function
转自csdn
相关文章: