[FUNCION] Extraer numeros de cadenas ExtractNums7913

Iniciado por 79137913, Mayo 27, 2013, 03:34:35 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

HOLA!!!

Código: vb
Private Function ExtractNums7913(expression As String) As String
    Dim a() As Byte
    Dim b() As Byte
    Dim ct As Long
        a = expression
        b = a
        For x = 0 To UBound(a) Step 2
            If a(x) < 58 Then
                If a(x) > 47 Then
                    b(ct + ct) = a(x)
                    ct = ct + 1
                End If
            End If
        Next
        ReDim Preserve b(ct + ct)
        ExtractNums7913 = b
End Function


GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                No tienes permitido ver enlaces. Registrate o Entra a tu cuenta