Recoger numeros en string

[dvicens]

¿Hay alguna forma de sacar los numeros de una cadena? es decir:

string="abc45def54"
sacar el numero 4554

Muchas gracias

[OMiCRoM]

mira a ver si te vale esto:

<%

Function extraer_num(byval texto)
Dim aux,i

i=0
aux=""
do while (i<len(texto))
i=i+1
if Isnum(mid(texto,i,1)) then
aux=aux&mid(texto,i,1)
End if
Loop
extraer_num=aux
End Function

%>

[dvicens]

Agradezco mucho tu ayuda.... pero me da un error. me dice lo siguiente:

Error de Microsoft VBScript en tiempo de ejecución error '800a000d'

No coinciden los tipos: 'Isnum'

¿Sabes el por qué da ese error?

Gracias

[OMiCRoM]

perdon, me equivoqué con el nombre de la función jeje. Prueba esto:

Function extraer_num(byval texto)
Dim aux,i

i=0
aux=""
do while (i<len(texto))
i=i+1
if Isnumeric(mid(texto,i,1)) then
aux=aux&mid(texto,i,1)
End if
Loop
extraer_num=aux
End Function

%>

Un saludete

[dvicens]

Ya esta....
en vez de Isnum le pongo Isnumeric y funciona

Muy agradecido

[dvicens]

Hemos contestado a la vez.... :)

Gracias de nuevo