Como Trabalhar com Arquivos Textos
Quero pegar diversas uma(s) linha(s) em um arquivo texto, fazer uma modificação na(s) mesma(s) e grava-las em outro arquivo texto
Anonymous
Curtidas 0
Respostas
Okama
14/02/2003
Ok, vamos lá:
LER O ARQUIVO
==========
Var linha:String; Arquivo:TextFile;
begin
AssignFile(Arquivo, ´C:\TEXTO.TXT´);
Reset(Arquivo);
while Not EOF(Arquivo) do begin
Readln(Arquivo,Linha); //lê cada linha do arquivo.
end;
CloseFile(Arquivo);
GRAVAR ARQUIVO
============
assignFile(Arquivo,´c:\TEXTO2.TXT´);
Rewrite(Arquivo);
Writeln(Arquivo,´texto que quer gravar no arquivo´);
CloseFile(Arquivo);
Estão os códigos para leitura e gravação, implemente o código para alteração das linhas, a variável LINHA é string e equivale a cada linha do arquivo texto, trate-a como achar melhor.
Um Abraço,
LER O ARQUIVO
==========
Var linha:String; Arquivo:TextFile;
begin
AssignFile(Arquivo, ´C:\TEXTO.TXT´);
Reset(Arquivo);
while Not EOF(Arquivo) do begin
Readln(Arquivo,Linha); //lê cada linha do arquivo.
end;
CloseFile(Arquivo);
GRAVAR ARQUIVO
============
assignFile(Arquivo,´c:\TEXTO2.TXT´);
Rewrite(Arquivo);
Writeln(Arquivo,´texto que quer gravar no arquivo´);
CloseFile(Arquivo);
Estão os códigos para leitura e gravação, implemente o código para alteração das linhas, a variável LINHA é string e equivale a cada linha do arquivo texto, trate-a como achar melhor.
Um Abraço,
GOSTEI 0