Obtener número de caracteres

[moncherote]

Hola, estoy intentando hacer una función en asp que me reciba un churro de caracteres (p.ej. AKR98JN74NX8) de longitud indefinida y me devuelva solo los caracteres numéricos (en el ej: 98748).

Se que no debe ser muy dificil pero me estoy comiendo la cabeza estos dias y no se como encararlo. Agradecería ayuda. Gracias

[Adler]

Hola

Podrías usar expresiones regulares, para reemplazar las letras

Suerte

[moncherote]

mande???

lo siento pero estoy un poco oxidado con asp y programación en general, podríais ser un poco más explicitos con un ejemplo??

[Muzztein]

checa este articulo primero, hace los ejemplos y nos avisas

http://www.aspfacil.com/articulos/020401.asp

[moncherote]

Ok, lo de compararlo a través de las expresiones regulares lo tengo claro (buen documento Muzztein). Lo que no tengo ya tan claro es como elimino de la cadena las letras y dejo solo números.

Segun el ejemplo:

Código:

patron = "[0-9]"
cadena = "AKR98JN74NX8"
set oER = New RegExp
oER.Pattern = patron
oER.IgnoreCase = True

numeros = ....

set oER = nothing

Es algo trival??

[Adler]

Hola

Prueba con esto

Código asp:

Function solonumeros(cadena)
Dim objRegExp
 
    Set objRegExp= New RegExp 
objRegExp.IgnoreCase = True
objRegExp.Global = True
 
objRegExp.Pattern = "([^0-9])"
cadena = objRegExp.Replace(cadena, "") 
 
    Set objRegExp = Nothing
 
    solonumero = cadena
 
End Function
 

Suerte

Iniciado por moncherote

Es algo trival??

..... trival? Espero que no

[moncherote]

Gracias por la respuesta Adler, al final desesperado lo hice a la vieja usanza:

Código:

 
    DIM LETRA
    DIM CLAVENUMERICA
    DIM I

    FOR I=1 TO LEN(CLAVE)
        LETRA=MID(CLAVE,I,1)

        IF ASC(LETRA) > 47 AND ASC(LETRA) < 58 THEN
          CLAVENUMERICA = CLAVENUMERICA & LETRA
        END IF
    NEXT
    MSGBOX(CLAVENUMERICA)

No resultó tan complicado, pero ya se sabe si el arbol no te deja ver el bosque...

Gracias de todos modos