本帖最后由 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))
|