Visual Basic 6 - Leggere un file di testo

Forum - Visual Basic 6 - Leggere un file di testo

Pagine: [ 1 2 ]

()
Newbie

Messaggi:
Iscritto:

Postato alle 1:00
Giovedì, 01/01/1970

Ciao a tutti ragazzi... ho un problema....

Vorrei leggere un file txt (grosso 170 kb)

e ho usato questo codice:

Codice sorgente - presumibilmente VB.NET

Private Sub mnuapri_Click()
cd.FileName = ""
cd.Filter = "File di testo|*.txt"
cd.ShowOpen
If cd.FileName <> "" Then
Open cd.FileName For Input As #1
While Not EOF(1)
Line Input #1, strriga
Text1.Text = Text1.Text & strriga & vbCrLf
stringa1 = Text1.Text
flag = True
Wend
Close #1
End If
End Sub

ORa... tutto funziona... ma nella textbox non c'è tutto il file... ma solo la parte iniziale U_U... perchè? Dov'è che sbaglio? c'è un modo per risolvere sto problema o almeno per aggirarlo? so che la textbox ha una capienza fino a 4k... ho provato con la richtextbox... ma ho ottenuto lo stesso risultato

in più poi il file viene ridotto di dimensioni non so perchè... forse non è per questo pezzo di codice... ma da 90 kb passa a 1 kb che guarda caso era la parte che si vedeva nella textbox

e ho dovuto renderlo di sola lettura per farlo restare intatto...

Potete darmi una mano voi per quanto riguarda la lettura? Grazie!

kryc (Normal User)
Rookie

Messaggi: 23
Iscritto: 10/12/2007

Postato alle 21:51
Lunedì, 05/05/2008

devi fare così

Codice sorgente - presumibilmente VB.NET

Private Sub mnuapri_Click()
cd.FileName = ""
cd.Filter = "File di testo|*.txt"
cd.ShowOpen
If cd.FileName <> "" Then
Open cd.FileName For Input As #1
text1.text = Input(LOF(1), #1)
flag = True
Close #1
End If
End Sub

Ultima modifica effettuata da kryc il 05/05/2008 alle 21:53

()
Newbie

Messaggi:
Iscritto:

Postato alle 22:08
Lunedì, 05/05/2008

mi da errore dicendo:

Input oltre la fine del file

O_o

e mi segnala questo:

Text1.Text = Input(LOF(1), #1)

kryc (Normal User)
Rookie

Messaggi: 23
Iscritto: 10/12/2007

Postato alle 22:30
Lunedì, 05/05/2008

A me non da nessun tipo di errore comunque prova ad aggiungere il ciclo

Codice sorgente - presumibilmente Visual Basic 6

While Not EOF(1)
Text1.Text = Input(LOF(1), #1)
flag = True
Wend

vediamo se così ti corregge l'errore

Ultima modifica effettuata da kryc il 05/05/2008 alle 22:33

()
Newbie

Messaggi:
Iscritto:

Postato alle 23:09
Lunedì, 05/05/2008

no non va...

Grazie mille dell'assistenza!!!

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 23:31
Lunedì, 05/05/2008

Il codice che hai mostrato legge da file e non lo puo' modificare. Quindi devi avere un'altra parte del codice (magari in un timer) che scrive sul file.

Oppure, c'e' un altro programma che lo fa ...

kryc (Normal User)
Rookie

Messaggi: 23
Iscritto: 10/12/2007

Postato alle 0:17
Martedì, 06/05/2008

scusate ho capito male il problema, credevo ti visualizzasse solo la prima riga.
per risolvere il tuo problema prova ad aggiungere il coponente Microsoft form 2.0 bject library
In pratica ti agigunge alcuni componenti standard quali texbox label etc. ma migliorati.
La textbox del form2.0 ha capienza maggiore rispetto alla text box standard, molte volte ho risolto il problema di capienza usando quella textbox fammi sapere

Ultima modifica effettuata da kryc il 06/05/2008 alle 0:18

()
Newbie

Messaggi:
Iscritto:

Postato alle 14:15
Martedì, 06/05/2008

si ho trovato il codice che modificava il file... ora è tutto ok...

@kryc ora provo grazie 1000!!

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 17:34
Martedì, 06/05/2008

Testo quotato

Postato originariamente da .:ViRuS:.:

si ho trovato il codice che modificava il file... ora è tutto ok...

Ecco ... mi sembrava strano ...

Pagine: [ 1 2 ]