Commenti a: Leggere un file di testo (.txt) con Visual Basic http://www.danyoutlaw.it/danyoutlaw/2010/02/visual-basic/leggere-un-file-di-testo-txt-con-visual-basic Thu, 19 May 2011 07:13:06 +0000 hourly 1 http://wordpress.org/?v=3.2.1 Di: Antonio http://www.danyoutlaw.it/danyoutlaw/2010/02/visual-basic/leggere-un-file-di-testo-txt-con-visual-basic/comment-page-1#comment-22 Antonio Thu, 19 May 2011 07:13:06 +0000 http://www.danyoutlaw.it/?p=176#comment-22 Ottima lezione. Utilizzando codice dal sito, per farlo funzionare ho dovuto inserire delle modifiche. Mi son permesso di postarle nel caso serva a qualcuno. 'Codice del pulsante--- Private Sub Command1_Click() Dim Testo As String Cd1.ShowOpen If Cd1.FileName = vbNullString Then Exit Sub Else Open Cd1.FileName For Input As #1 While Not EOF(1) Line Input #1, Testo Text1.Text = Text1 & " " & Testo & vbNewLine Wend Close #1 End Sub 'Fine----- NB: impostare la proprietà multiline della textbox a true Ottima lezione.
Utilizzando codice dal sito, per farlo funzionare ho dovuto inserire delle modifiche.
Mi son permesso di postarle nel caso serva a qualcuno.
‘Codice del pulsante—
Private Sub Command1_Click()
Dim Testo As String
Cd1.ShowOpen
If Cd1.FileName = vbNullString Then Exit Sub Else
Open Cd1.FileName For Input As #1
While Not EOF(1)
Line Input #1, Testo
Text1.Text = Text1 & ” ” & Testo & vbNewLine
Wend
Close #1
End Sub
‘Fine—–

NB: impostare la proprietà multiline della textbox a true

]]> Di: claudio http://www.danyoutlaw.it/danyoutlaw/2010/02/visual-basic/leggere-un-file-di-testo-txt-con-visual-basic/comment-page-1#comment-4 claudio Thu, 11 Mar 2010 12:22:45 +0000 http://www.danyoutlaw.it/?p=176#comment-4 QUESTO E' MOLTO UTILE QUESTO E’ MOLTO UTILE

]]>