COMO ABRIR UM DOCUMENTO.TXT E JOGA-LO NO TEXTBOX

USUARIO.EXCLUIDOS 06/07/2005 22:23:53
#92542
Se alguém souber me envie por e-mail
Valeu!!!
lisinha84@pop.com.br[S27]
WEBER 06/07/2005 22:52:20
#92545
o arquivo txt é a mesma coisa praticamente que um arquivo INI certo ... vc pode gravar dados neste arquivo ini, q abre com qlqr editor de textos de uma olhada no link abaixo

[txt-color=#ff0000]LINK[/txt-color]

da para vc ler e gravar os dados no arquivo ini e jogalos no text, eu particularmente montem este projeto usando uma dll entao acho melhor vc olhar o link
GABRIEL.LOGAN 06/07/2005 23:13:59
#92551 Resposta escolhida
Gata, faz o seguinte:

Cria um Módule e cole isso nele:

Function AbreArquivo(sArquivo As String) As String
  Dim iARQ As Integer
  Dim sLinha As String
  Dim sResult As String

  iARQ = FreeFile
  Open sArquivo For Input As iARQ
  Do While Not EOF(iARQ)
    'Pega o conteúdo da linha
    Line Input #iARQ, sLinha

    'Quebra a linha e concatena (soma) o resultado
    sResult = sResult + Chr(13) & Chr(10) + sLinha
  Loop

  AbreArquivo = sResult

  'Fecha o arquivo
  Close iARQ
End Function


Ai depois vai no seu Form adiciona um Botão e coloca esse código nele:

Private Sub Command1_Click()
AbreArquivo ("c:\meus documentos\Arquivo.txt")
End Sub



Gata se a dúvida foi sanada favor finalizar o tópico.


Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar