j'utilise ce bout de script :
Code : Tout sélectionner
Local $oLinks = _IELinkGetCollection($oIE)
Local $iNumLinks = @extended
MsgBox(0, "Link Info", $iNumLinks & " links found")
For $oLink In $oLinks
MsgBox(0, "Link Info", $oLink.href)
NextCode : Tout sélectionner
Local $oLinks = _IELinkGetCollection($oIE)
Local $iNumLinks = @extended
MsgBox(0, "Link Info", $iNumLinks & " links found")
For $oLink In $oLinks
MsgBox(0, "Link Info", $oLink.href)
Next
merciPandiPanda a écrit :Bonsoir,
Vous avez différent choix;
- StringRegExp()
- StringInStr()
- StringMid()

Code : Tout sélectionner
$string = "\xxx\yyy\"
$txt = ""
Local $oLinks = _IELinkGetCollection($oIE) ; récupère la liste de liens
For $oLink In $oLinks ; pour chaque lien de la liste
If StringInStr($oLink.href, $string) Then ; StringInStr = si contient la string
$txt &= $oLink.href & @CRLF ; $oLink.href = l'[u]adresse[/u] du lien
EndIf
Next
MsgBox(0, "Link Info", $txt)mikell a écrit :Qqe chose comme ça ?Code : Tout sélectionner
$string = "\xxx\yyy\" $txt = "" Local $oLinks = _IELinkGetCollection($oIE) ; récupère la liste de liens For $oLink In $oLinks ; pour chaque lien de la liste If StringInStr($oLink.href, $string) Then ; StringInStr = si contient la string $txt &= $oLink.href & @CRLF ; $oLink.href = l'[u]adresse[/u] du lien EndIf Next MsgBox(0, "Link Info", $txt)