中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: 用批处理下载网页 上一主题 | 下一主题
gene771771
初级用户





积分 105
发帖 77
注册 2006-11-9
来自 重庆
状态 离线
『楼 主』:  用批处理下载网页

最近在写论文,累死人了,天天上网找资料,晚上的时候发现一个比较好的论文网页,但是上边的论文没有分类,什么论文都放在一起,又很多,但是其ID是一定的,我想能不能写一个批处理,下载网页,然后自动分析是不是有我要的关键词,如果有就自动保存,然后没有就自动删除?

论文地址为http://www1.cei.gov.cn/forum/doc/zjar

比如从
http://www1.cei.gov.cn/forum/doc/zjar/200104174738.htm

http://www1.cei.gov.cn/forum/doc/zjar/200104175082.htm
分析
请高手指点一二

[ Last edited by gene771771 on 2006-12-19 at 11:22 PM ]

2006-12-20 12:18
查看资料  发送邮件  发短消息 网志  OICQ (280385115)  编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 2 楼』:  

同学,搜索~~

2006-12-21 00:23
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
gene771771
初级用户





积分 105
发帖 77
注册 2006-11-9
来自 重庆
状态 离线
『第 3 楼』:  

谢谢你。我找到你的帖子了。
你是用批处理加VBS实现的,前面我的看懂了
下面这段是什么呢?我不懂VBS,呵呵。。。

Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET",LCase(WScript.Arguments(0)),0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile LCase(WScript.Arguments(1)),2

2006-12-21 06:29
查看资料  发送邮件  发短消息 网志  OICQ (280385115)  编辑帖子  回复  引用回复
tianzizhi
高级用户




积分 622
发帖 214
注册 2006-9-22
状态 离线
『第 4 楼』:  

@echo off
for /l %%a in (74738,1,75082) do (
wget http://www1.cei.gov.cn/forum/doc/zjar/2001041%%a.htm
findstr "关键字" d:\2001041%%a.htm
if errorlevel 1 del d:\2001041%%a.htm /f
)
wget下载:http://tianzizhi.disk365.cn/

[ Last edited by tianzizhi on 2006-12-21 at 08:16 AM ]

   此帖被 +2 点积分    点击查看详情   
评分人:【 gene771771 分数: +2  时间:2006-12-21 11:26


2006-12-21 06:38
查看资料  发送邮件  发短消息 网志  OICQ (419503077)  编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 5 楼』:  

呵呵,以前这样的帖子很多的

2006-12-21 09:32
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
gene771771
初级用户





积分 105
发帖 77
注册 2006-11-9
来自 重庆
状态 离线
『第 6 楼』:  re:tianzizhi

非常好用,谢谢!!

2006-12-21 11:26
查看资料  发送邮件  发短消息 网志  OICQ (280385115)  编辑帖子  回复  引用回复
jhg1975
新手上路





积分 3
发帖 3
注册 2010-9-21
状态 离线
『第 7 楼』:  

使用 WGET -i <URL> 也可以

2010-9-25 09:08
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
89762566
新手上路





积分 1
发帖 1
注册 2010-2-22
状态 离线
『第 8 楼』:  

学习一下 谢谢

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

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


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



论坛跳转: