28,403
社区成员
发帖
与我相关
我的任务
分享
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