VISUALIZAR UM ARQUIVO TEXTO

HARRY.POTTER 05/05/2006 08:29:35
#145128

Para mostrar o texto do arquivo num textbox:

Private Sub Command1_Click

Open ARQUIVO for Input as #1
   text1.text = input(lof(1),1)
Close #1

End Sub

USUARIO.EXCLUIDOS 05/05/2006 08:31:21
#145129

bem, vc terá de fazer a leitura do arquivo linha a linha e colocar na tela em um textbox multline ou outro controle a sua escolha.

Vou te mostrar como fazer para colocar em um text box...

dim arq as string
dim texto1 as string
arc = "c:    este.txt"
Open arq For Input As #1

While Not EOF(1)
Line Input #1, texto1
text1.text = texto1
wend

Não esqueça de mudar o atributo do text box para multline..

Espero ter ajudado.

USUARIO.EXCLUIDOS 05/05/2006 10:26:37
#145148

Pessoal valeu pela dica , mais isto eu já estou fazendo...
o que eu quero é tipo assim oh!
criei o arquivo.txt certo?
ai eu chamo ele na tela pelo bloco de notas ou por um word da vida mesmo.
valeu.....[S27][S71]

USUARIO.EXCLUIDOS 05/05/2006 10:34:12
#145153 Resposta escolhida

então você fara o seguinte:

Shell "notepad.exe c:\alterados.txt"

Troque c:\alterados.txt pelo seu arquivo

LIONHEART 05/05/2006 10:38:42
#145154

se preferir, pode tb usar o RichtextBox.

Atribui o Richtextbox.FileName = "c:\arquivo.txt"
e se quiser criar um botao salvar só com o comando:
RichTextBox.Save "c:\arquivo.txt"

mas se for usar o notepad então o Marco te deu a resposta certa.