Retirar zero e espa�os de arquivo texto...?

Question

Ol�  pessoal, preciso da ajuda de vcs  para resolver meu problema. Observem o trecho de um arquico de Texto (Dados). Q Usamos para consultar produtos... Os c�digos formados por 13 digitos ex 789123456...

Cpd_arim · Answer

function RemoveChar(Const Texto:String):String;
//
// Remove caracteres de uma string deixando apenas numeros
//
var
I: integer;
S: string;
begin
S := ��;
for I := 1 To Length(Texto) Do
begin
if (Texto[I] in [�0�..�9�]) then
begin
S := S + Copy(Texto, I, 1);
end;
end;
result := S;
end;

Alves · Answer

Vou testar depois volto pra dizer de c deu certo.......
eskeci de mencionar q so kero tirar os zeros o resto da linha tem q ficar como esta...

function RemoveChar(Const Texto:String):String; // // Remove caracteres de uma string deixando apenas numeros // var I: integer; S: string; begin S := ��; for I := 1 To Length(Texto) Do begin if (Texto[I] in [�0�..�9�]) then begin S := S + Copy(Texto, I, 1); end; end; result := S; end;

Rjun · Answer

Seu arquivo � muito grande? Talvez voc� possa fazer isso:

var
  Arquivo: TStringList;
begin
  Arquivo := TStringList.Create;
  try
    Arquivo.LoadFromFile(�Arquivo.txt�);
    StringReplace(Arquivo.Text, �0�, ��, rfReplaceAll);
    Arquivo.SaveToFile(�Arquivo.txt�);
  finally
    FreeAndNil(Arquivo);
  end;

Dorivansousa · Answer

StrToFloat(FloatToStr(codigo))...vai tirar os zeros � esquerda....

Alves · Answer

N�o, tem 1,10 mb com +/- 13 mil linhas....

vou mexer com isso logo mais a noite......

Seu arquivo � muito grande? Talvez voc� possa fazer isso:

var
  Arquivo: TStringList;
begin
  Arquivo := TStringList.Create;
  try
    Arquivo.LoadFromFile(�Arquivo.txt�);
    StringReplace(Arquivo.Text, �0�, ��, rfReplaceAll);
    Arquivo.SaveToFile(�Arquivo.txt�);
  finally
    FreeAndNil(Arquivo);
  end;

F�rum Retirar zero e espa�os de arquivo texto...? #340339