Eliminar pontos 999.999.999-99

matrix · Mensagem por **matrix** » 28 Out 2004 20:44

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.

Mensagem por **Dudu_XBase** » 28 Out 2004 21:58

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)

kenew · Mensagem por **kenew** » 30 Out 2004 10:29

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.

Mensagem por **vagucs** » 01 Nov 2004 22:37

Que isso gente...

cpf=strtran(cpf,".","")

Só isto removerá os pontos.

kenew · Mensagem por **kenew** » 04 Nov 2004 10:31

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 ........