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

Messages postés
172
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2011
- - Dernière réponse : gribouillex
Messages postés
172
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2011
- 30 oct. 2006 à 17:25
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 !
Afficher la suite 

3 réponses

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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 193 internautes nous ont dit merci ce mois-ci

Commenter la réponse de le cancre
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
27 novembre 2009
0
Merci
remplace
Dim Decoupe as String
par
Dim Decoupe() as String
Commenter la réponse de le cancre
Messages postés
172
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2011
0
Merci
merci, je vais m'inspirer de ça !!!
Commenter la réponse de gribouillex