Fórum Será que ninguém sabe! #147270
19/03/2003
0
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
Curtir tópico
+ 0
Responder
Posts
19/03/2003
Dor_poa
Responder
Gostei + 0
19/03/2003
Josemarlourenco
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)