[Resolvido] Eliminar letra e manter apenas números

[Patrique 0]

Fala ae pessoal

 

Alguém ae tem alguma função para pegar uma string e limpar ela deixando apenas os números, tipo estou com um texto mais ou menos assim em uma string

 

string = "patrique te 25 anos de vida"

 

gostaria de uma função que verificasse a string e pegasse apenas o número, neste caso 25

 

procurei aqui no fórum mais não encontrei nada que fizesse isso.

 

Se alguém ae souber por favor poste ae!

 

desde já agradeço,

Patrique

 

Edit....

 

Opa... achei uma função, desculpem ae... eu postei e depois fui procurar no google, acabei achando... segue abaixo para quem quiser.

 

texto = tratado(2)
tamanho = len(texto)
for i = 1 to tamanho
  if Isnumeric(mid(texto,i,1)) = true then
	 numeros = numeros & mid(texto,i,1)
  end if
next
response.write numeros

valew!

[filipescoob 1]

Pegue uma função que tira acento, e no lugar dos acentos coloque um array com as Strings.

[nagaozen 1]

Fala ae pessoal

 

Alguém ae tem alguma função para pegar uma string e limpar ela deixando apenas os números, tipo estou com um texto mais ou menos assim em uma string

 

string = "patrique te 25 anos de vida"

 

gostaria de uma função que verificasse a string e pegasse apenas o número, neste caso 25

 

procurei aqui no fórum mais não encontrei nada que fizesse isso.

 

Se alguém ae souber por favor poste ae!

 

desde já agradeço,

Patrique

 

Edit....

 

Opa... achei uma função, desculpem ae... eu postei e depois fui procurar no google, acabei achando... segue abaixo para quem quiser.

 

texto = tratado(2)
tamanho = len(texto)
for i = 1 to tamanho
  if Isnumeric(mid(texto,i,1)) = true then
	 numeros = numeros & mid(texto,i,1)
  end if
next
response.write numeros

valew!

Putz, essa função é horrível!

 

numeros = numeros & mid(texto,i,1) 'Please, kill me

[Patrique 0]

Qual você me sugere?

[jrcardozo 4]

eu uso esta que criei

<%
	 Function retornarNumero(entrada)
		 Dim i, char, 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
	 End Function
 %>

[Patrique 0]

Pratique... heheheheheheh Patrique

 

Mais valew... vou testar essa cara! obrigado!

 

[]'s

[nagaozen 1]

Pratique... heheheheheheh Patrique

 

Mais valew... vou testar essa cara! obrigado!

 

[]'s

Po, falei que a função era ruim mas não coloquei uma versão melhor, né? O problema dessas funções acima, é que elas caem no problema de String concatenation. Esse problema faz o compilador ficar procurando espaço na memória a cada iteração, porque no VBScript as strings tem caráter estático. Então fiz uma outra versão que reserva na memória o espaço total e só vai retirando o q não precisa.

 

<%

function stripAlpha(value)
	stripAlpha = value
	dim Re, Match, Matches
	
	set Re = new RegExp
	Re.pattern = "[^0-9]"
	Re.global = true
	Re.ignoreCase = true
	
	set Matches = Re.execute(value)
	for each Match in Matches
		stripAlpha = replace(stripAlpha, Match, "")
	next
	set Matches = nothing
	
	set Re = nothing
end function

Response.write( stripAlpha("H3llo W0rld") )

%>

Espero ter sido mais construtivo.

 

Atenciosamente,

 

Fabio Zendhi Nagao (nagaozen)

[Claudio Neto 3]

Qual você me sugere?

Patrique, acho que sua função está ótima desse jeito, é simples e funcional, use a sua mesmo, se por algum acaso der erro, ai poste aqui para tentar melhorá-la, mas duvido que o mesmo ocorra.

[Patrique 0]

Opa agradeço a atenção ae galera, vou testar os 2 codes aqui e o que se sair melhor nos testes eu fico!

 

Tópico resolvido!

 

[]'s

[Ted k' 126]

quando obter o resultado desejado, avisa para a galera hehe, tbm quero saber!!

[Patrique 0]

Olha é para uma coisa voltada a galera aqui do fórum mesmo hehehehehe vai contribuir a todos kkkkkkkkkkk mais so vou falar quando terminar heuheuheuheuhehe num sei se vou terminar ainda este mes pois to atoladão de trampos, mais sempre quando tiver um tempinho eu vou mecher nisso!

 

bom, falei de mais! kkkkkk

 

[]'s

[hargon 64]

Muito bom jovem Patrique.

 

Precisando de ajuda é só falar.

[Patrique 0]

Beleza mano, se precisar eu darei um gritinho uahahuahuauhahua

 

[]'s