Input pour un txtRésolu

Question

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

Renfield · Accepted Answer

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

Renfield · Answer

trois intructions...

Open
Line Input
Close

rsx602 · Answer

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 :(

rsx602 · Answer

Woowwwww :D Un Gros Merci Renfield ma pouvoir enfin continuer ma super programmation!! un gros merci

Renfield · Answer

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

rsx602 · Answer

Ok, je vais tester sa ;) un gros Merci!!

rsx602 · Answer

Hmm quand je crée mon Exe et je le run j'ai cette érreur : Input past end of file

Renfield · Answer

d'ou les differents tests avec EOF.

mais utilises le deuxième code, il est mieux et plus secure

rsx602 · Answer

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

Input pour un txt

9 réponses

Votre réponse