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
Como eliminar pontos e traços de um campo
Re: Como eliminar pontos e traços de um campo
Rogerio,
a la rapida se me ocurre esto :
atte.,
Lautaro Moreira
a la rapida se me ocurre esto :
Code: Select all
yvar := strtran(strtran(xvar,".",""),"-","")
Lautaro Moreira
-
- Posts: 603
- Joined: Sun May 04, 2008 8:44 pm
Re: Como eliminar pontos e traços de um campo
Valor:= remove("12.123123-123123")
alert( valor ) // saida 12123123123123
function remove(var)
var := StrTran( var, ".", "" )
var := StrTran( var, "-", "" )
return var
alert( valor ) // saida 12123123123123
function remove(var)
var := StrTran( var, ".", "" )
var := StrTran( var, "-", "" )
return var
- rogerio
- Posts: 83
- Joined: Wed Nov 09, 2005 11:22 pm
- Location: São Lourenço da Serra - SP - Brasil
- Contact:
Re: Como eliminar pontos e traços de um campo
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
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
Re: Como eliminar pontos e traços de um campo
Rogerio :
deberia funcionar.
atte.,
Lautaro Moreira
Code: Select all
.......
.......
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 ctemp
atte.,
Lautaro Moreira
- rogerio
- Posts: 83
- Joined: Wed Nov 09, 2005 11:22 pm
- Location: São Lourenço da Serra - SP - Brasil
- Contact:
Re: Como eliminar pontos e traços de um campo
Perfeito Lautaro
era isso mesmo.
obrigado.
[]'s
Rogerio
era isso mesmo.
obrigado.
[]'s
Rogerio