Olá a todos
existe um campo de livre formatação onde o usuário podia cadastrar livremente códigos assim:
64.718.749.100-53
18.166.002.268-890
27.089.276-1
43.394.650.200-99
16.109.650-6
Agora preciso atualizar o sistema e mudar automaticamente o conteúdo desses campos para somente dígitos, assim:
6471874910053
18166002268890
270892761
4339465020099
161096506
Existe alguma função que me permita fazer isso?
[]'s
Rogerio
yvar := strtran(strtran(xvar,".",""),"-","")Valor:= remove("12.123123-123123")
alert( valor ) // saida 12123123123123
function remove(var)
var := StrTran( var, ".", "" )
var := StrTran( var, "-", "" )
return var
Obrigado a todos pela resposta.
Mas achei que existisse alguma função que retornasse apenas os números, pois o usuário pode ter colocado qualquer sinal, além de , . - .
[]'s
.......
.......
local cxvar
local cyvar
cxvar :="123.1234.455-55"
cyvar := solonumeros(cxvar)
......
......
return
function solonumeros(cxvar)
local nveces
local ctemp
local cchar
for nveces = 1 to len(cxvar)
cchar:=substr(cxvar,nveces,1)
if cchar $ "01234567890"
if nveces == 1
ctemp:=cchar
else
ctemp+=cchar
endif
endif
next nveces
return ctempPerfeito Lautaro
era isso mesmo.
obrigado.
[]'s
Rogerio