三星s8裸眼3d星空壁纸:从源代码中提取或过滤网页标签
1.删除非图片标签
先把img标签转换成特定字符,再其他的html中 <和> 过滤掉,再把刚才的特定字符转换回来
html = html.replace(//
alert(html);
html = html.replace(// <[^> ]*> /g, " "); ///过滤其它所有 " <...> "标签
alert(html);
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 = "
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 = "