Substituir caracteres em um arquivo texto...

Delphi

27/04/2003

Oi pessoal!!!

Como faço para procurar por certo caractere em um arquivo texto e quando encontra-lo substituir por outro (quantas vezes for necessário)?

no meu caso preciso substituir todas as ocorrências de #13 ou 10 por 1310 , devido a alguns probleminhas de quebra de linha no notepad...

Valeu!!!

Aquele Abraço!!!

Tiago Farinon


Tiago Farinon

Tiago Farinon

Curtidas 0

Respostas

::d::a::m::m::i::t::

::d::a::m::m::i::t::

27/04/2003

function ComverteTexto(texto: string): String;
var
   n, cont: integer;
begin
   n:=length(texto);
   for cont:=1 to n do if (texto[cont]=13) or (texto[cont]=10) then
      texto[cont]:=1310;
   result:=texto;
end;


da uma testada nessa função.......naum sei se é bem isso q vc quer....mas espero ter ajudado....


falowwwww.......


GOSTEI 0
Rebel_inside

Rebel_inside

27/04/2003

function ComverteTexto(texto: string): String;
var
   n, cont: integer;
begin
   n:=length(texto);
   for cont:=1 to n do if (texto[cont]=13) or (texto[cont]=10) then
      texto[cont]:=1310;
   result:=texto;
end;
da uma testada nessa função.......naum sei se é bem isso q vc quer....mas espero ter ajudado.... falowwwww.......


essa função não vai funcionar :/
for cont:=1 to n do if (texto[cont]=13) or (texto[cont]=10) then texto[cont]:=1310;


porque quando vc diz que texto[cont]:= 1310, vc está definindo 2 caracteres quando deveria estar definindo um só.

faça o seguinte então:

procedure CorrigiCRLF(AFileName: String);
var
l: TStringList;
begin
l:= TStringList.Create;
try
l.LoadFromFile(AFileName);
l.SaveToFile(AFileName);
finally
FreeAndNil(l);
end;
end;

Uma coisa interessante é que o TSringList já faz isso, então fica fácil de converte-los =)

Agora não sei se o TStringList do Kylix faz isso também, dê uma estudada nos fontes do Delphi (unit Classes).

espero ter ajudado.
[]´s


GOSTEI 0
Tiago Farinon

Tiago Farinon

27/04/2003

Era exatamente isso que eu precisava!!!

E sem querer matastes tb outro velho problema que eu tinha!!!
é que eu não conhecia TStringList :oops: hehehehe

cara... foi na mosca!!! Tipo... 2 coelhos com uma cajadada soh!!!
hehehehe

Abração!!!
Tiago


GOSTEI 0
POSTAR