LER E ESCREVER NO MESMO ARQUIVO TEXTO

USUARIO.EXCLUIDOS 31/05/2005 14:43:28
#86175
Olá gente.. O que eu gostaria de saber é o seguinte.. Como eu faço para abrir um arquivo texto para leitura e a partir dos dados dele substituir coisas determinadas ??? Tipo assim:

Citação:

Abro o arquivo
Faço minhas verificações
Escrevo no arquivo
Fecho o arquivo



Eu só preciso dos comandos.. Eu pensava q funcionava usando Open for Input pra ler e depois Open for Append.. Mas não deu.. Espero q possam me ajudar.. Abraço a todos.

Oks,
Rafael Portal
FABIO.ALEXANDRE 31/05/2005 15:05:29
#86182 Resposta escolhida
BOM TENTA ASSIM

Private Sub Command1_Click()

Dim VAR_NFILE As Integer
Dim VAR_TESTE As String

VAR_NFILE = FreeFile
Open "c:\ARQUVIO.TTL" For Input As VAR_NFILE
Do While Not EOF(VAR_NFILE)
Line Input #VAR_NFILE, VAR_TESTE
Loop
Close (VAR_NFILE)
VAR_NFILE = FreeFile
Open "c:\ARQUVIO.TTL" For Output As VAR_NFILE
Do While Not EOF(VAR_NFILE)
Write #VAR_NFILE, "NOVO TEXTO"
Loop
Close (VAR_NFILE)

End Sub


ESPERO TER AJUDADO
FABIO.ALEXANDRE 31/05/2005 15:10:38
#86184
DESCULPA. CORRIGINDO O CÓ“DIGO ACIMA

Private Sub Command1_Click()

Dim VAR_NFILE As Integer
Dim VAR_TESTE

VAR_NFILE = FreeFile
Open "c:\TEF_Kohl.txt" For Input As VAR_NFILE
Do While Not EOF(VAR_NFILE)

Line Input #VAR_NFILE, VAR_TESTE
Loop
Close (VAR_NFILE)
VAR_NFILE = FreeFile
Open "c:\TEF_Kohl.txt" For Append As VAR_NFILE
Write #VAR_NFILE, "NOVO TEXTO"
Close (VAR_NFILE)

End Sub
USUARIO.EXCLUIDOS 02/06/2005 15:37:58
#86603
Valeu !
Tópico encerrado , respostas não são mais permitidas
Voltar