中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 用批处理下载网页

gene771771
初级用户

积分 105
发帖 77
注册 2006-11-9
来自重庆
状态离线

『楼主』: 用批处理下载网页

最近在写论文，累死人了，天天上网找资料，晚上的时候发现一个比较好的论文网页，但是上边的论文没有分类，什么论文都放在一起，又很多，但是其ID是一定的，我想能不能写一个批处理，下载网页，然后自动分析是不是有我要的关键词，如果有就自动保存，然后没有就自动删除？论文地址为www1.cei.gov.cn ... 比如从 www1.cei.gov.cn ... 到 www1.cei.gov.cn ... 分析请高手指点一二 [ 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 www1.cei.gov.cn ... findstr "关键字" d:\2001041%%a.htm if errorlevel 1 del d:\2001041%%a.htm /f ) wget下载:tianzizhi.disk365.cn/ [ Last edited by tianzizhi on 2006-12-21 at 08:16 AM ]

此帖被 +2 点积分点击查看详情

2006-12-21 06:38

查看资料发送邮件发短消息网志 OICQ

(419503077)