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.Replace(str, " ")
End Function
Function RemoveScript(ByVal str As String) As String '过滤脚本
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<script[/w/W]*script>"
RemoveScript = re.Replace(str, " ")
End Function
Function RemoveEmbed(ByVal str As String) As String '过滤嵌入多媒体
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<embed[/w/W]*embed>"
RemoveEmbed = re.Replace(str, " ")
End Function
Function RemoveObject(ByVal str As String) As String '过滤嵌入多媒体
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<object[/w/W]*object>"
RemoveEmbed = re.Replace(str, " ")
End Function
3.字符串遍历过滤图片标签
Private Function RemoveImg(ByVal str As String) As String
'不显示图片
Dim i As Integer
Dim tempSource, tempStr As String
Dim img() As String
tempSource = str
img = Split(str, "<img")
For i = 1 To UBound(img) - 1
tempStr = Split(img(i), ">")(0) '<img> 标签的结束
tempSource = Replace(tempSource, "<img" & tempStr & ">", "", 1, -1, 1)
Next
RemoveImg = tempSource
End Function
4.操作页面元素
for(i=0;i<document.getElementsByTagName.length;i++){
document.getElementsByTagName("input")[i].style.background="#CCCCCC";
}