Re: [delphi-br] Retirar sinais de uma data

Tue, 04 Sep 2007 15:36:31 -0700 

da pra fazer de várias formas mesmo, eu mesmo uso essa rotina..


function remove_carcter(sString:String):String;
var
  cSpecial: String;
  nPos, nConta: Integer;
begin

 cSpecial :=
';~ø.`''''()[EMAIL 
PROTECTED]&*_-+=}{[]|\/".,<>?*-+€‚,.ƒ„…†‡ˆ‰Š‹ŒŽ''""•–—˜™š›œžŸ
¡¢£¤¥¦§¨(c)ª«¬­(r)¯°±²³´µ¶·¸¹º»¼½¾¿ÆÐ';
 Result   := '';
 for nConta := 1 to Length(cSpecial) do begin
   while Pos(cSpecial[nConta],sString ) > 0 do
     System.Delete(sString, Pos(cSpecial[nConta],sString ) ,1);
  end;
  Result := sString;

end;



Em 04/09/07, Eduardo Castro Alves <[EMAIL PROTECTED]> escreveu:
>
>   Ricardo, no seu lugar eu faria o mesmo.
>
> Nunca altero o que esta funcionando, só postei para você ver que existe
> uma maneira usando uma unica variavel para o loop.
>
> Eduardo
>
> Ricardo Cabral escreveu:
> >
> > Eduardo,
> >
> > É isso mesmo !
> > Valeu por mandar uma versão melhorada. Usei a minha e deixei ela como
> > tava.
> >
> > Abraços,
> >
> > Ricardo
> >
> > Eduardo Castro Alves <[EMAIL PROTECTED]<ecastroa_edu%40yahoo.com.br>
> > <mailto:ecastroa_edu%40yahoo.com.br>> escreveu: Ricardo, pelo que eu
> > entendi, você pega um texto e transforma em um
> > texto só de numeros.
> >
> > Assim tb funciona.
> >
> > function ExtractNumber(pValor : String) : String;
> > var
> > i : Integer;
> > begin
> > Result := '';
> > for i := 1 to Length(pValor) do
> > begin
> > if pValor[i] in ['0'..'9'] then
> > Result := Result + pValor[i];
> > end;
> > end;
> >
> > Eduardo
> >
> > Ricardo Cabral escreveu:
> > >
> > > Paulo,
> > >
> > > Não sei se já existe no delphi, mas eu uso essa para qualquer string.
> > >
> > > Espero ter ajudado.
> > >
> > > Ricardo Cabral
> > >
> > > Function Tffuncoes.numeros(valor : string) : string; // Limpa string e
> > > deixa soimente numeros
> > > var
> > > i : integer;
> > > xvalor : string;
> > > xnum : String;
> > > begin
> > > xvalor:=trim(valor);
> > > xnum:='0123456789';
> > > valor:='';
> > > for i := 1 to Length(xvalor) do
> > > begin
> > > if pos(copy(xvalor,i,1),xnum)>0 then
> > > valor:=valor+copy(xvalor,i,1);
> > > end;
> > > result:=valor;
> > > end;
> > >
> > > pcinfowave <[EMAIL PROTECTED] <infowave%40jupiter.com.br><mailto:
> infowave% <infowave%25>40jupiter.com.br>
> > > <mailto:infowave% <infowave%25>40jupiter.com.br>> escreveu: Ola
> amigos,
> > > Alguem podria me passar uma função que retire os sinais de uma data,
> > > deixando apenas os numeros?
> > > Obrigado!
> > > []´
> > > Paulo
> > >
> > >
> > >
> > >
> > >
> > > Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> >
> >
> >
> >
> >
> > Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
> 
>



-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/


[As partes desta mensagem que não continham texto foram removidas]

Responder a