Chercher une valeur dans un fichier txt [Résolu]

Signaler
Messages postés
172
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2011
-
gribouillex
Messages postés
172
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2011
-
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 !

3 réponses

Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
27 novembre 2009

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
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
27 novembre 2009

remplace
Dim Decoupe as String
par
Dim Decoupe() as String
Messages postés
172
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2011

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