Input pour un txt [Résolu]

Messages postés
140
Date d'inscription
jeudi 24 août 2006
Dernière intervention
28 août 2014
- - Dernière réponse : rsx602
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Dernière intervention
28 août 2014
- 20 avril 2009 à 16:17
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
Afficher la suite 

Votre réponse

9 réponses

Meilleure réponse
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
60
3
Merci
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

Dire « Merci » 3

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

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

Commenter la réponse de Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
60
3
Merci
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

Dire « Merci » 3

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

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

Commenter la réponse de Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
60
0
Merci
trois intructions...

Open
Line Input
Close
Commenter la réponse de Renfield
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Dernière intervention
28 août 2014
0
Merci
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 :(
Commenter la réponse de rsx602
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Dernière intervention
28 août 2014
0
Merci
Woowwwww :D Un Gros Merci Renfield ma pouvoir enfin continuer ma super programmation!! un gros merci
Commenter la réponse de rsx602
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Dernière intervention
28 août 2014
0
Merci
Ok, je vais tester sa ;) un gros Merci!!
Commenter la réponse de rsx602
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Dernière intervention
28 août 2014
0
Merci
Hmm quand je crée mon Exe et je le run j'ai cette érreur : Input past end of file
Commenter la réponse de rsx602
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
60
0
Merci
d'ou les differents tests avec EOF.

mais utilises le deuxième code, il est mieux et plus secure
Commenter la réponse de Renfield
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Dernière intervention
28 août 2014
0
Merci
Ouais c'est sa j'ai fait tout marche!! Je te remerci beaucoup Renfield!!
Commenter la réponse de rsx602

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.