Substituir palavra de um arquivo texto

Question

:?: Estou com o seguinte problema para concluir um projeto: preciso de uma rotina para varrer um arquivo texto e que substitua uma palavra do arquivo.  Ex: Se eu tenho um arquivo texto com nome de �co...

Nerdex · Answer

Abaixo uma procedure que abre o arquivo.txt sem precisar vizualiz�-lo, vc poder� trabalhar linha a linha deste arquivo em um looping at� chegar ao fim do arquivo:

procedure percorreArquivoTexto ( nomeDoArquivo: String );
var arq: TextFile;
linha: String;
begin
AssignFile ( arq, nomeDoArquivo );
Reset ( arq );
ReadLn ( arq, linha );
while not Eof ( arq ) do
begin
{ Processe a linha lida aqui. }
{ Para particionar a linha lida em peda�os, use a fun��o Copy. }
ReadLn ( arq, linha );
end;
CloseFile ( arq );
end;

Henry · Answer

Assim, brother, vc precisa simila teu texto com um memo, pode usa uma variavel pra isso ou um Tmemo mesmo..

Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;

Procedure FindReplace (const Enc, subs: String; Var Texto: TMemo);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end;

Um abra�o, Henry.

Mauricio Gabriel · Answer

OL� Henry, gostei bastante de sua solu��o .por�m estou com um problema similar.Seria poss�vel me ajudarmeu cen�rio � o seguinte , tenho um txt  (em formato exportado pela impressora zebra)e tem alguns caracteres especiais dentro dele ... e por isso n�o carrega no memo.Teria como  fazer uma rotina assim.1) abrir arquivo txt   Origem2) substituir varias palavras dentro desse txt3) Salvar esse arquivo com outro nome.segue o que estou tentando fazer .////  Delphiprocedure TForm1.Button1Click(Sender: TObject);var    Arq : TStringList ;const   ARQUIVO = C:TEMP00000-FF_Etiqueta_Resfriada.PRN;   ARQDEST = C:TEMPPRINT.PRN;begin    Arq := TStringList.Create;    try          Arq.LoadFromFile(ARQUIVO);          Arq.Text := StringReplace(Arq.Text,[VAR_DESCRICAO_PRODUTO],PEIXE RESFRIADO - FIL� DE TILAPIA SEM PEL...

F�rum Substituir palavra de um arquivo texto #220905