使用正则,完全去除html标记部分.
'----------------------------------------------------------------'
'功能描述： 用正则除去HTML标记
'输入参数： fString : 待处理的字符串
'返回值： String : 已处理的字符串
Function RemoveHTMLTag(ObjReg,fString)
ObjReg.Pattern = "<[^>]+>|</[^>]+>"
fString = ObjReg.Replace(fString,"")
RemoveHTMLTag = fString
End Function
'----------------------------------------------------------------'