从源代码中提取或过滤网页标签

1.删除非图片标签

先把img标签转换成特定字符，再其他的html中 <和> 过滤掉，再把刚才的特定字符转换回来

html   =   html.replace(// <img/g, "♂ ");                   ///替换 " <img "
html   =   html.replace(/(♂[^> ]*)> /g, "$1♀ ");     ///替换 "> "
alert(html);
html   =   html.replace(// <[^> ]*> /g, " ");                 ///过滤其它所有 " <...> "标签
alert(html);
html   =   html.replace(/♂/g, " <img ");                     ///还原 " <img "
html   =   html.replace(/♀/g, "> ");                           ///还原 "> "

 

2.正则表达式过滤图片标签 自己所写

Function RemoveImg(ByVal str As String) As String
    Dim re
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = "<img[^>]*>"
    RemoveImg = re.