Page 1 sur 1
[R] Extraire une valeur...
Posté : dim. 03 juil. 2016 15:40
par camil
Bonjour,
Je souhaiterai récupérer sur plusieurs fichiers une valeur numérique qui est toujours au même endroit.
Cette valeur numérique a un espace pour les milliers.
Exemple de 2 fichiers :
fichier "test1.html" qui contient :
<tr><td nowrap>Valeur a recuperer<nowrap>8 029<blablabla
et
fichier "test2.html" qui contient :
<tr><td nowrap>Valeur a recuperer<nowrap>80 029<blablabla
Je bloque sur le récupération de "8 029" ou "80 029" ... , y a t-il une syntaxe pour arrêter l’extraction au symbole '<'.
► Afficher le texte
Recup()
Func recup()
$File2 = FileOpen("c:\temp\test.html") ; ouvrir fichier
While 1
$Line = FileReadLine($File2)
If @error = -1 Then ExitLoop
If StringLeft($Line, 21) = "<tr><td nowrap>Valeur" Then
$Val1 = (StringMid ($Line, 42, 5))
MsgBox(0, "Ma valeur est : ",$Val1) ; affichage fichier + valeur
EndIf
Wend
FileClose($file2)
EndFunc
Merci par avance pour votre aide.
Re: [..] Extraire une valeur...
Posté : dim. 03 juil. 2016 16:22
par GMH
Peut-être :
$str1 = StringSplit($Line,">")
$str2 = StringSplit($str1[4],"<")
Msgbox(0,"",$str2[1])
Re: [R] Extraire une valeur...
Posté : dim. 03 juil. 2016 17:18
par camil
Super, merci.
Re: [R] Extraire une valeur...
Posté : dim. 03 juil. 2016 18:23
par TommyDDR
Merci de ne plus vous faire passer pour mikell :3
Re: [R] Extraire une valeur...
Posté : dim. 03 juil. 2016 18:59
par camil
Je n'ai pas compris votre message TommyDDR !!!.
Oui je m'inspire des scripts sur ce forum et je leur en remercie

, et non je ne me fais pas passer pour un autre.
En vous souhaitant Bonne soirée,
Re: [R] Extraire une valeur...
Posté : dim. 03 juil. 2016 19:43
par orax

D'ailleurs, quand j'ai ouvert le message, j'ai cru que c'était mikell qui l'avait posté !
Mais sa tête est courante...
Pour extraire une valeur, il y a également la fonction
_StringBetween qui pourrait peut-être être utile dans ce cas.
Re: [R] Extraire une valeur...
Posté : dim. 03 juil. 2016 23:43
par mikell
Code : Tout sélectionner
$result = Recup("c:\temp\test.html")
Func Recup($file)
Local $tmp = StringRegExp(FileRead($file), '<tr><td nowrap>([^<]+)', 1)
If not @error Then Return $tmp[0]
EndFunc
camil est plus ancien que moi sur le forum

Re: [R] Extraire une valeur...
Posté : lun. 04 juil. 2016 22:15
par TommyDDR
J'ai aussi cru que c'était mikell, d'où mon message ^^
@camille : même si je pense que c'est assez clair maintenant, la confusion est du à vos avatars
