Será que ninguém sabe!
Uma função que faça leitura em arquivo txt procurando por um parâmetro passado a ela e troque apenas a string que eu passei como parâmetro quando encontrada.
Rodrigo Ferreira
Rodrigo Ferreira
Rodrigo Ferreira
Curtidas 0
Respostas
Dor_poa
19/03/2003
GOSTEI 0
Josemarlourenco
19/03/2003
Faça a leitura do arquivo, linha a linha.
A cada linha, chame a procedure abaixo, para fazer a troca.
Procedure Replace(var Texto: string; De, Para: String);
Var iPos: Integer;
begin
iPos := pos(De, Texto);
If iPos > 0 Then
Begin
Delete(Texto, iPos, Length(De));
Insert(Para, Texto, iPos);
End;
End;
Para saber como ler arquivos textos, dê uma olhada no help do delphi.
Josemar
A cada linha, chame a procedure abaixo, para fazer a troca.
Procedure Replace(var Texto: string; De, Para: String);
Var iPos: Integer;
begin
iPos := pos(De, Texto);
If iPos > 0 Then
Begin
Delete(Texto, iPos, Length(De));
Insert(Para, Texto, iPos);
End;
End;
Para saber como ler arquivos textos, dê uma olhada no help do delphi.
Josemar
GOSTEI 0