Visual Basic 6 - Aprire lungo file in textbox

Forum - Visual Basic 6 - Aprire lungo file in textbox

Commodore 64 (Normal User)
Newbie

Messaggi: 7
Iscritto: 04/11/2006

Postato alle 21:53
Giovedì, 09/11/2006

Allora,
per aprire un file di testo in una textbox ho fatto una cosa del genere:

Private Sub btnapri_Click()
txtfile.Text = ""
On Error GoTo fine
CommonDialog1.ShowOpen
Path = CommonDialog1.FileName
Open Path For Input As 1
Do
Input #1, linea
txtfile.Text = txtfile & linea & vbCrLf
Loop Until EOF(1) = True
Close #1
Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub

fin qui tutto bene

Il problema si pone quando apro un file con un listato abbastanza lungo; nella textbox viene aperto solo metà listato

come posso recuperare il resto??????

:-?

Ultima modifica effettuata da pierotofy il 10/11/2006 alle 3:44

()
Newbie

Messaggi:
Iscritto:

Postato alle 22:07
Giovedì, 09/11/2006

lungo quanto?
a me va e il file era veramente lungo...
e poi perchè non utilizzare la rich textbox...

Ultima modifica effettuata da il 09/11/2006 alle 22:11

Commodore 64 (Normal User)
Newbie

Messaggi: 7
Iscritto: 04/11/2006

Postato alle 22:28
Giovedì, 09/11/2006

circa 4000 righe

però la cosa strana e che se nel file originale seleziono tutto copio e poi vado ad incollare nella textbox, le 4000 righe me le fa vedere....

non uso la rich text box, perchè quando vado a salvare il file aperto e modificato, mi iserisce, oltre al testo, dei codici tipo \par e altre robe

Ultima modifica effettuata da Commodore 64 il 09/11/2006 alle 22:29

Reese (Ex-Member)
Pro

Messaggi: 179
Iscritto: 09/08/2006

Postato alle 11:33
Venerdì, 10/11/2006

Si incontra questo problema quando il file ha delle interruzioni.

()
Newbie

Messaggi:
Iscritto:

Postato alle 15:19
Venerdì, 10/11/2006

Codice sorgente - presumibilmente VB.NET

Option Explicit
Dim path As String
Dim linea As String
 
 
Private Sub btnapri_Click()
txtfile.Text = ""
On Error GoTo fine
CommonDialog1.ShowOpen
path = CommonDialog1.FileName
Open path For Input As #1
Do
Line Input #1, linea
txtfile.Text = txtfile.Text & linea & vbCrLf
Loop Until EOF(1) = True
Close #1
Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub

con una rich textbox.

morpher (Ex-Member)
Rookie

Messaggi: 38
Iscritto: 22/11/2005

Postato alle 19:25
Venerdì, 10/11/2006

Era un po'che non postavo(un po'tanto). Comunque io eviterei di caricare il file linea per linea. Ti conviene allocare spazio in una variabile, caricare l'intero file nella variabile e poi passarlo alla txtbox

Ultima modifica effettuata da morpher il 10/11/2006 alle 19:30

Commodore 64 (Normal User)
Newbie

Messaggi: 7
Iscritto: 04/11/2006

Postato alle 20:32
Venerdì, 10/11/2006

Ora ci provo vi farò sapere

GRAZIE MILLE A TUTTIIIIIIIIIIIIIIIII