como substituir palavras de um TXT??

Delphi

09/02/2006

seguinte...
tenho varias linhas com palavras em um txt...
como faço pra ir percorrendo linha por linha e substituindo essas palavras e salvar as modificaçoes feitas?


Salsa

Salsa

Curtidas 0

Respostas

Rjun

Rjun

09/02/2006

Carrega o arquivo em um StringList. Depois percorra cada linha do stringlist e utilize a função ReplaceStr para fazer a troca.


GOSTEI 0
Leonardobhbr

Leonardobhbr

09/02/2006

Substitui todas palavras
StringRepalce(texto,´valor antigo´,´valor novo´,[rfIgnoreCase,rfReplaceAll]);


GOSTEI 0
Salsa

Salsa

09/02/2006

    keys := TStringList.Create;
    keys.LoadFromFile(opendialog1.FileName);
    StringReplace(keys.TexT, ´,´,´ - ´, [rfIgnoreCase,rfReplaceAll]);
    keys.SaveToFile(opendialog1.filename);


tentei assim mas nao funcionou nao...


GOSTEI 0
Leonardobhbr

Leonardobhbr

09/02/2006

keys := TStringList.Create;
keys.LoadFromFile(opendialog1.FileName);
keys.Text := StringReplace(keys.TexT, ´,´,´ - ´, [rfIgnoreCase,rfReplaceAll]);
keys.SaveToFile(opendialog1.filename);


GOSTEI 0
POSTAR