求高手帮我获取一个地址

黑色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

正是我需要的，同样谢谢了！

		自动登录	找回密码
密码			加入

[网络通信] 求高手帮我获取一个地址

本帖子中包含更多资源

相关帖子

浏览过的版块