ScriptHtml去除html标记的操作
来源：爱站网时间：2021-12-21编辑：网友分享
正则表达式的使用其实也是非常普遍的，而作为其中的一个函数——ScriptHtml，很多人都用它来去除掉html标记，具体是怎么操作的呢！接下来让爱站技术频道小编给大家说一说。
'==================================================
'函数名：ScriptHtml
'作 用：过滤html标记
'参 数：ConStr ------ 要过滤的字符串
'==================================================
'函数名：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标记都过滤了 div objdect什么的。
希望这篇文章能帮助到各位有需要的小伙伴，爱站技术频道专业提供各式各样的技术问题解决服务，如果有需要就请自行收藏或者关注。
