Board logo

标题: [问题求助] VBS如何实现读取文本的网址内容并复制到文本文件中？ [打印本页]
作者: elec    时间: 2014-7-8 21:36     标题: VBS如何实现读取文本的网址内容并复制到文本文件中？

假设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. 订阅/管理更多卡片

  8. 点击这里哦

  9. 7-6 周日7-9 周三我的积分: 0赚积分 领取每日登录奖励活动规则

  10. 巴西VS

  11. 4:00德国

  12. 直播|前瞻|专题

  13. 

  14. 巴西胜

  15. 赔率2.72

  16. 

  17. 德国胜

  18. 赔率2.63

  19. 押分:立即竞猜

  20. 竞猜截止时间 4:00单场竞彩

  21. 

  22. 世界杯下的中国人

  23. 内马尔替身曝光

  24. 德国致命弱点

  25. 巴西上诉遭驳回

  26. 克洛泽冲神纪录

  27. 详解内马尔之伤

  28. 中国玩不起足球

  29. 积分榜射手榜微博讨论区比赛预测

  30. ©2014 Baidu 使用百度前必读 京ICP证030173号

  31. 北京：28℃|空气质量：51良
复制代码
作者: CrLf    时间: 2014-7-8 23:56

最直观的是用 InternetExplorer.Application，示例：
  1. arr = Array("http://www.baidu.com","http://hao.360.cn/")

  2. 

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

  4. 

  5. For Each url In arr

  6. 	ie.Navigate url

  7. 	Do While(ie.ReadyState <> 4) : WScript.Sleep 100 : Loop

  8. 	MsgBox ie.Document.documentElement.innerText

  9. Next

  10. 

  11. ie.Quit()
复制代码
作者: storm8    时间: 2014-7-9 00:10

本帖最后由 storm8 于 2014-7-9 00:13 编辑

来学习了
作者: storm8    时间: 2014-7-9 00:12

来学习了
作者: elec    时间: 2014-7-9 08:10

回复 2# CrLf


    嗯，是这种效果。 不过我想把结果全输出到out.txt中。
    网址可能有几百个，保存在1.txt上。。最好能够一行行调用当做arr的参数。。



欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2