找回密码
 加入
搜索
查看: 3133|回复: 3

[网络通信] 我想把这个网页上的中奖号码全都存储到一个文本里,谁能帮我找到这网页用的数据源

[复制链接]
发表于 2015-4-7 23:40:28 | 显示全部楼层 |阅读模式
http://www.swlc.sh.cn/chart/k3/jbzs.html?id=2
我想把这个网页上的中奖号码全都存储到一个文本里,谁能帮我找到这网页用的数据源啊
这个网页都是图表,不能抓取,期待高人!
发表于 2015-4-8 04:26:45 | 显示全部楼层
本帖最后由 Huiseyu 于 2015-4-8 04:58 编辑

恭喜楼主,用获取源码的方式把数据抓到了,但是需要配合正则稍加处理一下,目前正则我还处于学习中。。不好意思,请参考三楼
#include <Inet.au3>
FileOpen('Data.txt')
FileWrite('Data.txt' ,_INetGetSource('http://www.swlc.sh.cn/chart/k3/jbzs.html?id=2'))
FileClose('Data.txt')
ShellExecute('data.txt')
发表于 2015-4-8 04:47:59 | 显示全部楼层
本帖最后由 Huiseyu 于 2015-4-8 06:08 编辑

有了:虽不完美,但能作为参考
#include <Inet.au3>
#include'array.au3'
$souce_codeB = StringRegExp(_INetGetSource('http://www.swlc.sh.cn/chart/k3/jbzs.html?id=2') ,'\b\d{2},\d{2},\d{2}\b' ,3)
$souce_codeA = StringRegExp(_INetGetSource('http://www.swlc.sh.cn/chart/k3/jbzs.html?id=2') ,'\b\d{11}.+\b',3)
_ArrayDisplay($souce_codeA ,'lucky Number')
MsgBox(8096 ,'' ,_ArrayToString(($souce_codeA) ,@CRLF ,1 ,100))
_ArrayDisplay($souce_codeB ,'lucky Number')
;~ Global Const $A =UBound($souce_codeB)
MsgBox(8096 ,'' ,_ArrayToString(($souce_codeB) ,@CRLF ,1 ,100))

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2015-4-8 09:09:44 | 显示全部楼层

剩下的自己解决吧。多动手才能学到更多东西。。不能只做伸手党。。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-4-29 19:06 , Processed in 0.088210 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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