如何获取一个网页中的文本超链接的链接

ac5474012

这个网站 http://www.uname.cn/dic/wordlist.asp
我想获取这个文本超链接的链接

ac5474012

为什么这样不管用？

#include <IE.au3>
$oIE = _IE_Example ("http://www.uname.cn/dic/wordlist.asp")
$oLinks = _IELinkGetCollection ($oIE)
$iNumLinks = @extended
MsgBox(0, "Link Info", $iNumLinks & " links found" & $oLinks)
For $oLink In $oLinks
    MsgBox(0, "Link Info", $oLink.href)
Next

ac5474012

#include <IE.au3>
$oIE = _IE_Example ("http://www.uname.cn/dic/zidian.asp")
$oTable = _IETableGetCollection ($oIE, 1)
$aTableData = _IETableWriteToArray ($oTable)
MsgBox(0,"",$aTableData[1][1])
MsgBox(0,"",$aTableData[2][2])
MsgBox(0,"",$aTableData[3][3])
MsgBox(0,"",$aTableData)

怎么这样也不管用?

wxb2422

#include <IE.au3>
$oIE = _IECreate ("http://www.uname.cn/dic/wordlist.asp",0,0,1,0)
$oLinks = _IELinkGetCollection ($oIE)
$i=0
For $oLink In $oLinks
        $i=$i+1
        MsgBox(0,"链接"&$i,$oLink.href ,1)
Next

这是获取全部链接，选择你自己想要的那个~
我也刚学。。说得不对请谅解

ac5474012

4# wxb2422

可是问题在于我要取出这其中某一次的数值要怎么做呢？第72次。

ac5474012

我用了这种办法，能不恩那个直接提取？

$i = 0
For $oLink In $oLinks
        $i = $i + 1
        FileWriteLine("fasdf.txt", $i & "-" & $oLink.href)
        If $i = 75 Then
                $s = $oLink.href
        EndIf
;~         MsgBox(0,"链接"&$i,$oLink.href ,1)
Next
MsgBox(0, "", $s)

全文

#include <IE.au3>
#include <Constants.au3>
#include <Date.au3>
$oIE = _IECreate("http://www.uname.cn/dic/zidian.asp")
$a = _IEGetObjByName($oIE, "gb")
_IEFormElementSetValue($a, "国")
$oSubmit = _IEGetObjByName($oIE, "gb")
$b = _IEGetObjByName($oIE, "Submit")
_IEAction($b, "click")
_IELoadWait($oIE)
$oLinks = _IELinkGetCollection($oIE)
$i = 0
For $oLink In $oLinks
        $i = $i + 1
        FileWriteLine("fasdf.txt", $i & "-" & $oLink.href)
        If $i = 75 Then
                $s = $oLink.href
        EndIf
;~         MsgBox(0,"链接"&$i,$oLink.href ,1)
Next
MsgBox(0, "", $s)

sxd

其实很多编程里很多东西 都是用的历遍

很多 find indexof 之类 都是封装的 for in  for  to

ac5474012

#include <IE.au3>
_IELinkGetCollection ( 对象变量 [, 索引 = -1] )
我觉得

_IECreate("http://www.uname.cn/dic/zidian.asp",79)

这样应该就能得到我想要的第79个，但是却不行。它说它返回的是一个对象集合。所以我就要一个一个看吗？
能不能一下子就提取出我想要的第79个？

sxd

我的意思是 就是历遍加判断就行了
If $i = 75 Then
MsgBox(0, "", $oLink.href)
ExitLoop
EndIf

afan

For $oLink In $oLinks
    If StringRegExp($oLink.href, 'http://www.uname.cn/html/dic/.+') then $s = $oLink.href
Next
MsgBox(0, "Link Info", $s)

是不是这意思？

ac5474012

算是吧，我就是想更优化点。

afan

#include <IE.au3>
$oIE = _IECreate("http://www.uname.cn/dic/zidian.asp")
$a = _IEGetObjByName($oIE, "gb")
_IEFormElementSetValue($a, "国")
$b = _IEGetObjByName($oIE, "Submit") 
_IEAction($b, "click")
_IELoadWait($oIE)
$sHTML = _IEBodyReadHTML($oIE) 
$Link = StringRegExp($sHTML, 'href="(/html/dic/[^"]+)">', 3)
If @Error = 0 Then  $oLink = 'http://www.uname.cn' & $Link[0]
MsgBox(0, "Link Info", $oLink)