DiJiTooL
Messages postés78Date d'inscriptionsamedi 4 août 2001StatutMembreDernière intervention29 mars 2007
-
14 déc. 2002 à 15:36
DiJiTooL
Messages postés78Date d'inscriptionsamedi 4 août 2001StatutMembreDernière intervention29 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
VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 20102 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
'-------------------