找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 15804|回复: 4

[问题求助] VBS如何实现读取文本的网址内容并复制到文本文件中?

[复制链接]
发表于 2014-7-8 21:36:16 | 显示全部楼层 |阅读模式
假设1.txt文本有如下链接
  1. http://www.baidu.com/
  2. http://hao.360.cn/
复制代码
我想打开链接后在浏览器显示的内容复制到out.txt中,效果如下。可以实现吗?

相当于用浏览器打开http://www.baidu.com/,CTRL+A CTRL+C CTRL+V到out.txt
  1. 宝箱换肤消息设为首页elec

  2. 新闻网页贴吧知道音乐图片视频地图百科文库更多>>


  3. 导航 新闻 世界杯 音乐
  4. 订阅/管理更多卡片
  5. 点击这里哦
  6. 7-6 周日7-9 周三我的积分: 0赚积分 领取每日登录奖励活动规则
  7. 巴西VS
  8. 4:00德国
  9. 直播|前瞻|专题

  10. 巴西胜
  11. 赔率2.72

  12. 德国胜
  13. 赔率2.63
  14. 押分:立即竞猜
  15. 竞猜截止时间 4:00单场竞彩

  16. 世界杯下的中国人
  17. 内马尔替身曝光
  18. 德国致命弱点
  19. 巴西上诉遭驳回
  20. 克洛泽冲神纪录
  21. 详解内马尔之伤
  22. 中国玩不起足球
  23. 积分榜射手榜微博讨论区比赛预测
  24. ©2014 Baidu 使用百度前必读 京ICP证030173号
  25. 北京:28℃|空气质量:51良
复制代码
发表于 2014-7-8 23:56:09 | 显示全部楼层
最直观的是用 InternetExplorer.Application,示例:
  1. arr = Array("http://www.baidu.com","http://hao.360.cn/")

  2. Set ie = CreateObject("InternetExplorer.Application")

  3. For Each url In arr
  4.         ie.Navigate url
  5.         Do While(ie.ReadyState <> 4) : WScript.Sleep 100 : Loop
  6.         MsgBox ie.Document.documentElement.innerText
  7. Next

  8. ie.Quit()
复制代码
发表于 2014-7-9 00:10:55 | 显示全部楼层
本帖最后由 storm8 于 2014-7-9 00:13 编辑

来学习了
发表于 2014-7-9 00:12:38 | 显示全部楼层
来学习了
 楼主| 发表于 2014-7-9 08:10:59 | 显示全部楼层
回复 2# CrLf


    嗯,是这种效果。 不过我想把结果全输出到out.txt中。
    网址可能有几百个,保存在1.txt上。。最好能够一行行调用当做arr的参数。。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 17:05 , Processed in 0.018288 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表