有了下面这个去html代码的正则教程,不懂去html代码的正则的也能装懂了,赶紧get起来装逼一下吧!
【 tulaoshi.com - Web开发 】
代码如下:
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/webkaifa/)
'==================================================
'函数名: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) ‘去掉所有brHTML标记
2 content=ScriptHtml(content,"a",2) ‘去掉所有a/a和两个标记之间的内容
如 a href=www.126.comwww.126.com/a 把这一段全去了
3 content=ScriptHtml(content,"td",3) ‘去掉td和/tdHTML标记
如 td士大夫撒/td 把td /td 去掉了 但士大夫撒还保留
依次类推把其他HTML标记都过滤了 div objdect什么的 自己看吧
来源:http://www.tulaoshi.com/n/20160219/1605262.html