Input pour un txt [Résolu]

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

Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 20 avril 2009 à 15:59
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Renfield
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 20 avril 2009 à 16:00
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Renfield
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 20 avril 2009 à 10:56
0
Utile
trois intructions...

Open
Line Input
Close
Commenter la réponse de Renfield
rsx602 140 Messages postés jeudi 24 août 2006Date d'inscription 28 août 2014 Dernière intervention - 20 avril 2009 à 15:47
0
Utile
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
rsx602 140 Messages postés jeudi 24 août 2006Date d'inscription 28 août 2014 Dernière intervention - 20 avril 2009 à 15:59
0
Utile
Woowwwww :D Un Gros Merci Renfield ma pouvoir enfin continuer ma super programmation!! un gros merci
Commenter la réponse de rsx602
rsx602 140 Messages postés jeudi 24 août 2006Date d'inscription 28 août 2014 Dernière intervention - 20 avril 2009 à 16:01
0
Utile
Ok, je vais tester sa ;) un gros Merci!!
Commenter la réponse de rsx602
rsx602 140 Messages postés jeudi 24 août 2006Date d'inscription 28 août 2014 Dernière intervention - 20 avril 2009 à 16:09
0
Utile
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
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 20 avril 2009 à 16:16
0
Utile
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
rsx602 140 Messages postés jeudi 24 août 2006Date d'inscription 28 août 2014 Dernière intervention - 20 avril 2009 à 16:17
0
Utile
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.