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

Wed, 05 Sep 2007 11:40:44 -0700 

 Davi,

Mesmo que tenham dado 70.000 soluções como você disse, acho interessante a 
solução 700.001. Acho que é para isso que a lista existe: Discutir sobre um 
determinado tema.

Ricardo

Davi Eduardo Borges Wall <[EMAIL PROTECTED]> escreveu:                          
     Tamara, 
 
   
 
 Já foram dadas 700.000 soluções para esse caso. Acho que a pessoa que 
solicitou isso já montou uma biblioteca de retirar 
 
 “sinais” de uma data. Pois tantas foram as formas de solução que 
passaram pra ele. 
 
   
 
 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Tamara 
Clemente 
 Enviada em: quarta-feira, 5 de setembro de 2007 08:11 
 Para: delphi-br@yahoogrupos.com.br 
 Assunto: Re: [delphi-br] Retirar sinais de uma data 
 
   
 
 Desculpa pessoa, estou caindo meio de paraquedas na conversa, mas pelo que 
 entendi a necessidade é retirar barra ou traço separador de dia, mes e ano, 
 correto??? O formatdateTime naum ajuda???? 
 
 Tamara Clemente 
 Analista Desenvolvedora 
 
 Em 04/09/07, Eduardo Silva dos Santos <[EMAIL PROTECTED] 
<mailto:eduardo.drd%40gmail.com> > escreveu: 
 > 
 > 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] 
 > <mailto:ecastroa_edu%40yahoo.com.br> <ecastroa_edu%40yahoo.com.br>> 
 > 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] 
 > > > <mailto:ecastroa_edu%40yahoo.com.br> <ecastroa_edu%40yahoo.com.br> 
 > <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] <mailto:infowave%40jupiter.com.br>  
 > > > > <infowave%40jupiter.com.br><infowave%40jupiter.com.br><mailto: 
 > > infowave% <infowave%25>40jupiter.com.br> 
 > > > > <mailto:infowave% <infowave%25> <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] <mailto:eduardo.drd%40gmail.com>  
 > <eduardo.drd%40gmail.com> 
 > Site: http://www.drdsistemas.com/ 
 > 
 > [As partes desta mensagem que não continham texto foram removidas] 
 > 
 >  
 > 
 
 [As partes desta mensagem que não continham texto foram removidas] 
 
   
 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
     
                               

       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

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

Responder a