[R] Extraire une valeur...

[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.

[GMH]

Peut-être :

$str1 = StringSplit($Line,">")
$str2 = StringSplit($str1[4],"<")
Msgbox(0,"",$str2[1])

[camil]

Super, merci.

[TommyDDR]

Merci de ne plus vous faire passer pour mikell :3

[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,

[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.

[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

[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