28,376
社区成员




Function RemoveHTMLTag(fString)
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Pattern = "<(.[^>]*br)>"
fString = re.Replace(fString, "")
fString=replace(fString," ","")
fString=replace(fString," ","")
Set re = Nothing
RemoveHTMLTag = fString
End Function