去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="<" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
Case 2
Re.Pattern="<" & TagName & "([^>])*>.*?</" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
Case 3
Re.Pattern="<" & TagName & "([^>])*>"
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) ‘去掉所有<br>HTML標記

2 content=ScriptHtml(content,"a",2) ‘去掉所有<a></a>和兩個標記之間的內容
如 <a href=www.126.com>www.126.com</a> 把這一段全去了

3 content=ScriptHtml(content,"td",3) ‘去掉<td>和</td>HTML標記
如 <td>士大夫撒</td> 把<td> </td> 去掉了 但士大夫撒還保留

依次類推把其他HTML標記都過濾了 div objdect什麼的 自己看吧