Modificar linha em arquivo Txt

Delphi

04/10/2005

Bom dia.. Gostaria de saber como modifico Uma linha em um arquivo txt

Antes da Leitura desse arquivo , ele se encontra assim:

[b:8e327331e8]Processo :Inicial[/b:8e327331e8] Status_Operaçao :Origem :Fabricação Des:Confec codigo_produto :3 Descricao_Produto :Blusa Chifon Diversas Lisas Quantidade :5


O Meu programa lê os dados desse arquivo e no final quero edita-lo para que fique assim :

[b:8e327331e8]Processo :Concluido[/b:8e327331e8] Status_Operaçao :Origem :Fabricação Des:Confec codigo_produto :3 Descricao_Produto :Blusa Chifon Diversas Lisas Quantidade :5


Como fazer para editar a primeira linha desse arquivo Txt...???


Marco Salles

Marco Salles

Curtidas 0

Respostas

Massuda

Massuda

04/10/2005

O jeito mais fácil é usar um TStringList. Use LoadFromFile para ler o arquivo, modifique a string que deseja e salve as alterações usando SaveToFile.


GOSTEI 0
Marco Salles

Marco Salles

04/10/2005

O jeito mais fácil é usar um TStringList. Use LoadFromFile para ler o arquivo, modifique a string que deseja e salve as alterações usando SaveToFile.


Se voce disse que é o jeito mais fácil , vou fazer assim.. Sem problema e muito obrigado


GOSTEI 0
Fabiano Góes

Fabiano Góes

04/10/2005

Uma dica pra quem quizer aproveitar a ideia do nosso amigo Marcos :

var
    Texto: TStringList;
begin
    Texto :=  TStringList.Create;
  try
    Texto.LoadFromFile(´c:\SeuArquivo.txt´);
    Texto.Text  :=  StringReplace(Texto.Text, ´Inicial´, ´Concluido´, [rfIgnoreCase]);
    Texto.SaveToFile(´c:\SeuArquivo.txt´);
  finally
    FreeAndNil(Texto);
  end;
end;



GOSTEI 0
POSTAR