[R] Problème de recherche dans un code source HTML

[lkzid]

Bien le bonjour,

Je présente ici mon problème qui concerne une recherche dans un document HTML

En voici le code :

Code : Tout sélectionner

#include <IE.au3>
$oIE = _IECreate ("http://bux.to/surf.php")
$sHTML = _IEDocReadHTML ($oIE)
$nOffset = 1
While 1
    ConsoleWrite($sHTML)
    $array = StringRegExp( $sHTML, 'href=view.php\?ad=(.*?) ', 1, $nOffset)
    
    If @error = 0 Then
        MsgBox(0, "1", "1")
        $nOffset = @extended
    Else
        ExitLoop
        MsgBox("0", "2", "2")
    EndIf
    for $i = 0 to UBound($array) - 1
        msgbox(0, "RegExp Test with Option 1 - " & $i, $array[$i])
    Next
WEnd
_IELoadWait ($oIE)
 

Je souhaite afficher dans une fenêtre les IDs des liens, mais je n'y parviens pas.

Merci de m'aider,

Lkzid

[GMib]

Bonjour, essaye ceci :

Code : Tout sélectionner

#include <Array.au3>
#include <String.au3>
#include <IE.au3>
$oIE = _IECreate ("http://bux.to/surf.php")
$oLinks = _IELinkGetCollection($oIE)
Dim $alink[1]
For $oLink in $oLinks
   ConsoleWrite($olink.href & @CRLF)
    If StringInStr($oLink.href,"view.php?ad=") Then
        $id = _StringBetween($oLink.href,"?ad=","")
        _ArrayAdd($alink,$id[0])
    EndIf
Next
_ArrayDelete($alink,0)
_ArrayDisplay($alink)

[lkzid]

Nickel merci beaucoup pour cette réponse rapide

[Tlem]

La coloration syntaxique du code est réservée aux forums :

• - Exemples de script
  - Fonctions et UDF
  - Tutoriels