Tema destacado:
 Autor
|
Tema: [RETO] + Funcion Extraer Numeros de Cadenas! (Leído 3,939 veces)
|
Psyke1
Wiki
 Desconectado
Mensajes: 1.005
|
@Black tu función me da error aquí: wWord = thisWord(dwOffSetGet) Subscript out range DoEvents! 
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
@Black tu función me da error aquí: wWord = thisWord(dwOffSetGet) 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.
|
|
|
|
|
En línea
|
Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.005
|
@seba123neoGracias, culpa mía que no leí bien. 
Después pongo mi forma de hacerlo... DoEvents!
|
|
|
|
« Última modificación: 9 Enero 2012, 01:11 por Psyke1 »
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
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!¡. |
|
|
|
« Última modificación: 8 Enero 2012, 23:37 por BlackZeroX (Astaroth) »
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.005
|
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!
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
¿Y eso no es trampa? Se supone que sTest lo debe dejar como está, como las demás funciones, ¿no? Si fuese asi entonces no deberia ser byref más bien byval si es que no se quisiera modificar sTest... aun asi al no estar bien definidas las reglas se vale todo, es decir NUNCa se dice por donde retornar los datos ni que hacerle a sTest... Dulces Lunas!¡.
|
|
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 780
4 Esquinas
|
HOLA!!!
Ejemmm hoy es ocho! y en españa ya es 9 ponganse las pilas!
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* Resumenes Cs.Economicas |
|
|
RHL
Desconectado
Mensajes: 968
mental
|
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!¡.  Ya veo... bien estrictamente eso seria trampa v_v pero como el reto yo no lo especifique estrictamente PORQUE NO ME IMAGINE que esto pasaria, bueno mas bien no recordaba/no crei que la usaran, la tecnica que usaron karcrack y BlackZeroX hoy ya no se puede hacer nada De nuevo el test de todas las funciones con cadenas por valor... HOLA!!!
Ejemmm hoy es ocho! y en españa ya es 9 ponganse las pilas!
GRACIAS POR LEER!!!
no me e podido conectar porque no e tenido red U_U aqui en mexico faltan mas de 3 horas U_U
|
|
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 780
4 Esquinas
|
HOLA!!! 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! +1 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* Resumenes Cs.Economicas |
|
|
RHL
Desconectado
Mensajes: 968
mental
|
Resultados Finales: @Karcrack tu funcion me explotaba siempre... En un for de 1000... 79137913:
1: 4.819
2: 4.662
3: 4.676
4: 4.911
5: 4.729
BlackZeroX
1: 2.637
2: 2.630
3: 2.720
4: 2.673
5: 2.634
Elemental code:
1: 134.858
2: 136.092
3: 133.272
4: 138.173
5: 133.510
RHL:
1: 7.164
2: 7.107
3: 7.183
4: 7.115
5: 7.110 |
|
|
|
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.005
|
Bueno, aquí dejo como sería la forma más rápida con RegExp por si a alguien le interesa: 'cGetNums.cls
Option Explicit
Private oRegExp As Object
Private Sub Class_Initialize()
Set oRegExp = CreateObject("VBScript.RegExp")
With oRegExp
.Global = True
.Pattern = "\D+"
End With
End Sub
Public Static Function pGetNums(ByRef sText As String) As String
pGetNums = oRegExp.Replace(sText, vbNullString)
End Function
Private Sub Class_Terminate()
Set oRegExp = Nothing
End Sub Ejemplo: Option Explicit
Private Sub Form_Load()
Dim c As New cGetNums
Debug.Print cGetNums("0asdasd1sa sd sd 2 3 sdfdfdsf456 7!!!!!!!!!!!!!!!!!!8?????9asd")
Set c = Nothing
End Sub Resultado: 0123456789 No es muy rápida, pero bueno, tan solo participaba respetando las normas.  DoEvents! |
|
|
|
|
En línea
|
|
|
|
|
| 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
|
1,577
|
14 Mayo 2008, 18:47
por odeONeSs
|
|
|
|
RETO saber elcodigo de encriptacion de estas cadenas de texto
Criptografía
|
riscking
|
3
|
2,045
|
18 Agosto 2008, 03:12
por riscking
|
|
|
[RETO] Funcion iFactorize() - Factorizacion de numeros enteros
« 1 2 »
Programación Visual Basic
|
Karcrack
|
15
|
2,942
|
19 Julio 2010, 17:19
por FFernandez
|
|
|
|
Sacar numeros de una ecuacion? reto?
Programación Visual Basic
|
Edu
|
12
|
1,136
|
14 Marzo 2011, 16:58
por 79137913
|
|
|
[RETO] + Funcion Extraer Numeros de Cadenas! [Cpp/C]
« 1 2 3 »
Programación C/C++
|
RHL
|
39
|
4,115
|
8 Enero 2012, 00:58
por Eternal Idol
|
 |
