去html代码的正则 推荐

复制代码 代码如下:
'==================================================
'函数名：ScriptHtml
'作用：过滤html标记
'参数：ConStr------要过滤的字符串
'==================================================
FunctionScriptHtml(ByvalConStr,TagName,FType)
DimRe
SetRe=newRegExp
Re.IgnoreCase=true
Re.Global=True
SelectCaseFType
Case1
Re.Pattern="<"&TagName&"([^>])*>"
ConStr=Re.Replace(ConStr,"")
Case2
Re.Pattern="<"&TagName&"([^>])*>.*?])*>"
ConStr=Re.Replace(ConStr,"")
Case3
Re.Pattern="<"&TagName&"([^>])*>"
ConStr=Re.Replace(ConStr,"")
Re.Pattern="])*>"
ConStr=Re.Replace(ConStr,"")
EndSelect
ScriptHtml=ConStr
SetRe=Nothing
EndFunction

1content=ScriptHtml(content,"br",1)‘去掉所有

HTML标记

2content=ScriptHtml(content,"a",2)‘去掉所有和两个标记之间的内容
如www.126.com把这一段全去了

3content=ScriptHtml(content,"td",3)‘去掉和HTML标记
如士大夫撒把去掉了但士大夫撒还保留

依次类推把其他HTML标记都过滤了divobjdect什么的自己看吧