|
|
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- |
|
|
|
|
|
|
|
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
|
|
|
|
|
|
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 |
|
|
|
|
|
Postada em 14/08/2006 11:36 hs
e o formato sempre vem Letra traço número?? => ABCD-123.456.789 ???? |
|
|
|
|
|
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 |
|
|
|
|
|
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
|
|
|
|
