Input pour un txt

[Résolu]
Signaler
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014
-
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014
-
Bonjours, je passerais pas par 26000 miles chemins mon problème : j'ai un txt "C:\Blabla.txt" Première ligne du Txt True, Deuxième ligne du Txt Bonjours, Troisième ligne du Txt Bye, Si dans la première ligne de mon Txt c'est True alor text1.text = ligne 2 de mon Txt & text2.text = ligne 3 de mon Txt j'arrive pas a trouver un code!! Merci a l'avance de l'aide

9 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
Dim iFile As Integer
Dim sBuffer As String
iFile = FreeFile
Open "C:\Blabla.txt" For Input As #iFile
Line Input #iFile, sBuffer
If sBuffer = "True" And Not EOF(iFile) Then
Line Input #iFile, sBuffer
Text1.Text = sBuffer
If Not EOF(iFile) Then
Line Input #iFile, sBuffer
Text2.Text = sBuffer
End If
End If
Close #iFile
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
mais perso, je préfère tout lire en une fois:

Dim iFile As Integer
Dim xsLines() As String
iFile = FreeFile
Open "C:\Blabla.txt" For Input As #iFile
xsLines = Split(Input(LOF(iFile), #iFile), vbNewLine)
Close #iFile
If UBound(xsLines) >= 2 Then
If xsLines(0) = "True" Then
Text1.Text = xsLines(1)
Text2.Text = xsLines(2)
End If
End If
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
trois intructions...

Open
Line Input
Close
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014

Hmmm, j'arive pas a trouvé la maudite bonne Syntax, hier j'ai trouvé quelques trucs mais j'etais jamais capable de pogner la Première ligne et de lui dir que si c'est True Alor Text1 = ligne 2 Text 2 = ligne 3 :(
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014

Woowwwww :D Un Gros Merci Renfield ma pouvoir enfin continuer ma super programmation!! un gros merci
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014

Ok, je vais tester sa ;) un gros Merci!!
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014

Hmm quand je crée mon Exe et je le run j'ai cette érreur : Input past end of file
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
d'ou les differents tests avec EOF.

mais utilises le deuxième code, il est mieux et plus secure
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014

Ouais c'est sa j'ai fait tout marche!! Je te remerci beaucoup Renfield!!