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


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  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 29,815 veces)
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #30 en: 6 Enero 2012, 03:10 am »
Cita de: RHL - 该0在 en  6 Enero 2012, 03:07 am
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

las probe compilado a las 2 funciones.
En línea
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #31 en: 6 Enero 2012, 03:17 am »
Cita de: RHL - 该0在 en  6 Enero 2012, 03:07 am
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

Por si las moscas comprubelas COMPILADAS no desde el IDE, aun asi tanto la de Karcr... y la de un servidor NO FUNCIONAN desde el IDE...

Dulces Lunas!¡.
« Última modificación: 6 Enero 2012, 06:32 am por BlackZeroX (Astaroth) » En línea
The Dark Shadow is my passion.
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #32 en: 6 Enero 2012, 03:51 am »
...
Esta es la ultima que pongo lo PROMETO!¡.

Esta modificada segun el Prototipo...

Código
  1.  
  2. Public Function getNumbers3(ByRef sIn As String) As String
  3. Dim thisWord(0) As Integer  '   //  Un caracter = 2 bytes = integer
  4. Dim thisRet(0)  As Long     '   //  jejeje...
  5. Dim dwOffSetGet As Long     '   //  Offset Get caracter...
  6. Dim dwOffSetSet As Long     '   //  Offset Set caracter...
  7. Dim wWord       As Integer  '   //  Letra en asc...
  8. Dim dwLenI      As Long     '   //  Longitud en bytes de sIn...
  9. Dim lpAux       As Long     '   //  Auxiliar...
  10. Dim dwRetLen    As Long     '   //  jejeje...
  11.  
  12.     dwOffSetGet = ((StrPtr(sIn) - VarPtr(thisWord(&H0&))) \ &H2&)
  13.     dwOffSetSet = dwOffSetGet
  14.     dwLenI = LenB(sIn)
  15.  
  16.     If (dwLenI) Then
  17.         Do
  18.             If (dwLenI And &H80000000) Then Exit Do
  19.  
  20.             wWord = thisWord(dwOffSetGet)
  21.  
  22.             If (wWord >= &H30) Then
  23.                 If (wWord <= &H39) Then
  24.                     dwRetLen = (dwRetLen + &H2&)
  25.                     thisWord(dwOffSetSet) = wWord
  26.                     dwOffSetSet = (dwOffSetSet + &H1&)
  27.                 End If
  28.             End If
  29.  
  30.             dwOffSetGet = (dwOffSetGet + &H1&)
  31.             dwLenI = (dwLenI - &H2&)
  32.  
  33.         Loop While (wWord > &H0&)
  34.  
  35.         thisWord(dwOffSetSet) = &H0&
  36.         lpAux = ((VarPtr(sIn) - VarPtr(thisRet(&H0&))) \ &H4&)
  37.         thisRet(((StrPtr(sIn) - VarPtr(thisRet(&H0&))) \ &H4&) - &H1&) = dwRetLen
  38.         thisRet(((VarPtr(getNumbers3) - VarPtr(thisRet(&H0&))) \ &H4&)) = thisRet(lpAux)
  39.         thisRet(lpAux) = &H0&
  40.     End If
  41.  
  42. End Function
  43.  
  44.  

Temibles Lunas!¡.
« Última modificación: 6 Enero 2012, 17:47 pm por BlackZeroX (Astaroth) » En línea
The Dark Shadow is my passion.
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #33 en: 6 Enero 2012, 13:44 pm »
Voy a arriesgar: BlackZeroX tu código no funcionará siempre :P Y si funciona es de suerte :P

Te arriesgas a que por alguna razón VB6 te meta el array de words en una dirección impar y a partir de ahí todos tus accesos ya no son correctos >:D
En línea
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #34 en: 6 Enero 2012, 17:27 pm »
Cita de: Karcrack en  6 Enero 2012, 13:44 pm
Voy a arriesgar: BlackZeroX tu código no funcionará siempre :P Y si funciona es de suerte :P

Te arriesgas a que por alguna razón VB6 te meta el array de words en una dirección impar y a partir de ahí todos tus accesos ya no son correctos >:D

Te equivocas y muy feo esta vez... ya que cuando se hace un acceso a memoria de un array se hace siguiento esta forma si no mal me quivoco

AddressBase + Index * sizeof(Tipo)

Donde AddressBase es el Indice 0 del array...

Revisala y dale un debug... que la verdad a mi tambien de dio unos dolores de cabeza debido a que el tipo del array lo cambien de un array tipo byte a uno integer y a uno long es decir de 1 byte a 2 bytes y a 4 bytes...

Código
  1.  
  2. Option Explicit
  3.  
  4. Private Sub Command1_Click()
  5. Dim sStr    As String
  6. Dim i       As Long
  7. Dim lpLast  As Long
  8.  
  9.     Show
  10.  
  11.     For i = 0 To 500
  12.         sStr = " 1234567890"  ' // Nos tiene que devolver esactamente LO MISMO...
  13.         lpLast = StrPtr(sStr)
  14.         Text1.Text = i & vbTab & lpLast & vbTab & getNumbers3(sStr) & vbCrLf & Text1.Text
  15.         DoEvents
  16.         Caption = i
  17.     Next i
  18.  
  19.     sStr = "hola54 mundo5412"
  20.     MsgBox getNumbers3(sStr)
  21.     MsgBox sStr
  22.  
  23.     End     '   //  Fozamos...
  24. End Sub
  25.  
  26.  

Output:

Código:

500	2353284	1234567890
499	2353404	1234567890
498	2353364	1234567890
497	2353324	1234567890
496	2353284	1234567890
495	2353404	1234567890
494	2353364	1234567890
493	2353324	1234567890
492	2353284	1234567890
491	2353404	1234567890
490	2353364	1234567890
489	2353324	1234567890
488	2353284	1234567890
487	2353404	1234567890
486	2353364	1234567890
485	2353324	1234567890
484	2353284	1234567890
483	2353404	1234567890
482	2353364	1234567890
481	2353324	1234567890
480	2353284	1234567890
479	2353404	1234567890
478	2353364	1234567890
477	2353324	1234567890
476	2353284	1234567890
475	2353404	1234567890
474	2353364	1234567890
473	2353324	1234567890
472	2353284	1234567890
471	2353404	1234567890
470	2353364	1234567890
469	2353324	1234567890
468	2353284	1234567890
467	2353404	1234567890
466	2353364	1234567890
465	2353324	1234567890
464	2353284	1234567890
463	2353404	1234567890
462	2353364	1234567890
461	2353324	1234567890
460	2353284	1234567890
459	2353404	1234567890
458	2353364	1234567890
457	2353324	1234567890
456	2353284	1234567890
455	2353404	1234567890
454	2353364	1234567890
453	2353324	1234567890
452	2353284	1234567890
451	2353404	1234567890
450	2353364	1234567890
449	2353324	1234567890
448	2353284	1234567890
447	2353404	1234567890
446	2353364	1234567890
445	2353324	1234567890
444	2353284	1234567890
443	2353404	1234567890
442	2353364	1234567890
441	2353324	1234567890
440	2353284	1234567890
439	2353404	1234567890
438	2353364	1234567890
437	2353324	1234567890
436	2353284	1234567890
435	2353404	1234567890
434	2353364	1234567890
433	2353324	1234567890
432	2353284	1234567890
431	2353404	1234567890
430	2353364	1234567890
429	2353324	1234567890
428	2353284	1234567890
427	2353404	1234567890
426	2353364	1234567890
425	2353324	1234567890
424	2353284	1234567890
423	2353404	1234567890
422	2353364	1234567890
421	2353324	1234567890
420	2353284	1234567890
419	2353404	1234567890
418	2353364	1234567890
417	2353324	1234567890
416	2353284	1234567890
415	2353404	1234567890
414	2353364	1234567890
413	2353324	1234567890
412	2353284	1234567890
411	2353404	1234567890
410	2353364	1234567890
409	2353324	1234567890
408	2353284	1234567890
407	2353404	1234567890
406	2353364	1234567890
405	2353324	1234567890
404	2353284	1234567890
403	2353404	1234567890
402	2353364	1234567890
401	2353324	1234567890
400	2353284	1234567890
399	2353404	1234567890
398	2353364	1234567890
397	2353324	1234567890
396	2353284	1234567890
395	2353404	1234567890
394	2353364	1234567890
393	2353324	1234567890
392	2353284	1234567890
391	2353404	1234567890
390	2353364	1234567890
389	2353324	1234567890
388	2353284	1234567890
387	2353404	1234567890
386	2353364	1234567890
385	2353324	1234567890
384	2353284	1234567890
383	2353404	1234567890
382	2353364	1234567890
381	2353324	1234567890
380	2353284	1234567890
379	2353404	1234567890
378	2353364	1234567890
377	2353324	1234567890
376	2353284	1234567890
375	2353404	1234567890
374	2353364	1234567890
373	2353324	1234567890
372	2353284	1234567890
371	2353404	1234567890
370	2353364	1234567890
369	2353324	1234567890
368	2353284	1234567890
367	2353404	1234567890
366	2353364	1234567890
365	2353324	1234567890
364	2353284	1234567890
363	2353404	1234567890
362	2353364	1234567890
361	2353324	1234567890
360	2353284	1234567890
359	2353404	1234567890
358	2353364	1234567890
357	2353324	1234567890
356	2353284	1234567890
355	2353404	1234567890
354	2353364	1234567890
353	2353324	1234567890
352	2353284	1234567890
351	2353404	1234567890
350	2353364	1234567890
349	2353324	1234567890
348	2353284	1234567890
347	2353404	1234567890
346	2353364	1234567890
345	2353324	1234567890
344	2353284	1234567890
343	2353404	1234567890
342	2353364	1234567890
341	2353324	1234567890
340	2353284	1234567890
339	2353404	1234567890
338	2353364	1234567890
337	2353324	1234567890
336	2353284	1234567890
335	2353404	1234567890
334	2353364	1234567890
333	2353324	1234567890
332	2353284	1234567890
331	2353404	1234567890
330	2353364	1234567890
329	2353324	1234567890
328	2353284	1234567890
327	2353404	1234567890
326	2353364	1234567890
325	2353324	1234567890
324	2353284	1234567890
323	2353404	1234567890
322	2353364	1234567890
321	2353324	1234567890
320	2353284	1234567890
319	2353404	1234567890
318	2353364	1234567890
317	2353324	1234567890
316	2353284	1234567890
315	2353404	1234567890
314	2353364	1234567890
313	2353324	1234567890
312	2353284	1234567890
311	2353404	1234567890
310	2353364	1234567890
309	2353324	1234567890
308	2353284	1234567890
307	2353404	1234567890
306	2353364	1234567890
305	2353324	1234567890
304	2353284	1234567890
303	2353404	1234567890
302	2353364	1234567890
301	2353324	1234567890
300	2353284	1234567890
299	2353404	1234567890
298	2353364	1234567890
297	2353324	1234567890
296	2353284	1234567890
295	2353404	1234567890
294	2353364	1234567890
293	2353324	1234567890
292	2353284	1234567890
291	2353404	1234567890
290	2353364	1234567890
289	2353324	1234567890
288	2353284	1234567890
287	2353404	1234567890
286	2353364	1234567890
285	2353324	1234567890
284	2353284	1234567890
283	2353404	1234567890
282	2353364	1234567890
281	2353324	1234567890
280	2353284	1234567890
279	2353404	1234567890
278	2353364	1234567890
277	2353324	1234567890
276	2353284	1234567890
275	2353404	1234567890
274	2353364	1234567890
273	2353324	1234567890
272	2353284	1234567890
271	2353404	1234567890
270	2353364	1234567890
269	2353324	1234567890
268	2353284	1234567890
267	2353404	1234567890
266	2353364	1234567890
265	2353324	1234567890
264	2353284	1234567890
263	2353404	1234567890
262	2353364	1234567890
261	2353324	1234567890
260	2353284	1234567890
259	2353404	1234567890
258	2353364	1234567890
257	2353324	1234567890
256	2353284	1234567890
255	2353404	1234567890
254	2353364	1234567890
253	2353324	1234567890
252	2353284	1234567890
251	2353404	1234567890
250	2353364	1234567890
249	2353324	1234567890
248	2353284	1234567890
247	2353404	1234567890
246	2353364	1234567890
245	2353324	1234567890
244	2353284	1234567890
243	2353404	1234567890
242	2353364	1234567890
241	2353324	1234567890
240	2353284	1234567890
239	2353404	1234567890
238	2353364	1234567890
237	2353324	1234567890
236	2353284	1234567890
235	2353404	1234567890
234	2353364	1234567890
233	2353324	1234567890
232	2353284	1234567890
231	2353404	1234567890
230	2353364	1234567890
229	2353324	1234567890
228	2353284	1234567890
227	2353404	1234567890
226	2353364	1234567890
225	2353324	1234567890
224	2353284	1234567890
223	2353404	1234567890
222	2353364	1234567890
221	2353324	1234567890
220	2353284	1234567890
219	2353404	1234567890
218	2353364	1234567890
217	2353324	1234567890
216	2353284	1234567890
215	2353404	1234567890
214	2353364	1234567890
213	2353324	1234567890
212	2353284	1234567890
211	2353404	1234567890
210	2353364	1234567890
209	2353324	1234567890
208	2353284	1234567890
207	2353404	1234567890
206	2353364	1234567890
205	2353324	1234567890
204	2353284	1234567890
203	2353404	1234567890
202	2353364	1234567890
201	2353324	1234567890
200	2353284	1234567890
199	2353404	1234567890
198	2353364	1234567890
197	2353324	1234567890
196	2353284	1234567890
195	2353404	1234567890
194	2353364	1234567890
193	2353324	1234567890
192	2353284	1234567890
191	2353404	1234567890
190	2353364	1234567890
189	2353324	1234567890
188	2353284	1234567890
187	2353404	1234567890
186	2353364	1234567890
185	2353324	1234567890
184	2353284	1234567890
183	2353404	1234567890
182	2353364	1234567890
181	2353324	1234567890
180	2353284	1234567890
179	2353404	1234567890
178	2353364	1234567890
177	2353324	1234567890
176	2353284	1234567890
175	2353404	1234567890
174	2353364	1234567890
173	2353324	1234567890
172	2353284	1234567890
171	2353404	1234567890
170	2353364	1234567890
169	2353324	1234567890
168	2353284	1234567890
167	2353404	1234567890
166	2353364	1234567890
165	2353324	1234567890
164	2353284	1234567890
163	2353404	1234567890
162	2353364	1234567890
161	2353324	1234567890
160	2353284	1234567890
159	2353404	1234567890
158	2353364	1234567890
157	2353324	1234567890
156	2353284	1234567890
155	2353404	1234567890
154	2353364	1234567890
153	2353324	1234567890
152	2353284	1234567890
151	2353404	1234567890
150	2353364	1234567890
149	2353324	1234567890
148	2353284	1234567890
147	2353404	1234567890
146	2353364	1234567890
145	2353324	1234567890
144	2353284	1234567890
143	2353404	1234567890
142	2353364	1234567890
141	2353324	1234567890
140	2353284	1234567890
139	2353404	1234567890
138	2353364	1234567890
137	2353324	1234567890
136	2353284	1234567890
135	2353404	1234567890
134	2353364	1234567890
133	2353324	1234567890
132	2353284	1234567890
131	2353404	1234567890
130	2353364	1234567890
129	2353324	1234567890
128	2353284	1234567890
127	2353404	1234567890
126	2353364	1234567890
125	2353324	1234567890
124	2353284	1234567890
123	2353404	1234567890
122	2353364	1234567890
121	2353324	1234567890
120	2353284	1234567890
119	2353404	1234567890
118	2353364	1234567890
117	2353324	1234567890
116	2353284	1234567890
115	2353404	1234567890
114	2353364	1234567890
113	2353324	1234567890
112	2353284	1234567890
111	2353404	1234567890
110	2353364	1234567890
109	2353324	1234567890
108	2353284	1234567890
107	2353404	1234567890
106	2353364	1234567890
105	2353324	1234567890
104	2353284	1234567890
103	2353404	1234567890
102	2353364	1234567890
101	2353324	1234567890
100	2353284	1234567890
99	2353404	1234567890
98	2353364	1234567890
97	2353324	1234567890
96	2353284	1234567890
95	2353404	1234567890
94	2353364	1234567890
93	2353324	1234567890
92	2353284	1234567890
91	2353404	1234567890
90	2353364	1234567890
89	2353324	1234567890
88	2353284	1234567890
87	2353404	1234567890
86	2353364	1234567890
85	2353324	1234567890
84	2353284	1234567890
83	2353404	1234567890
82	2353364	1234567890
81	2353324	1234567890
80	2353284	1234567890
79	2353404	1234567890
78	2353364	1234567890
77	2353324	1234567890
76	2353284	1234567890
75	2353404	1234567890
74	2353364	1234567890
73	2353324	1234567890
72	2353284	1234567890
71	2353404	1234567890
70	2353364	1234567890
69	2353324	1234567890
68	2353284	1234567890
67	2353404	1234567890
66	2353364	1234567890
65	2353324	1234567890
64	2353284	1234567890
63	2353404	1234567890
62	2353364	1234567890
61	2353324	1234567890
60	2353284	1234567890
59	2353404	1234567890
58	2353364	1234567890
57	2353324	1234567890
56	2353284	1234567890
55	2353404	1234567890
54	2353364	1234567890
53	2353324	1234567890
52	2353284	1234567890
51	2353404	1234567890
50	2353364	1234567890
49	2353324	1234567890
48	2353284	1234567890
47	2353404	1234567890
46	2353364	1234567890
45	2353324	1234567890
44	2353284	1234567890
43	2353404	1234567890
42	2353364	1234567890
41	2353324	1234567890
40	2353284	1234567890
39	2353404	1234567890
38	2353364	1234567890
37	2353324	1234567890
36	2353284	1234567890
35	2353404	1234567890
34	2353364	1234567890
33	2353324	1234567890
32	2353284	1234567890
31	2353404	1234567890
30	2353364	1234567890
29	2353324	1234567890
28	2353284	1234567890
27	2353404	1234567890
26	2353364	1234567890
25	2353324	1234567890
24	2353284	1234567890
23	2353404	1234567890
22	2353364	1234567890
21	2353324	1234567890
20	2353284	1234567890
19	2353404	1234567890
18	2353364	1234567890
17	2353324	1234567890
16	2353284	1234567890
15	2353404	1234567890
14	2353364	1234567890
13	2353324	1234567890
12	2353284	1234567890
11	2353404	1234567890
10	2353364	1234567890
9	2353324	1234567890
8	2353284	1234567890
7	2353404	1234567890
6	2353364	1234567890
5	2353324	1234567890
4	2353284	1234567890
3	2353404	1234567890
2	2353364	1234567890
1	2353324	1234567890
0	2353284	1234567890


Dulces Lunas!¡.
« Última modificación: 6 Enero 2012, 17:50 pm por BlackZeroX (Astaroth) » En línea
The Dark Shadow is my passion.
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #35 en: 6 Enero 2012, 19:18 pm »
Ha habido una confusión xD Pensaba que accedías al Integer usando un Array de Bytes :P Mi error :P
En línea
x64core


Desconectado Desconectado

Mensajes: 1.908


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

@Karcrack
si puedes cambias tu funcion segun el prototipo :P
Function MYfunction ( STR as string ) as string

de todos modos aun se pueden hacer actualizaciones hasta el dia de mañana ^^

EDIT:
Mi mov ya no sirvio T_T con el prototipo bueno para la proxima :P
Los resultados hasta ahora:



79137913:

1:0.435
2:0.432
3:0.436
4:0.430
5:0.436

BlackZeroX:

1:0.147
2:0.148
3:0.148
4:0.148
5:0.148

Elemental Code:

1:13.151
2:13.351
3:13.195
4:13.369
5:13.352

RHL:

1:0.629
2:0.632
3:0.629
4:0.629
5:0.629




Falta Karcrack que modifique el prototipo, tambien seba123neo :) o alguien mas que se desee unir al reto :)
« Última modificación: 7 Enero 2012, 01:54 am por RHL - 该0在 » En línea
Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #37 en: 7 Enero 2012, 04:36 am »
Rustico Fails :'(
En línea
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #38 en: 7 Enero 2012, 14:58 pm »
Código
  1. Private Static Function kGetNums(ByVal s As String) As String
  2.     Dim bv(0)   As Byte
  3.     Dim pbv     As Long
  4.     Dim rps     As Long
  5.     Dim i       As Long
  6.     Dim b       As Byte
  7.     Dim w       As Long
  8.  
  9.     kGetNums = s
  10.  
  11.     If pbv = 0 Then pbv = VarPtr(bv(0))
  12.  
  13.     rps = StrPtr(kGetNums) - pbv
  14.  
  15.     For i = 0 To LenB(kGetNums) Step 10
  16.         b = bv(rps + i + 0)
  17.         If b >= &H30 Then
  18.             If b <= &H39 Then
  19.                 bv(rps + w) = b
  20.                 w = w + 2
  21.             End If
  22.         End If
  23.         b = bv(rps + i + 2)
  24.         If b >= &H30 Then
  25.             If b <= &H39 Then
  26.                 bv(rps + w) = b
  27.                 w = w + 2
  28.             End If
  29.         End If
  30.         b = bv(rps + i + 4)
  31.         If b >= &H30 Then
  32.             If b <= &H39 Then
  33.                 bv(rps + w) = b
  34.                 w = w + 2
  35.             End If
  36.         End If
  37.         b = bv(rps + i + 6)
  38.         If b >= &H30 Then
  39.             If b <= &H39 Then
  40.                 bv(rps + w) = b
  41.                 w = w + 2
  42.             End If
  43.         End If
  44.         b = bv(rps + i + 8)
  45.         If b >= &H30 Then
  46.             If b <= &H39 Then
  47.                 bv(rps + w) = b
  48.                 w = w + 2
  49.             End If
  50.         End If
  51.     Next i
  52.  
  53.     bv(rps + w) = 0
  54. End Function

Deberías probar la velocidad de los códigos en unas 10000 ejecuciones... ya que ahí es donde se ve mejor la diferencia de velocidades :)
En línea
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: [RETO] + Funcion Extraer Numeros de Cadenas!
« Respuesta #39 en: 7 Enero 2012, 20:40 pm »
Cita de: RHL en  7 Enero 2012, 01:25 am
Falta Karcrack que modifique el prototipo, tambien seba123neo :) o alguien mas que se desee unir al reto :)

ni hace falta la mia con RegEx es super lenta, te podes ir a comer y volver y todavia no termino, la puse simplemente por ponerla, no me acorde que era por velocidad.

yo probe las de Karcrack y BlackZeroX, ahora les paso los test, con 10 mil vueltas, con un millon y 10 millones (personalmente me gustan las funciones que siguen funcionado veloces sin importar la cantidad de interaciones que haga, algunas solo rinden en pocas iteraciones y despues en muchas se ponen lentas.)

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

saludos.
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,945 Ú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 12,014 Último mensaje 19 Julio 2010, 17:19 pm
por FFernandez
[RETO] + Funcion Extraer Numeros de Cadenas! [Cpp/C] « 1 2 3 4 »
Programación C/C++ 		x64core 39 37,342 Ú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 9,747 Último mensaje 25 Abril 2015, 22:20 pm
por ivancea96
[[RETO]] Funcion para ordenar, extraer e insertar en una pila « 1 2 »
Programación C/C++ 		BlackDhampir 10 10,357 Último mensaje 28 Octubre 2021, 16:22 pm
por Eternal Idol
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines