[vb6] Leggere da un file txt

[fidello]

Buongiorno a tutti, in un form ho inserito 3 text dove dovrei scrivere i 3 path di un database, e tramite un pulsante che ha questo codice:
Open "pippo.txt" For Output As #1
Write #1, Me.pathda.Text,
Write #1,
Write #1, Me.patha.Text,
Write #1,
Write #1, Me.destinazione2.Text,
Write #1,
Close #1
me lo scrivo su un file di testo. Per poter fare in modo che le 3 text leggano dal medesino file e caricare il nuovo path dovrei usare input #...ma come?

grazie

[giano118]

così leggi il file FileDaLeggere...

    Dim Path, FileOut As String
    intfile = FreeFile
    FileInput = "FileDaLeggere.txt"
    Path = App.Path + "\" + FileInput
    Open Path For Input As #intfile

ciao
spero di averti aiutato!

Originariamente inviato da fidello
Buongiorno a tutti, in un form ho inserito 3 text dove dovrei scrivere i 3 path di un database, e tramite un pulsante che ha questo codice:
Open "pippo.txt" For Output As #1
Write #1, Me.pathda.Text,
Write #1,
Write #1, Me.patha.Text,
Write #1,
Write #1, Me.destinazione2.Text,
Write #1,
Close #1
me lo scrivo su un file di testo. Per poter fare in modo che le 3 text leggano dal medesino file e caricare il nuovo path dovrei usare input #...ma come?

grazie

[fidello]

Scusa ma continuo a non capirci, la prima riga che leggo dovrebbe essere scritta nella text1 la seconda nella text2 etc. Sto consultando anche lMSDN ma non ho trovato nulla

[Acaro]

prova questo

dim str as string
close #1

open "percorsoCompleto\file.txt" for input as #1
do while not eof(1)
line input #1 , str 'dove qui se hai tre righe sul txt col ciclo ti salva il valore... cmq...

loop
close #1
spero di essere stato chiaro

[giano118]

ricapitolando...
nel generale scrivi il type il restodove ti serve

Type datiUtente
    VarRiga1 As String
    VarRiga2 As String
    VarRiga3 As String
End Type
   
 Dim Path, FileOut As String
    intfile = FreeFile
    FileInput = "FileDaLeggere.txt"
    Path = App.Path + "\" + FileInput
    Open Path For Input As #intfile 
    i = 1
    While Not EOF(intfile)
        Line Input #intfile, VarLeggi
        ReDim Preserve MyArray(i)
        MyArray(i) = VarLeggi
         i = i + 1

    Wend     
    Y = UBound(MyArray()) / 3
    Z = 0
     For i = 1 To Y
        
        ReDim Preserve VarDati(i)
        VarDati(i).VarRiga1 = MyArray(1 + Z)
        VarDati(i).VarRiga2 = MyArray(2 + Z)
        VarDati(i).VarRiga3 = MyArray(3 + Z)

quindi VarDati(i).VarRigaN puoi piazzarlo dove preferisci...anche nella caption della text!

ciao

Originariamente inviato da fidello
Scusa ma continuo a non capirci, la prima riga che leggo dovrebbe essere scritta nella text1 la seconda nella text2 etc. Sto consultando anche lMSDN ma non ho trovato nulla