(vb6) caricare e visionare diversi textfiles

martedì 01 settembre 2009 - 12.38

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

rex Profilo | Newbie

1 messaggi | Data Invio: mar 1 set 2009 - 12:38

salve.
Sono nuovo qui.
Con una mia routine carico in successione, dopo x secondi, diversi textfiles.
Ogni textfile contiene tre campi/dati;
la mia routine é fatta che prima mette tutti i dati in FULLFILE e poi li mostra , uno sotto l'altro,
in un solo text1.box
.(vedi codice)

Invece io vorrei che dopo il caricamento ogni dato mi vernisse mostrato
in text1.text, text2;text,text3.text, insomma ogni campo/dato a parte.

Come cambiare il codice in modo che i dati dei tre campi mi vengano mostrati
separatamente in 3 textbox?
Ecco il codice che ho:

Dim Percorsi(2) As String
Dim i As Integer
Sub ApriFile()
For i = 0 To 2
CommonDialog1.Filter = "Text Files (*.txt)|*.txt|All Files|*.*|"
CommonDialog1.ShowOpen
Percorsi(i) = CommonDialog1.FileName ' metto i vari percorsi nelle rispettive stringhe
Next i
i = -1
Timer1.Enabled = True
End Sub

Private Sub Command1_Click()
ApriFile ' Apro i percorsi
End Sub
Private Sub Timer1_Timer()
i = i + 1
loadfile 'chiamo la rutim loadfile
If i = 2 Then i = -1
End Sub
Sub loadfile()
Dim FullFile As String
Dim kfile As String
Open Percorsi(i) For Input As #1  'i percorsi cambiano allincremento di (i)
    FullFile = ""
    Do Until EOF(1)
        Line Input #1, kfile
        FullFile = FullFile & kfile & vbCrLf ' tutto il contenuto lo metto in fullfile
    Loop
    Close #1
Text1.Text = FullFile 
End Sub

grazie per l'aiuto
rext

disti1 Profilo | Newbie

2 messaggi | Data Invio: ven 25 set 2009 - 00:41

ciao!

come sono fatti i file di testo?

se per esempio avessero un formato tipo:

valore1|valore2|valore3

potresti usare:

while not eof(1)
   line input #1, kfile
   tb1 = tb1 & split(kfile, "|")(1) & vbcrlf
   tb2 = tb2 & split(kfile, "|")(2) & vbcrlf
   tb3 = tb3 & split(kfile, "|")(3) & vbcrlf
wend

text1.text = tb1
text2.text = tb2
text3.text = tb3

guardati in particolare la documentazione della funzione "Split".

ciao!

Roberto

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !