Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

rogerio.prince

recuperar apenas numero de uma string

Recommended Posts

Pessoal como faço para recuperar apenas numero de uma string passada via formulario:

 

tipo:

12.000.222/0001-99

00.908.006-88

A999890

A2C45D78

 

e por ai vai...

 

quero gravar no bd apenas os numeros passado pela string.

 

Obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Alguem sabe fazer isso?

 

Pessoal como faço para recuperar apenas numero de uma string passada via formulario:

 

tipo:

12.000.222/0001-99 ficaria: 12000222000199

00.908.006-88 ficaria: 0090800688

A999890 ficaria: 999890

A2C45D78 ficaria: 24578

 

e por ai vai...

 

quero gravar no bd apenas os numeros passado pela string.

 

Obrigado

 

Compartilhar este post


Link para o post
Compartilhar em outros sites


'retornarNumero: retorna somente os números de uma string(para tratar a entrada na validação de dados)

Function retornarNumero(entrada)

Dim i

Dim char

Dim saida

entrada = Trim("" & entrada)

For i = 1 To Len(entrada)

char = Mid(entrada, i, 1)

If InStr("|48|49|50|51|52|53|54|55|56|57|", "|" & Asc(char) & "|") <> 0 Then

saida = saida & char

End If

Next

retornarNumero = saida

Set i = Nothing

Set char = Nothing

Set saida = Nothing

End Function

response.write retornarNumero("minha string com os numeros R$ 10,52")

Compartilhar este post


Link para o post
Compartilhar em outros sites

neste caso eu acho mais fácil da um replace ja que ele quer tirar apenas os pontos, se for em um caso aonde usuários poderiam colocar outro tipo de valor, ai sim eu usaria uma function, mais boa funcao esta.

Compartilhar este post


Link para o post
Compartilhar em outros sites

a função faz o "replace" testando caracter por caracter. se for numero devolve na variavel, se não passa reto

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pessoal, utilizei a função abaixo usando replace para retirar caracteres de um cnpj mas não funcionou...

 

function LimparTexto(str)
str = trim(str)
str = replace(str,".","")
str = replace(str,"-","")
str = replace(str,"/","")
str = replace(str,"=","")
str = replace(str,"'","")
str = replace(str,"""""","")
str = replace(str,"(","")
str = replace(str,")","")
str = replace(str,"<","[")
str = replace(str,">","]")
str = replace(str,"'","")
str = replace(str,"#","")
str = replace(str,"$","")
str = replace(str,"%","")
str = replace(str,"¨","")
str = replace(str,"&","")
str = replace(str,"*","")
LimparTexto = str
end function

valor = request.form(LimparTexto("CNPJ"))

Compartilhar este post


Link para o post
Compartilhar em outros sites

está errado, tem q ser:

valor = LimparTexto(request.form("CNPJ"))

 

tentou a que eu passei? essa que você colocou não vai retirar se tiver letras na string

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.