中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-12 03:21

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » 用批处理下载网页

可打印版本　1,983 / 7

第1楼　gene771771	发表于 2006-12-20 12:18
初级用户　发帖 77　积分 105　来自重庆
用批处理下载网页最近在写论文，累死人了，天天上网找资料，晚上的时候发现一个比较好的论文网页，但是上边的论文没有分类，什么论文都放在一起，又很多，但是其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 ]

第2楼　electronixtar	发表于 2006-12-21 00:23
铂金会员　发帖 2,672　积分 7,493
同学，搜索～～

第3楼　gene771771	发表于 2006-12-21 06:29
初级用户　发帖 77　积分 105　来自重庆
谢谢你。我找到你的帖子了。你是用批处理加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

第4楼　tianzizhi	发表于 2006-12-21 06:38
高级用户　发帖 214　积分 623
@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 ]

第5楼　vkill	发表于 2006-12-21 09:32
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
呵呵，以前这样的帖子很多的

第6楼　gene771771	发表于 2006-12-21 11:26
初级用户　发帖 77　积分 105　来自重庆
re:tianzizhi 非常好用，谢谢！！

第7楼　jhg1975	发表于 2010-09-25 09:08
新手上路　发帖 3　积分 3
使用 WGET -i <URL> 也可以

第8楼　89762566	发表于 2010-09-27 11:36
新手上路　发帖 1　积分 1
学习一下谢谢

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023