去html代码的正则 推荐
导读：收集整理的这篇文章主要介绍了去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="" & 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什么的 自己看吧
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 去html代码的正则 推荐
本文地址： https://pptw.com/jishu/595351.html