正则html,去html代码的正则 推荐

'==================================================

'函数名：ScriptHtml

'作  用：过滤html标记

'参  数：ConStr ------ 要过滤的字符串

'==================================================

Function ScriptHtml(Byval ConStr,TagName,FType)

Dim Re

Set Re=new RegExp

Re.IgnoreCase =true

Re.Global=True

Select Case FType

Case 1

Re.Pattern="])*>"

ConStr=Re.Replace(ConStr,"")

Case 2

Re.Pattern="])*>.*?" & TagName & "([^>])*>"

ConStr=Re.Replace(ConStr,"")

Case 3

Re.Pattern="])*>"

ConStr=Re.Replace(ConStr,"")

Re.Pattern="" & TagName & "([^>])*>"

ConStr=Re.Replace(ConStr,"")

End Select

ScriptHtml=ConStr

Set Re=Nothing

End Function

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

2 content=ScriptHtml(content,"a",2) ‘去掉所有和两个标记之间的内容

如  www.126.com  把这一段全去了

3  content=ScriptHtml(content,"td",3) ‘去掉

和HTML标记

如  

士大夫撒  把  去掉了 但士大夫撒还保留

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