中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: 脚本提取网页分支怎么做? 上一主题 | 下一主题
bd123456789
中级用户





积分 360
发帖 216
注册 2007-5-29
状态 离线
『楼 主』:  脚本提取网页分支怎么做?

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 ]

2010-6-11 12:51
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qinchun36
高级用户

据说是李先生


积分 609
发帖 400
注册 2008-4-23
状态 离线
『第 2 楼』:  

“只提取最下边的常用工具栏”
经查看,此网站页面做的很烂,无法直接提取,只能一个一个找:
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 。

一般去这个网站比较好起步:
w3school.com.cn

标准:
w3.org

2010-6-11 16:32
查看资料  发送邮件  发短消息 网志  OICQ (182484135)  编辑帖子  回复  引用回复
bd123456789
中级用户





积分 360
发帖 216
注册 2007-5-29
状态 离线
『第 3 楼』:  

辛苦了

多谢多谢!


2010-6-11 16:48
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: