LZ abis 与 acbs 有关系吗?
这个问题 acbs 问过我,奇怪的是你也问这个… 且网址相同~
以下是以前回复他的#include <INet.au3>
#include <Array.au3>
$sUrl = 'http://www.excelpx.com/index.asp?boardid=38'
ToolTip('正在获取源码,请稍候……')
$str = _INetGetSource($sUrl)
$str = StringRegExpReplace($str, 'amp;|"', '')
$sR = StringRegExp($str, '<a href="(.+?)".+title="《(.+)》', 3)
If @error Then Exit MsgBox(0, 0, '未找到匹配~')
Dim $link[UBound($sR) / 2][2], $x = 0
For $i = 0 To UBound($sR) - 1 Step 2
$link[$x][0] = $sR[$i + 1]
$link[$x][1] = 'http://www.excelpx.com/' & $sR[$i]
$x += 1
Next
ToolTip('')
_ArrayDisplay($link, '标题及链接')
|