去html代码的正则推荐

168 阅读 0 评论 111 点赞

我是靠谱客的博主大胆大树，最近开发中收集的这篇文章主要介绍去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什么的 自己看吧