31/05/2008, 03:48
|
| Colaborador | | Fecha de Ingreso: enero-2008 Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses Puntos: 37 | |
| Respuesta: Usar Split () y Expresion Regular para numeros
Hola,
otra forma de hacer lo mismo sin utilizar la función Split: Dim i As Integer
Dim sLetra As String, sResult As String
For i = 1 To Len(Text1(2))
sLetra = Mid(Text1(2), i, 1)
If InStr("0123456789", sLetra) > 0 Then Exit For
Next i
sResult = Left(Text1(2), i - 1)  |