[R] Besoin de récupérer une valeur

[Ks10]

Bonjour,

Je voudrais récupérer la valeur de cette ligne mais je n'y arrive pas.

Code : Tout sélectionner

<td><input type="text" disabled="disabled" id="fe_text" value="[b]c'est cette valeur que je veux[/b]" size="15" readonly="readonly" /></td>

J'ai des pistes comme :

_IEFormElementGetValue mais en regardant la doc j'ai du mal à construire mon code, je voie pas comment le construire par rapport à l'exemple.

Une piste, un conseil, une explication svp ?

Merci d'avance

[Tlem]

Bonjour.
A partir des informations donné par mikell dans son petit tuto sympa sur ce lien, vous pouvez arriver à ceci :

Code : Tout sélectionner

#include <Array.au3>

$Str = '<td><input type="text" disabled="disabled" id="fe_text" value="c est cette valeur que je veux" size="15" readonly="readonly" /></td>'

 $Res = StringRegExp ($Str, 'value="(.*?)" size=', 3)

_ArrayDisplay($Res)

[Ks10]

Non, ce n'est pas une chaine que j'ai comme ça.

Cette chaîne provient d'un site web.
Je voudrais récupérer ce qui y a dans la balise "value".

[Tlem]

Ben dans ce cas il nous en faut plus. Le lien vers la page ou le code source de celle-ci car selon comment est construit celle-ci, il faut adapter en conséquence !

Sinon, rien ne vous empêche de récupérer et travailler sur le code source de la page pour récupérer vos infos plutôt que d'utiliser COM. ^^

[Ks10]

Le lien : www.adresseip.com

Le code source accessible comme d'habitude dans tous les navigateurs.

[jguinch]

Il faut que tu récupère d'abord l'élément qui t'intéresse en tant qu'objet :
$oInput = _IEGetObjById($oIE, "fe_text")

Ensuite, tu pourra récupérer la valeur :
MsgBox(0, "", "Adresse IP : " & _IEFormElementGetValue($oInput.value) )

[Yogui]

Bonjour,

j'aurai fait comme ça .

► Afficher le texte

Code : Tout sélectionner

$source = HTTPRequest("GET", "http://www.adresseip.com/")
$balise_tr = StringRegExp($source, '<center>(.*?)</center>', 3)
$ip = StringRegExp($balise_tr[0], '<b>(.*?)</b>', 1)
MsgBox(0,"",$ip[0])


Func HTTPRequest($oMethod, $oURL, $oData = "")
    If Not IsDeclared("$oHTTP") Then $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
    $oHTTP.Open($oMethod, $oURL, False)
    If $oMethod = "POST" Then $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    $oHTTP.Send($oData)
    Return $oHTTP.ResponseText
EndFunc   ;==>HTTPRequest

[Ks10]

Merci pour vos réponses ! Je préfère la solution de Jguinch qui est plus simple pour moi je trouve

[jguinch]

Plus simple peut-être, mais le script dépendra toujours d'Internet Explorer...
La solution de Yogui est beaucoup plus fiable selon moi.

[Tlem]

Visiblement, vu que c'est pour récupérer l'IP, je conseil plutôt ceci : http://www.autoitscript.fr/ip.php