Só números

[paginad 0]

Alguém tem alguma função em ASP para extrair somente os números de uma string?

 

tipo teste.asp?t=146teste

 

Preciso que extraia somente o 146.

 

Obrigado deste já.

[hargon 64]

<%

Dim teste

 

teste = "12345harg00on"

 

Function apenasNumeros(varTexto)

Dim i

 

For i=0 To 255

If ((i < 48) Or (i > 57)) Then

varTexto = replace(varTexto,chr(i),"")

End If

Next

 

apenasNumeros = varTexto

End Function

 

Response.Write apenasNumeros(teste)

%>

[jrcardozo 4]

essa é outra sugestão

 

Function pegarValorQueryString(link, parameter)
		Dim firstPosition, lastPosition
		firstPosition = inStr(1, link, parameter, vbTextCompare)
		If firstPosition <> 0 Then
			link = Mid(link, firstPosition)
			firstPosition = inStr(link, "=")
			If firstPosition <> 0 Then
				link = Mid(link, firstPosition + 1 )
				lastPosition = inStr(link, "&")
				If lastPosition <> 0 Then
					link = Mid(link, 1, lastPosition - 1)
				End If
			End If
		End If
		pegarValorQueryString = link
	End Function

[Ted k' 126]

esse gaúcho (daê) aparece com cada código bruto, hehe!

[hargon 64]

Gaúcho, não testei seu código, mas pelo que li, não entendi como ele separa número de letras. Ele faz isso?

 

Parece que ele só pega os parâmetros de um link.

[xanburzum 169]

você também pode usar regular expression para extrair só números

[jrcardozo 4]

Gaúcho, não testei seu código, mas pelo que li, não entendi como ele separa número de letras. Ele faz isso?

 

Parece que ele só pega os parâmetros de um link.

Exatamente hargon, ele só pega o valor da querystring desejado, e dá pra fazer o que o está querendo.