Visual Basic 6 - errore nell apertura .txt

Forum - Visual Basic 6 - errore nell apertura .txt

Nark (Normal User)
Newbie

Messaggi: 1
Iscritto: 20/04/2009

Postato alle 22:23
Lunedì, 20/04/2009

ciao a tutti stò creando un editor di testo solo che non so se questo codice è esatto perchè quando mi importa il file .txt nella textbox mi inserisce solo la prima riga...mi potreste aiutare?Grazie in anticipo

Codice sorgente - presumibilmente Visual Basic 6

CommonDialog1.Filter = "Text Files (*txt)|*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Input #1, testo
Close #1
Text1.Text = testo

Ultima modifica effettuata da Nark il 20/04/2009 alle 22:27

lorenzo (Normal User)
Guru

Messaggi: 1178
Iscritto: 15/04/2008

Postato alle 23:01
Lunedì, 20/04/2009

infatti la input legge solo una riga del file
devi ciclare usando la EOF

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 0:34
Martedì, 21/04/2009

Se il testo non e' eccessivamente lungo, puoi anche scrivere semplicemente

testo = Input(LOF(1), 1)

()
Newbie

Messaggi:
Iscritto:

Postato alle 15:37
Martedì, 21/04/2009

ti scrivo il tuo codice in pseudocodice, dovresti capire da solo dov'è l'errore

Apri il file per la lettura indicizzandolo come #1
Legggi una riga del del file #1 e la salvo nella variabile "testo"
Chiudo #1
Scrivo la variabile "testo" nella textbox

Se noti manca qualcosa

Apri il file per la lettura indicizzandolo come #1
Fino a che il file non raggiunge la fine (EOF)
   {
   Legggi una riga del del file #1 e la salvo nella variabile "testo"
   Aggiungo "testo" alla textbox (txtNome.Text = txtNome.Text & " " & testo)
   }
Chiudo #1