error $olink.href

[jerem488]

Hello everybody,

I have a problem with a loop. Aparently, it's the StringInStr function, but I don't understand why...

If StringInStr($oLink.href, "http://www.aef.cci.fr/accueil/listeEntreprises/ficheEntreprise?siret=" & $Extraction_siret) Then
If StringInStr($oLink.href^ ERROR

My complete script :

expandcollapse popup

#include <IE.au3>
#include <Array.au3>
#include <File.au3>
#Include <String.au3>

$Page_internet = _IECreate("http://www.aef.cci.fr/", 0, 1, 1)

$Fichier_sirets = FileOpen(@MyDocumentsDir & "\Sirets_SL.txt", 0)

If $Fichier_sirets = -1 Then
    Exit
EndIf

While 1
    $Ligne_sirets = FileReadLine($Fichier_sirets)
    If @error = -1 Then ExitLoop
    $Extraction_siret = StringTrimLeft($Ligne_sirets, 8)

    _IENavigate($Page_internet, "http://www.aef.cci.fr/")
    _IELoadWait($Page_internet)
    Sleep(400)

    $Case_raison_sociale = _IEGetObjById($Page_internet, "label")
    $Case_SIREN_SIRET = _IEGetObjById($Page_internet, "identifiant")
    $Case_nom = _IEGetObjById($Page_internet, "nom")
    $Case_departement = _IEGetObjById($Page_internet, "dep")

    _IEPropertySet($Case_raison_sociale, "innertext", "")
    _IEPropertySet($Case_SIREN_SIRET, "innertext", $Extraction_siret)
    _IEPropertySet($Case_nom, "innertext", "")
    _IEPropertySet($Case_departement, "innertext", "")

    $Bouton_Rechercher = _IEGetObjById($Page_internet, "valider")
    _IEAction($Bouton_Rechercher, "click")
    _IELoadWait($Page_internet)

    $oLinks = _IELinkGetCollection($Page_internet)
    For $oLink In $oLinks
        If StringInStr($oLink.href, "http://www.aef.cci.fr/accueil/listeEntreprises/ficheEntreprise?siret=" & $Extraction_siret) Then
            _IEAction($oLink, "click")
            _IELoadWait($Page_internet)
            Sleep(400)

            $Contenu = _IEBodyReadHTML($Page_internet)
            ConsoleWrite($Contenu & @CRLF)

            $aHold = StringRegExp($Contenu, "(?i)(?s).+?Identité.+?(<dl.+/dl>)", 1)
            If NOT @Error Then
                $aHold = StringRegExp($aHold[0], "(?i)<dt>(Siret|Effectif|voie|Code postal|Ville|Téléphone|Forme juridique|Activité en clair)\s*</dt>\s*<dd>(.+)</dd>", 3)
                If NOT @Error Then
                    $sRtn = ""
                    For $i = 0 To UBound($aHold) -2 Step 2
                        $sRtn &= $aHold[$i] & " : " & $aHold[$i +1] & @CRLF
                    Next
                    FileWriteLine(@MyDocumentsDir & "\Coordonnees_entreprises_SL.txt", $sRtn & @CRLF)
;~                  ConsoleWrite($sRtn & @CRLF)
                EndIf
            EndIf
        EndIf
    Next
    MsgBox(0, "","YES")
Wend

FileClose($Fichier_sirets)

Thanks

[PsaltyDS]

If you click on a link or _IENavigate() away from the current page the collection $oLinks becomes invalid. It fails when it comes back through the loop and you try $oLink.href again after the collection is invalid.

[jerem488]

If you click on a link or _IENavigate() away from the current page the collection $oLinks becomes invalid. It fails when it comes back through the loop and you try $oLink.href again after the collection is invalid.

I am resolving the problem. I have putting the loop in a function !