Trouver un mot et lire les mot qui le suive

Signaler
Messages postés
78
Date d'inscription
samedi 4 août 2001
Statut
Membre
Dernière intervention
29 mars 2007
-
Messages postés
78
Date d'inscription
samedi 4 août 2001
Statut
Membre
Dernière intervention
29 mars 2007
-
Voila un exemple
dans mon fichier texte j'ai

Test1=C:\labas
Mot8=Super
Text3=Coucou

Par exemple je veux chercher Mot8 sasn connaitre la ligne et le mot ki le suit (Super) Pour que ça marque automatiquement dans une textbox Super c'est tout con mais mais recherche n'ont pas été fructueuse :(

En gros il recherche un mot et me donne ce qu'il y a apré le =

Merci enormement a tous ceux qui m'aiderons pke la je suis trop en galere
@++ et merci a tous

2 réponses

Messages postés
436
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
2
Bonjour:-)
Dim strTmp as string, strResult as string
Open app.path & "\Fichier.txt" for Input as #1

Do While Not EOF(1)
Line input #1, strTmp
If instr(strTmp, "Mot8") > 0 Then
strResult = Mid(strTmp, InstrRev(strTmp,"=")-1)
Exit do
End If
Loop
Close #1
msgbox strResult
'-------------------

@+, VIC
0
Messages postés
78
Date d'inscription
samedi 4 août 2001
Statut
Membre
Dernière intervention
29 mars 2007

Merci BEAUCOUP c'est exactement ce qu'il me fallait :) j'aurré du venir ici plus tot lol :)
merci encore
@+++++
0