日期:2011-12-03  浏览次数:20854 次

'*********************************************************
'原型:   RemoveHTMLTag(ObjReg,fString)
'创建者:  Newskyline
'创建时间: 13:23 2005-6-25
'功能描述: 除去HTML标记
'输入参数: fString : 待处理的字符串
'返回值:  String : 已处理的字符串
'*********************************************************
Function RemoveHTMLTag(ObjReg,fString)
 ObjReg.Pattern = "<[^>]+>|</[^>]+>"
 fString = ObjReg.Replace(fString,"")
 RemoveHTMLTag = fString
End Function