[RETO] + Funcion Extraer Numeros de Cadenas!

[79137913]

HOLA!!!

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

GRACIAS POR LEER!!!

[Psyke1]

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

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

DoEvents!

[chronos682]

De esta forma es muy lento?

Código [Seleccionar] Expandir


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]

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

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

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

[Karcrack]

El bucle esta "desenrollado":

Código [Seleccionar] Expandir

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

[Psyke1]

@Black tu función me da error aquí:

Código [Seleccionar] Expandir

wWord = thisWord(dwOffSetGet)

Código [Seleccionar] Expandir

Subscript out range

DoEvents!

[seba123neo]

@Black tu función me da error aquí:

Código [Seleccionar] Expandir

wWord = thisWord(dwOffSetGet)

Código [Seleccionar] Expandir

Subscript out range

DoEvents!

lo tenes que probar compilado y chequearle la opcion de "Quitar comprobaciones en limites de las matrices" en las opciones de compilacion.

[Psyke1]

@seba123neo
Gracias, culpa mía que no leí bien.



Después pongo mi forma de hacerlo...

DoEvents!

[BlackZeroX]

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

Código [Seleccionar] Expandir



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



Dulces Lunas!¡.

[Psyke1]

Código [Seleccionar] Expandir

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? Se supone que sTest lo debe dejar como está, como las demás funciones, ¿no?

DoEvents!