Página 1 de 1
Eliminar pontos 999.999.999-99
Enviado: 28 Out 2004 20:44
por matrix
Pessoal,
Já usei um comando para eliminar os pontos,virgulas e outros caracteres que não sejam numerais, mas não estou lembrado de qual, podem me ajudar...........
?
Agradeço.
Enviado: 28 Out 2004 21:58
por Dudu_XBase
Boa Noite Matrix.
O Comando
charrem() da Catools...
// Mais detalhes...
http://www.clipx.net/ng/tools1-3/ng48f39.php
// Exemplo
cString := "DUDU-XBASE"
? Charrem("-",cString)
Ele mostrará somente "DUXUXBASE" sem o traço...
No seu Caso...
// com os pontos e traços...
cCPf := "999.999.999-99"
// sem as pestes dos pontos e traços...
cCpf2 := charrem(".-",cCpf)
Enviado: 30 Out 2004 10:29
por kenew
Se não quiser usar a CT.LIB, vc pode fazer isso na unha tambem.
exemplo:
cResultado := ""
For nnx := 1 To Len( cCPF )
If IsDigit( cCPF )
cResultado += Subs(cCPF,nnx,1)
EndIf
Next
É bom para praticar.
Enviado: 01 Nov 2004 22:37
por vagucs
Que isso gente...
cpf=strtran(cpf,".","")
Só isto removerá os pontos.
Enviado: 04 Nov 2004 10:31
por kenew
vagucs escreveu:Que isso gente...
cpf=strtran(cpf,".","")
Só isto removerá os pontos.
Não esqueça de repetir isso para os traços tambem e para todo tipo de caracter q seja diferente dos numeros.
Exemplo em CNPJ:
cnpj=strtran(cnpj,".","")
cnpj=strtran(cnpj,"/","")
cnpj=strtran(cnpj,"-","")
e por ai vai ........