标题: 脚本提取网页分支怎么做? [打印本页]
作者: bd123456789 时间: 2010-6-11 12:51 标题: 脚本提取网页分支怎么做?
On Error Resume next
Set oDOM=Wscript.Getobject("http://www.hao123.com/")
Do Until oDOM.readyState="complete"
Wscript.sleep 200
Loop
str = Split(oDOM.documentElement.outerText)
Set oDOM=nothing
MsgBox str
现在想要只提取最下边的常用工具栏,(即网页框架中的一部分)
又比如网页中经常出现class类,能否直接提取??
oDOM.documentElement该加什么参数或属性?
另外,这些属性哪里可以学到?
[ Last edited by bd123456789 on 2010-6-11 at 13:21 ]
作者: qinchun36 时间: 2010-6-11 16:32
“只提取最下边的常用工具栏”
经查看，此网站页面做的很烂，无法直接提取，只能一个一个找：
On Error Resume next
Set oDOM=Wscript.Getobject("http://www.hao123.com/")
Do Until oDOM.readyState="complete"
Wscript.sleep 200
Loop
For Each a in oDOM.documentElement.getElementsByTagname("a")
If a.innerText = "实用工具" Then
str = a.parentNode.parentNode.parentNode.outerText
End If
Next
Set oDOM=nothing
MsgBox str
查找 “HTML、 DOM、元素、方法” 相关的资料，要学这方面东西你可能要放弃 VBS 改学 JS 。Set oDOM=Wscript.Getobject("http://www.hao123.com/")
Do Until oDOM.readyState="complete"
Wscript.sleep 200
Loop
For Each a in oDOM.documentElement.getElementsByTagname("a")
If a.innerText = "实用工具" Then
str = a.parentNode.parentNode.parentNode.outerText
End If
Next
Set oDOM=nothing
MsgBox str
一般去这个网站比较好起步：
w3school.com.cn
标准：
w3.org
作者: bd123456789 时间: 2010-6-11 16:48
辛苦了
多谢多谢!
