elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [RETO] + Funcion Extraer Numeros de Cadenas!
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 2 [3] 4 5 6 Ir Abajo Respuesta Imprimir
Autor Tema: [RETO] + Funcion Extraer Numeros de Cadenas!  (Leído 21,190 veces)
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #20 en: 6 Enero 2012, 02:27 am »

HOLA!!!

COMPILEN XD! Y TILDEN LAS OPCIONES AVANZADAS DE COMPILACION.

GRACIAS POR LEER!!!


En línea

"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


Desconectado Desconectado

Mensajes: 1.908


Ver Perfil
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #21 en: 6 Enero 2012, 02:29 am »

Citar
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?  :¬¬


En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.148


I'Love...!¡.


Ver Perfil WWW
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #22 en: 6 Enero 2012, 02:30 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!¡.
En línea

The Dark Shadow is my passion.
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.148


I'Love...!¡.


Ver Perfil WWW
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #23 en: 6 Enero 2012, 02:32 am »

@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!¡.
En línea

The Dark Shadow is my passion.
x64core


Desconectado Desconectado

Mensajes: 1.908


Ver Perfil
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #24 en: 6 Enero 2012, 02:36 am »

Bien entonces son dos :P


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


« Última modificación: 6 Enero 2012, 02:38 am por RHL - 该0在 » En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.148


I'Love...!¡.


Ver Perfil WWW
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #25 en: 6 Enero 2012, 02:39 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
  1.  
  2. Private Sub getNumbers3(ByRef sIn As String)
  3. Dim thisWord(0) As Integer  '   //  Un caracter = 2 bytes = integer
  4. Dim dwOffSetGet As Long     '   //  Offset Get caracter...
  5. Dim dwOffSetSet As Long     '   //  Offset Set caracter...
  6. Dim wWord       As Integer  '   //  Letra en asc...
  7. Dim dwLenI      As Long     '   //  Longitud en bytes de sIn...
  8.  
  9.    dwOffSetGet = ((StrPtr(sIn) - VarPtr(thisWord(0))) \ 2)
  10.    dwOffSetSet = dwOffSetGet
  11.    dwLenI = LenB(sIn)
  12.  
  13.    If (dwLenI) Then
  14.        Do
  15.            If (dwLenI And &H80000000) Then Exit Do
  16.  
  17.            wWord = thisWord(dwOffSetGet)
  18.  
  19.            If (wWord >= &H30) Then
  20.                If (wWord <= &H39) Then
  21.                    thisWord(dwOffSetSet) = wWord
  22.                    dwOffSetSet = (dwOffSetSet + 1)
  23.                End If
  24.            End If
  25.  
  26.            dwOffSetGet = (dwOffSetGet + 1)
  27.            dwLenI = (dwLenI - 2)
  28.  
  29.        Loop While (wWord > 0)
  30.    End If
  31.  
  32.    thisWord(dwOffSetSet) = &H0&
  33.  
  34. End Sub
  35.  
  36.  

Dulces Lunas!¡.
« Última modificación: 6 Enero 2012, 02:48 am por BlackZeroX (Astaroth) » En línea

The Dark Shadow is my passion.
x64core


Desconectado Desconectado

Mensajes: 1.908


Ver Perfil
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #26 en: 6 Enero 2012, 02:49 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



En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.148


I'Love...!¡.


Ver Perfil WWW
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #27 en: 6 Enero 2012, 02:50 am »

y los tiempos?...

Dulces Lunas!¡...
En línea

The Dark Shadow is my passion.
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #28 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.
En línea

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


Desconectado Desconectado

Mensajes: 1.908


Ver Perfil
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #29 en: 6 Enero 2012, 03:07 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
En línea

Páginas: 1 2 [3] 4 5 6 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
App para buscar info y cadenas de numeros en MYSQL
Programación Visual Basic
A2Corp 2 3,141 Último mensaje 14 Mayo 2008, 18:47 pm
por odeONeSs
[RETO] Funcion iFactorize() - Factorizacion de numeros enteros « 1 2 »
Programación Visual Basic
Karcrack 15 8,412 Último mensaje 19 Julio 2010, 17:19 pm
por FFernandez
Reto: Números primos en python
Ejercicios
Novlucker 6 8,549 Último mensaje 24 Noviembre 2010, 16:02 pm
por Novlucker
[RETO] + Funcion Extraer Numeros de Cadenas! [Cpp/C] « 1 2 3 4 »
Programación C/C++
x64core 39 27,449 Último mensaje 8 Enero 2012, 00:58 am
por Eternal Idol
¿Como extraer cadenas especificas de un perfil wireless xml? « 1 2 »
Programación C/C++
Romualdo23 16 5,906 Último mensaje 25 Abril 2015, 22:20 pm
por ivancea96
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines