Tema: Extraer solo números
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 28/01/2002, 14:03
Avatar de bakanzipp
bakanzipp
 
Fecha de Ingreso: noviembre-2001
Ubicación: santiago de shilli
Mensajes: 2.554
Antigüedad: 23 años, 7 meses
Puntos: 0
Re: Extraer solo números
ke te parece esta?

<pre>
While (i &lt; Len(cadena)+1)
If (IsNumeric(Mid(cadena,i,1))) Then
cadena = Left(cadena,i-1) &amp; Right(cadena,(Len(cadena)-i))
i = i - 1
End If
i = i + 1
Wend
</pre>

;)