chercher une valeur dans un fichier txtRésolu

Question

Bonjour, j'utilise ce bout de code pour aller chercher tout un texte à traiter (TxtString) :

Open FileName For Binary As #1
TxtString = Space(LOF(1))
Get #1, , TxtString
Ou1 = InStr(1, TxtString, "debut1")
Ou2 = InStr(1, TxtString, "fin")
For a = Ou1 To Ou2
    TxtStringtmp = TxtStringtmp + Mid(TxtString, a, 1)
Next

TxtString = TxtStringtmp
Close #1

Mon problème est que le mot "fin" se trouve à plusieurs endroits dans le fichier (avant "debut1" et après le "fin" qui m'intéresse). Comment faire pour qu'à coup sûr je récupère le premier mot "fin" qui se trouvera après "debut1" ?

Si vous avez pas compris la question, n'hésitez pas à me demander....

Merci !

le cancre · Accepted Answer

Dim Decoupe as String 
Open FileName For Binary As #1
TxtString =  Space(LOF(1))
Get #1, , TxtString
Ou1 = InStr(1, TxtString, "debut1")
Decoupe = split(mid(TxtString,Ou1 + Len("debut1")),"fin")
TxtStringTmp = Decoupe(0)
Close #1

exemple avec un decoupe(0) 
ligne "debut1  fdfdfd  fin deefezfezd fin rezrezrzer fin"
decoupe(0)  = fdfdfd

le cancre · Answer

remplace 
Dim Decoupe as String 
par 
Dim Decoupe() as String

gribouillex · Answer

merci, je vais m'inspirer de ça !!!

Chercher une valeur dans un fichier txt

3 réponses

Votre réponse

Discussions similaires