SALVAR / ABRI TEXTO

FISH40 29/10/2009 15:08:41
#326524
Bom Pessoal Estou Com Uma Duvida!

Queria Saber Como Faço Para Gravar os Texto que Está no Text1,Text2,Text3,Text4 em um bloco de notas,e depois Que possa Abri o Arquivo e Cada TextBox Leia o Que Foi Salvo Entendem?

Obrigado!

Msn: rubinhocharmoso@hotmail.com
TECLA 29/10/2009 15:57:29
#326531
  • Gravar arquivo
    Open
    • [Ô]C:\Arq.txt[Ô] For Output As #1
    Print #1, Text1 & Chr(10)
    Print #1, Text2 & Chr(10)
    Print #1, Text3 & Chr(10)
    Close #1
    MsgBox [Ô]Arquivo criado[Ô], , [Ô]Gravar em arquivo[Ô]

  • Ler arquivo
    Dim Linha(3) As String, i As Byte
    i = 0
    Open
    • [Ô]C:\Arq.txt[Ô] For Input As #1
    Do While Not Eof(1)
    If i = 3 Then Exit Do
    Line Input #1, Linha(i)
    i = i + 1
    Loop
    Close #1
    Text1 = Linha(0)
    Text2 = Linha(1)
    Text3 = Linha(2)

    PS. Não testei, digitei diretamente no tópico.
    Tópico encerrado , respostas não são mais permitidas
    Voltar