Page 1 sur 1
[R] Rechercher une chaine dans un fichier (.txt)
Posté : dim. 15 févr. 2009 19:45
par sambalec
Salut j'ai fouiné dans les topics sans trouver exactement ma requête.
J'aimerais savoir comment rechercher une valeur "$valeur" dans un fichier texte et si cette valeur est trouvée, un textbox apparait par exemple disant que la chaine est trouvée.
Merci d'avance
Re: [..] Rechercher une chaine dans un fichier (.t
Posté : dim. 15 févr. 2009 20:05
par jbnh
Salut, tu devrais trouver la réponse
ici.
Re: [..] Rechercher une chaine dans un fichier (.txt)
Posté : dim. 15 févr. 2009 20:53
par sambalec
Ca m'aide un petit peu mais mon code semble foireux :
Code : Tout sélectionner
#include <file.au3>
;-------------------------------------------
Dim $valeur = "chaine", $i, $text
$filename = 'test.txt'
;-------------------------------------------
While 1
$i += 1
$var = FileReadLine($filename, $i)
if @error = -1 Then ExitLoop
If StringInStr($var, $valeur) Then ; SI LA CHAINE EST TROUVEE
MsgBox(4096, "Sambatest", "Trouvé", 1)
exitloop
Else ; SI LA CHAINE N'EST PAS TROUVEE
MsgBox(4096, "Sambatest", "Pas Trouvé", 1)
exitloop
EndIf
Wend
N'y a t'il pas plus simple ?
Re: [..] Rechercher une chaine dans un fichier (.txt)
Posté : dim. 15 févr. 2009 21:15
par sambalec
Oui le code foire totalement
Re: [..] Rechercher une chaine dans un fichier (.txt)
Posté : dim. 15 févr. 2009 21:38
par Tlem
Personnellement, j'irais au plus simple.
Code : Tout sélectionner
#include <file.au3>
;-------------------------------------------
Dim $valeur = "chaine", $i, $text
$filename = 'test.txt'
;-------------------------------------------
If _ReplaceStringInFile($filename, $valeur, $valeur) Then
MsgBox(4096, "Sambatest", "Trouvé", 1)
Else ; SI LA CHAINE N'EST PAS TROUVEE
MsgBox(4096, "Sambatest", "Pas Trouvé", 1)
EndIf
Re: [R] Rechercher une chaine dans un fichier (.txt)
Posté : dim. 15 févr. 2009 21:45
par sambalec
Parfait ! Merci bien !!