最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

去html代碼的正則 推薦

 更新時(shí)間:2006年10月31日 00:00:00   作者:  
復(fù)制代碼 代碼如下:

'==================================================
'函數(shù)名:ScriptHtml
'作  用:過濾html標(biāo)記
'參  數(shù):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標(biāo)記

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

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

依次類推把其他HTML標(biāo)記都過濾了 div objdect什么的 自己看吧

相關(guān)文章

最新評論

永顺县| 宁波市| 建平县| 驻马店市| 秦皇岛市| 敦化市| 沾益县| 古交市| 清流县| 张家口市| 铜陵市| 房产| 高雄市| 阿克陶县| 堆龙德庆县| 慈溪市| 桃园县| 焦作市| 长泰县| 南京市| 鸡泽县| 平江县| 西和县| 从江县| 呼伦贝尔市| 苏尼特左旗| 定日县| 开原市| 子长县| 咸宁市| 洪雅县| 台中市| 仪征市| 井冈山市| 廊坊市| 开鲁县| 东阳市| 扶余县| 滨海县| 班戈县| 河西区|