DesFormatar String

Question

Caros colegas, como fa�o para tirar a formata��o de uma string por exemplo: uma string de cpf    cpf:=�01.123.456/0001-40� transformar em �01123456000140�Dede ja agrade�o.Lucas....

Lucas Silva · Answer

Acredito que a m�scara do seu campo deve estar assim
�99\.999\.999\/9999\-99;1;_�... se for isso mesmo � s� trocar a m�scara p/ �99\.999\.999\/9999\-99;0;_�...

se n�o resolver vc me d� o toque que tem outros jeitos....

Lucas_rp · Answer

Na verdade n�o estou usando maskedit, no arquivo ja esta gravado com a formata��o ent�o eu iria pegar o conteudo numa var do tipo string e depois eu ia tentar desformatar. Ex.:

cpf := tbcliente.fieldbyname(�cpf�).asstring;
//aqui o conteudo da cpf � �01.123.456/0001-40�

agora que eu iria tentar desformatar, mas n�o sei como.

Lucas.

Cebikyn · Answer

Pode usar o seguinte c�digo:[code:1:59f489d34d]var x : integer; str: String;begin // Edit1 cont�m o texto formatado: str := Edit1.Text; while Pos(�.�, Str) <> 0 do begin X := Pos(�.�, Str); Delete(Str, X, 1); end; while Pos(�-�, Str) <> 0 do begin X := Pos(�-�, Str); Delete(Str, X, 1); end; while Pos(�/�, Str) <> 0 do begin X := Pos(�/�, Str); Delete(Str, X, 1); end; // Edit2 conter� o texto sem formata��o: Edit2.Text := Str;end;[/code:1:59f489d34d]...

Carlos Bernardo · Answer

Voc� pode criar essa fun��o:function DeleteChar(const Ch: Char; const S: string): string;var  Posicao: integer;begin  Result := S;  Posicao := Pos(Ch, Result);  while Posicao > 0 do begin    Delete(Result, Posicao, 1);    Posicao := Pos(Ch, Result);  end;end;e depois � s� us�-la assim :    Edit1.Text  := DeleteChar(�-�,Edit1.Text);   Edit1.Text  := DeleteChar(�.�,Edit1.Text);   Edit1.Text  := DeleteChar(�/�,Edit1.Text);...

Carlosrm · Answer

lucas_rpS� para aumentar as op��es, vai mais uma:procedure.....var   I : Integer;   s : string;begin   cpf := �01.234.567/0001-89�;   s := emptystr;   for I := 1 to length(cpf) do       if (cpf in [�0�..�9�]) then            s := s + cpf;    cpf := s;           //  �01234567000189�end;abra�o. carlosrm :wink:...

Beppe · Answer

Putz, abriu concurso de fun��es? Ent�o a� vai a minha:

function UnformatString(const S: String): String;

  function UnformatBuffer(Dest, Source: PChar; Len: Integer): Integer;
  asm
        push    ebx
        push    eax

        jmp     @Check
  @Loop:
        mov     bl, [edx]
        inc     edx
        cmp     bl, �0�
        jb      @Skip
        cmp     bl, �9�
        ja      @Skip
        mov     [eax], bl
        inc     eax
  @Skip:
  @Check:
        dec     ecx
        jns     @Loop

        pop     edx
        sub     eax, edx
        pop     ebx
  end;

begin
  SetLength(Result, Length(S));
  SetLength(Result, UnformatBuffer(Pointer(Result), Pointer(S), Length(S)));
end;

Cabelo · Answer

Aqui vai uma mais simples e mais r�pida.

Com a mesma vari�vel string que vc usa, fa�a assim

cpf := stringreplace(tbcliente.fieldbyname(�cpf�).asstring, �.�, ��, [rfReplaceAll]);
cpf := stringreplace(tbcliente.fieldbyname(�cpf�).asstring, �/�, ��, [rfReplaceAll]);
cpf := stringreplace(tbcliente.fieldbyname(�cpf�).asstring, �-�, ��, [rfReplaceAll]);

vai que d� certo, � mais r�pido, pois utiliza uma fun��o do Delphi.

Sem mais

Cabelo 8)

Beppe · Answer

[quote:ff23e53595=�cabelo_uni�]vai que d� certo, � mais r�pido, pois utiliza uma fun��o do Delphi.[/quote:ff23e53595]Isto n�o quer dizer nada. E isso pode ser mais r�pido de digitar, mas em runtime � pelo menos umas 50 vezes mais lenta que a minha(eu acho que � isso que importa)....

Host · Answer

O Ataliba tem raz�o!!...

F�rum DesFormatar String #194543