Substituir caracteres em um arquivo texto...

Question

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�ncia...

::d::a::m::m::i::t:: · Answer

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

Rebel_inside · Answer

[quote:01a131b268=�::d::a::m::m::i::t::�][code:1:01a131b268]function ComverteTexto(texto: string): String;var   n, cont: integer;begin   n:=length(texto);   for cont:=1 to n do if (texto&#91;cont&93;=13) or (texto&91;cont&93;=10) then      texto&91;cont&93;:=1310;   result:=texto;end;[/code:1:01a131b268]da uma testada nessa fun��o.......naum sei se � bem isso q vc quer....mas espero ter ajudado....falowwwww.......[/quote:01a131b268]essa fun��o n�o vai funcionar :/[quote:01a131b268]   for cont:=1 to n do if (texto[cont]=13) or (texto[cont]=10) then      texto[cont]:=1310;[/quote:01a131b268]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...

Tiago Farinon · Answer

Era exatamente isso que eu precisava!!!E sem querer matastes tb outro velho problema que eu tinha!!!� que eu n�o conhecia TStringList  :oops: hehehehecara... foi na mosca!!! Tipo... 2 coelhos com uma cajadada soh!!!heheheheAbra��o!!!Tiago...