[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!!!

Edite la funcion, cambie los ct *2 por ct + ct XD.

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*

Psyke1

Me apunto, aunque estoy muy oxidado, mañana pongo la mía. :-\

@Karcrack
¿Por qué haces el bucle así?  :huh:

DoEvents! :P

chronos682

De esta forma es muy lento?


Private Function GetNumbers(sText As String) As String
Dim i As Integer
Dim sTmp As String
For i = 1 To Len(sText)
    If IsNumeric(Mid$(sText, i, 1)) = True Then sTmp = sTmp & Mid$(sText, i, 1)
Next
GetNumbers = sTmp
End Function

BlackZeroX

#43
Citar
la ultima de Karcrack, me crashea, ya le deshabilite lo de las matrices, pero igual.

De hecho a mi tambien, eso pasa por que despues de X posición esta leyendo algo que no deberia de leer... muy adelante de los 2 bytes NULOS segun la structura de BSTR, esto es por culpa de repetir sus if then y no comprobar si se deben realizar o no...

Citar
@Karcrack
¿Por qué haces el bucle así?  :huh:

Es para ahorrarse (Supongo) los jmp, cmp, etc, algo asi como {1,2,3, volver} es decir por cada 3 if then vuelve, en lugar de que cada 1 if then vuelve: Donde vuelve es una o varias instruccion(es) extra(s)...

NOTAS:
Según mi criterio y citando a karcrack que una ves me dijo apegate a las reglas y usa collection (tambien seba123neo me lo dijo, esto lo recuerdo por que apenas me tope con este comentario q°w°p).

1.- Si el prototipo explicito es: Function MYfunction(STR As String) As String
1.1.- No deberia agregarse STATIC de ninguna manera.
1.2.- Su funcion no retorna la string en ningun caso por la función.

Estos puntos son extras...
2.- Debido a que Function MYfunction(STR As String) As String.
2.1.- Es equitativo a: Function MYfunction(byref STR As String) As String mas no a byval.

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

Karcrack

El bucle esta "desenrollado":
http://en.wikipedia.org/wiki/Loop_unwinding

Respecto a lo de las reglas... tienes toda la razón, no voy a rehacer la función porque no tengo tiempo. Aún así faltó un poco más de claridad al crear el reto respecto a ese tema.. y no habiendo nada estricto sobre la declaración de la función decidí jugar un poco :P

Psyke1

@Black tu función me da error aquí:
wWord = thisWord(dwOffSetGet)

Subscript out range

DoEvents! :P

seba123neo

Cita de: Psyke1 en  8 Enero 2012, 15:36 PM
@Black tu función me da error aquí:
wWord = thisWord(dwOffSetGet)

Subscript out range

DoEvents! :P

lo tenes que probar compilado y chequearle la opcion de "Quitar comprobaciones en limites de las matrices" en las opciones de compilacion.
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

Psyke1

#47
@seba123neo
Gracias, culpa mía que no leí bien. ;)




Después pongo mi forma de hacerlo...

DoEvents! :P

BlackZeroX

#48
OJO mi función limpia sTest en otras palabras, despues de mi funcion sTest es una cadena vacia... por lo tanto deberian hacerse los test de otra menera:

por ejemplo...


   t.Reset
   For x = 1 To LOOPS
       sTest = STR
       RUSTICOnumbers_eCode sTest
   Next x



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

Psyke1

OJO mi función limpia sTest en otras palabras, despues de mi funcion sTest es una cadena vacia... por lo tanto deberian hacerse los test de otra menera:
Comprendo, ahora encaja todo... por cierto...
¿Y eso no es trampa? :huh: Se supone que sTest lo debe dejar como está, como las demás funciones, ¿no?

DoEvents! :P