[RETO] + Funcion Extraer Numeros de Cadenas!

Iniciado por x64core, 4 Enero 2012, 23:06 PM

0 Miembros y 5 Visitantes están viendo este tema.

79137913

HOLA!!!

COMPILEN XD! Y TILDEN LAS OPCIONES AVANZADAS DE COMPILACION.

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

79137913                          *Shadow Scouts Team*

x64core

CitarLa funcion de Karcrack crashea mmm aun asi prueba esta funcion...

La funcion de Karcrack SI FUNCIONA, ya hasta comprobe las velocidades de todas las funciones...


@BlackZeroX:
CUal es tu funcion?  :¬¬

BlackZeroX

Cita de: RHL - 该0在 en  6 Enero 2012, 02:29 AM
La funcion de Karcrack SI FUNCIONA, ya hasta comprobe las velocidades de todas las funciones...

Compruba la ultima mia!¡... Quien sabe por que me Crasheo el exe entonces xP...

Dulces Lunas!¡.
The Dark Shadow is my passion.

BlackZeroX

The Dark Shadow is my passion.


BlackZeroX

#25
Cita de: RHL - 该0在 en  6 Enero 2012, 02:36 AM
Bien entonces son dos :P

De hecho son como 4... pero usa la que te dije (esta)

-> En tu post PRINCIPAL NUNCA mencionas el prototipo, si el prototipo es:

Private Sub getNumbers3(ByRef sIn As String)

Entonces usa esta:

Código (vb) [Seleccionar]


Private Sub getNumbers3(ByRef sIn As String)
Dim thisWord(0) As Integer  '   //  Un caracter = 2 bytes = integer
Dim dwOffSetGet As Long     '   //  Offset Get caracter...
Dim dwOffSetSet As Long     '   //  Offset Set caracter...
Dim wWord       As Integer  '   //  Letra en asc...
Dim dwLenI      As Long     '   //  Longitud en bytes de sIn...

    dwOffSetGet = ((StrPtr(sIn) - VarPtr(thisWord(0))) \ 2)
    dwOffSetSet = dwOffSetGet
    dwLenI = LenB(sIn)

    If (dwLenI) Then
        Do
            If (dwLenI And &H80000000) Then Exit Do
           
            wWord = thisWord(dwOffSetGet)
           
            If (wWord >= &H30) Then
                If (wWord <= &H39) Then
                    thisWord(dwOffSetSet) = wWord
                    dwOffSetSet = (dwOffSetSet + 1)
                End If
            End If
           
            dwOffSetGet = (dwOffSetGet + 1)
            dwLenI = (dwLenI - 2)
           
        Loop While (wWord > 0)
    End If

    thisWord(dwOffSetSet) = &H0&
   
End Sub



Dulces Lunas!¡.
The Dark Shadow is my passion.

x64core

Cita de: BlackZeroX (Astaroth) en  6 Enero 2012, 02:39 AM
De hecho son como 4... pero usa la que te dije (esta)

Nota: En tu post PRINCIPAL NUNCA mencionas el prototipo, avisame y te la pongo modificada ¬¬"...

Dulces Lunas!¡.

Si, pido disculpa por eso al fin y al cabo creo que ya hay ganador :xD
pero para que el reto sea lo mas transparente posible y para todos esten conforme con los resultados
igual la funcion de Karcrack devuelve en la misma variable, igual que la mía, igual solo se hace
var = var




BlackZeroX

The Dark Shadow is my passion.

seba123neo

he estado probando los tiempos y la ultima que puso BlackZeroX dura tres veces menos que la de Karcrack.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

x64core

Cita de: seba123neo en  6 Enero 2012, 03:01 AM
he estado probando los tiempos y la ultima que puso BlackZeroX dura tres veces menos que la de Karcrack.

Las pruebas en tiempo de ejecucion no?
creo que solo así se podra comparar una que solo se obtiene el resultado en tiempo de ejecucion que otra desde el IDE.. :P
Corroborar :P