:gren:
Ciao a tutti ho seguente problemino
non riesco a far visualizare il contenuto di un File di testo .txt
dentro ad una textbox (multiline) qualcuno potrebbe spiegarmi come
posso fare ?
Saluti![]()
:gren:
Ciao a tutti ho seguente problemino
non riesco a far visualizare il contenuto di un File di testo .txt
dentro ad una textbox (multiline) qualcuno potrebbe spiegarmi come
posso fare ?
Saluti![]()
[-Blade-]
Puoi usare il seguente codice:
Private Sub Command1_Click()
Dim riga As String
'Apro il file in Input (Lettura)
Open "c:\prova.txt" For Input As #1 'il numero 1 indica il 'canale' 1
'(nelle successive istruzioni il file sarà indicato con 1)
While Not EOF(1) ' ciclo fino a fine file (EOF- End of File)
Input #1, riga 'Leggo una riga (e ne inserisco il valore nella variabile 'riga')
Text1.Text = Text1.Text & vbCrLf & riga 'aggiungo al textbox la riga
Wend
End Sub
Ovviamente il codice prevede che nel form siano presenti un commandButton (Command1) e un textBox (Text1).
Spero sia abbastanza chiaro, fammi sapere...
Ciao!!:quipy:
lupusinfabula
Programmatore VB, ASP, Delphi.
Ciao Boldan grazie della risposta
A visualizare il contenuto funziona pero ora ce un altro problemino
nel txt ho scritto questo per provare facendo 2 Rige
1)ciao
2)come va ?
pero nel text box melo mette uno dietro l altro cosi:
Ciao come va ?sto bene e tu ?
come facio a fare che li visualizza uguale come nel txt uno sotto l altro.
![]()
[-Blade-]
Ah no ora va avevo dimenticato di abilitare Multiline alla textbox ecco perche non chambiava riga)
[-Blade-]
Ho un altro problema ora
Come facio a fare che se il file e piu grande che fa il "Scroll" da solo facendo vedermi sempre la fine del file ?
[-Blade-]
Puoi posizionare il cursore del TextBox a fine testo (vedi blocco in grassetto):
Private Sub Command1_Click()
Dim riga As String
'Apro il file in Input (Lettura)
Open "c:\prova.txt" For Input As #1 'il numero 1 indica il 'canale' 1
'(nelle successive istruzioni il file sarà indicato con 1)
While Not EOF(1) ' ciclo fino a fine file (EOF- End of File)
Input #1, riga 'Leggo una riga (e ne inserisco il valore nella variabile 'riga')
Text1.Text = Text1.Text & vbCrLf & riga 'aggiungo al textbox la riga
Wend
'Imposti la posizione del cursore nel textbox alla fine del testo
Text1.SelStart = Len(Text1.Text)
Text1.SelLength = 0
End Sub
Spero funzioni, tienimi aggiornato...
Ciao!!![]()
lupusinfabula
Programmatore VB, ASP, Delphi.
Perfetto Funziona Grazie Mille :gren: :gren: :gren:
[-Blade-]