USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Função pegar todo carracteres, menos numericos
Juninho 02
GUAXUPÉ
MG - BRASIL
ENUNCIADA !
Postada em 14/08/2006 10:59 hs         
Boa dia pessoal
 
Alguém tem função que pegar todo carracteres, menos numericos de uma string tipo assim
 
ABCD-454.554.545 retorno sera ABCD-
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 14/08/2006 11:23 hs            
Basicamente:
 
Private Function F_SoChr(byVal Texto as String) as String
 
Dim Txt as String
 
  For i = 1 To Len(Texto)
      If Not IsNumeric(Mid(Texto, i, 1)) Then
          Txt = Txt & Mid(Texto, i, 1)
      End If
  Next
  F_SoChr = Txt
End Function
 
Mas uma coisa... os ptos tb vão voltar... => ABCD-...
O q vc quer sempre será neste formato?? => Letras-numeros
Ou pode vir coisa assim?

A.BC.D-123.456.890
TÓPICO EDITADO
   
Juninho 02
GUAXUPÉ
MG - BRASIL
ENUNCIADA !
Postada em 14/08/2006 11:27 hs         
Quero que tire os pontos, espaços em branco tb...
 
Preciso ajustar a formatação dos RGs dos clientes do meu cliente
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 14/08/2006 11:36 hs            
e o formato sempre vem Letra traço número?? => ABCD-123.456.789
????
     
Juninho 02
GUAXUPÉ
MG - BRASIL
ENUNCIADA !
Postada em 14/08/2006 11:54 hs         
Sim, vai ficar assim 12.345.678 SSP/MG, na banco de dados ta tudo bangunçado tem
MG-0122333, MG123456 MG- 123.456.789 SSP/MG O FORMATO FINAL VAI SER ESSE 12.345.678 SSP/MG
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 14/08/2006 13:19 hs            
ah....pelo q vc me mostrou nem sempre vai ter traço... se sempre ficar assim então para retirar os ptos faz assim:
 
Private Function F_SoChr(byVal Texto as String) as String
 
Dim Txt as String
 
  For i = 1 To Len(Texto)
      If Not IsNumeric(Mid(Texto, i, 1)) Then
          Txt = Txt & Mid(Texto, i, 1)
      End If
  Next
  F_SoChr = Replace(Txt,".","") 'Tira os pontos
End Function
 
Para tirar tb os traços é a mesma coisa...
 
espero q te ajude...
 
t+
TÓPICO EDITADO
 
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página