Trouver un mot et lire les mot qui le suive

DiJiTooL Messages postés 78 Date d'inscription samedi 4 août 2001 Statut Membre Dernière intervention 29 mars 2007 - 14 déc. 2002 à 15:36
DiJiTooL Messages postés 78 Date d'inscription samedi 4 août 2001 Statut Membre Dernière intervention 29 mars 2007 - 14 déc. 2002 à 17:58
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

VicoLaChips2 Messages postés 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 2
14 déc. 2002 à 16:22
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
DiJiTooL Messages postés 78 Date d'inscription samedi 4 août 2001 Statut Membre Dernière intervention 29 mars 2007
14 déc. 2002 à 17:58
Merci BEAUCOUP c'est exactement ce qu'il me fallait :) j'aurré du venir ici plus tot lol :)
merci encore
@+++++
0
Rejoignez-nous