偶看新闻三星s8裸眼3d星空壁纸:从源代码中提取或过滤网页标签
来源：百度文库 编辑：偶看新闻 时间：2024/04/28 08:57:57
1.删除非图片标签
先把img标签转换成特定字符，再其他的html中 <和> 过滤掉，再把刚才的特定字符转换回来
html = html.replace(// html = html.replace(/(♂[^> ]*)> /g, "$1♀ "); ///替换 "> "
alert(html);
html = html.replace(// <[^> ]*> /g, " "); ///过滤其它所有 " <...> "标签
alert(html);
html = html.replace(/♂/g, " 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 = "
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 = "
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 = "
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, "
tempStr = Split(img(i), ">")(0) ' 标签的结束
tempSource = Replace(tempSource, "
Next
RemoveImg = tempSource
End Function
4.操作页面元素
for(i=0;i
}