我想把这个网页上的中奖号码全都存储到一个文本里，谁能帮我找到这网页用的数据源
http://www.swlc.sh.cn/chart/k3/jbzs.html?id=2我想把这个网页上的中奖号码全都存储到一个文本里，谁能帮我找到这网页用的数据源啊
这个网页都是图表，不能抓取，期待高人！ 本帖最后由 Huiseyu 于 2015-4-8 04:58 编辑
恭喜楼主，用获取源码的方式把数据抓到了，但是需要配合正则稍加处理一下，目前正则我还处于学习中。。不好意思，请参考三楼 {:face (460):}
#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') 本帖最后由 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))
剩下的自己解决吧。多动手才能学到更多东西。。不能只做伸手党。。
页:
[1]