[RETO] + Funcion Extraer Numeros de Cadenas!

[79137913]

HOLA!!!

COMPILEN XD! Y TILDEN LAS OPCIONES AVANZADAS DE COMPILACION.

GRACIAS POR LEER!!!

[x64core]

La 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]

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!¡.

[BlackZeroX]

@BlackZeroX:
CUal es tu funcion?  :¬¬

http://foro.elhacker.net/programacion_visual_basic/reto_funcion_extraer_numeros_de_cadenas-t349507.0.html;msg1703520#msg1703520

Es una reduccion de la 1ra que puse que usa mMemoryEx es decir esta: http://foro.elhacker.net/programacion_visual_basic/reto_funcion_extraer_numeros_de_cadenas-t349507.0.html;msg1702926#msg1702926


Nota: La podre en el primer Post de este Hilo...
Dulces Lunas!¡.

[x64core]

Bien entonces son dos


http://foro.elhacker.net/programacion_visual_basic/reto_funcion_extraer_numeros_de_cadenas-t349507.0.html;msg1703520#msg1703520

http://foro.elhacker.net/programacion_visual_basic/reto_funcion_extraer_numeros_de_cadenas-t349507.0.html;msg1702926#msg1702926

EDIT:

@BlackZeroX:
Retorno long?

Funcion GetNums ( STR as string ) as string

[BlackZeroX]

Bien entonces son dos

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] Expandir



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!¡.

[x64core]

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
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]

y los tiempos?...

Dulces Lunas!¡...

[seba123neo]

he estado probando los tiempos y la ultima que puso BlackZeroX dura tres veces menos que la de Karcrack.

[x64core]

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..
Corroborar