22/05/2002, 10:43
|
 | | | Fecha de Ingreso: febrero-2002
Mensajes: 101
Antigüedad: 23 años, 2 meses Puntos: 0 | |
| Re: Recoger numeros en string
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
%> |