黑色de郁金香 发表于 2013-4-23 00:02:38

求高手帮我获取一个地址

http://www.bwlc.net/bulletin/index.jsp?id=3
这是我知道的一个大概的地址,点一下里面的“快乐8”选项卡会出现如下数据,我想获取里面的数据,但是找不到这数据的来源地址,请大侠帮帮忙,先谢了

afan 发表于 2013-4-23 00:58:34

直接就有吧
#include <INet.au3>
$Url = 'http://www.bwlc.net/bulletin/index.jsp?id=3'
$str = _INetGetSource($Url, 1)
$str = BinaryToString($str, 4)
FileWrite('sss.x', $str)
ShellExecute('sss.x')

lxzan 发表于 2013-4-23 06:37:13

玩球哦,有赢吗?

黑色de郁金香 发表于 2013-4-23 19:13:49

回复 2# afan

感谢ing,这些是网页源码吧,大侠能帮忙写个抓取这些数据的正则吗

afan 发表于 2013-4-23 19:23:53

#include <Array.au3>
#include <INet.au3>
$Url = 'http://www.bwlc.net/bulletin/index.jsp?id=3'
$str = _INetGetSource($Url, 1)
$str = BinaryToString($str, 4)
Local $aSR = StringRegExp($str, '(?i)dataBack\d+\V+\s+<td>(\d+)</td>\s+<td>(\V+)</td>\s+<td>(\d+)</td>\s+<td>(\V+)</td>', 3)
_ArrayDisplay($aSR, '')

zch11230 发表于 2013-4-23 20:00:22

我在想楼主要的是不是这个。。#include <INet.au3>
#include<array.au3>
$str = _INetGetSource('http://www.bwlc.net/bulletin/index.jsp?id=3')
$array=StringRegExp($str,'<td>(\d+)</td>\v+ +<td>(.+)</td>\v+ +<td>(\d\d)</td>\v+ +<td>(.+)</td>',3)
_ArrayDisplay($array)

黑色de郁金香 发表于 2013-4-26 23:53:35

回复 5# afan


    正是我需要的,谢谢了!

黑色de郁金香 发表于 2013-4-26 23:55:43

回复 6# zch11230


      正是我需要的,同样谢谢了!
页: [1]
查看完整版本: 求高手帮我获取一个地址