Visualizzazione dei risultati da 1 a 7 su 7
  1. #1

    Visualizare Contenuto di un File Txt in un Textbox

    :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-]

  2. #2

    Puoi far così...

    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.

  3. #3

    Funziona pero..

    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-]

  4. #4

    risolto

    Ah no ora va avevo dimenticato di abilitare Multiline alla textbox ecco perche non chambiava riga )
    [-Blade-]

  5. #5

    un altro problema

    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-]

  6. #6
    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.

  7. #7

    :-)

    Perfetto Funziona Grazie Mille :gren: :gren: :gren:
    [-Blade-]

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.