ARQUIVO TXT
como faço para abrir um arquivo TXT e colocar seu conteudo em um campo text?
valeu galera
valeu galera
Procure no forum
Desculpa FelipeA, mas ja procurei e sem sucesso.
Olha kra, tem duas maneiras de fazer(até mais maneiras)
Uma delas é:
Dim teste, subst
Private Sub Form_Load()
verify = App.Path & " ext.txt"
Open verify For Input As #1
While Not EOF(1)
Line Input #1, subst
If Text = " " Then
Text1.Text = subst
Else
Text1.Text = Text1.Text & vbCrLf & subst
End If
Wend
Close #1
End Sub
Uma delas é:
Dim teste, subst
Private Sub Form_Load()
verify = App.Path & " ext.txt"
Open verify For Input As #1
While Not EOF(1)
Line Input #1, subst
If Text = " " Then
Text1.Text = subst
Else
Text1.Text = Text1.Text & vbCrLf & subst
End If
Wend
Close #1
End Sub
Ah, esqueci de dizer, o campo text1.multiline deve ser = true
Se não as linhas ficam separadas apenas por quadrados na textbox
Se não as linhas ficam separadas apenas por quadrados na textbox
Ou se não for precisar pegar o texto e colocar em uma textbox, use:
Adicione o componente Microsoft Rich textbox e use isso:
Private Sub Form_Load()
RichTextBox1.FileName = App.Path & " ext.txt"
End Sub
Adicione o componente Microsoft Rich textbox e use isso:
Private Sub Form_Load()
RichTextBox1.FileName = App.Path & " ext.txt"
End Sub
Tópico encerrado , respostas não são mais permitidas