Cita de: WHK en 1 Enero 2011, 00:20 AM
feliz añooooooooooooooooooo
Citar
Feliz año nuevo 2010
« en: 31 Diciembre 2009, 08:59 »
- Bienvenido a Test Foro de elhacker.net SMF 2.1.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
#1631
Foro Libre / Re: Feliz año nuevo 2010
2 Enero 2011, 16:10 PM
#1632
Programación Visual Basic / Re: [RETO] Alternativa a Instr()
2 Enero 2011, 03:22 AM
Alguien deberia hacer limpieza aca 
Mejore el sistemita de pruebas, y agrego una prueba mas (gracias BlackZeroX) se busca un string nulo (se pueden hacer mas pruebas, ej buscar "abc" en "a", etc pero habria que modificar mas, hacerlo mas personalizable xD).
Y agregue que se ordene automaticamente los resultados
http://www.mediafire.com/?sws0gx764h4xake
Modifique 2 lineas de mi funcion tambien!
Mejore el sistemita de pruebas, y agrego una prueba mas (gracias BlackZeroX) se busca un string nulo
(se pueden hacer mas pruebas, ej buscar "abc" en "a", etc pero habria que modificar mas, hacerlo mas personalizable xD).Y agregue que se ordene automaticamente los resultados
Código [Seleccionar]
============ RETO INSTR 01/01/2011 - 11:19:42 p.m. ============
Nº de vueltas: 250
String donde buscar: Baila baila baila como Juana, baila la cubana, parece refresco de cola, a mi me parece que estás bien buena.
3 Llamadas, cada una con los siguientes parametros en 'start': 1 10 20
=== PRUEBA 1 ================
String a buscar: col
============ COMPROBACION ============
InStr: 67 67 67
Los siguientes no devuelven los mismos valores, seguido de su devolucion
============ VELOCIDAD ============
00 InStr 00,526022
01 Tenient101 02,011307
02 Tokes v2 02,248696
03 BlackZeroX 02,377656
04 Mr Frog(BlackZeroX) 02,381506
05 Raul338 02,476462
06 79137913 02,662523
07 Miseryk 03,857809
08 Tokes 03,988052
09 gaston93 06,426102
10 krabby 06,745615
=== PRUEBA 2 ================
String a buscar: la
============ COMPROBACION ============
InStr: 4 10 34
Los siguientes no devuelven los mismos valores, seguido de su devolucion
Mr. Frog(b0x) 4 4 4
============ VELOCIDAD ============
00 InStr 00,507416
01 Tenient101 02,110754
02 BlackZeroX 02,410378
03 Mr Frog(BlackZeroX) 02,412944 ' No paso la comprobacion
04 Tokes v2 02,450156
05 Raul338 02,522015
06 79137913 02,820355
07 Miseryk 03,936725
08 Tokes 04,002167
09 gaston93 05,453448
10 krabby 07,029840
=== PRUEBA 3 ================
String a buscar: Ñ
============ COMPROBACION ============
InStr: 0 0 0
Los siguientes no devuelven los mismos valores, seguido de su devolucion
============ VELOCIDAD ============
00 InStr 00,742880
01 Mr Frog(BlackZeroX) 02,393055
02 BlackZeroX 02,406528
03 gaston93 02,632368
04 krabby 02,923010
05 Raul338 22,377361
06 Tokes v2 22,565989
07 79137913 27,793681
08 Tenient101 28,396136
09 Tokes 45,295668
10 Miseryk 87,607375
=== PRUEBA 4 ================
String a buscar:
============ COMPROBACION ============
InStr: 1 10 20
Los siguientes no devuelven los mismos valores, seguido de su devolucion
Miseryk 0 0 0
gaston93 0 0 0
Mr. Frog(b0x) 0 0 0
Tokes 0 0 0
79137913 0 0 0
Tokes(raul338) -1 -1 -1
Tenient101 -1 -1 -1
BlackZeroX 0 0 0
krabby 0 0 0
============ VELOCIDAD ============
00 Miseryk 00,173146 ' No paso la comprobacion
01 79137913 00,206509 ' No paso la comprobacion
02 Raul338 00,216133
03 Tenient101 00,232173 ' No paso la comprobacion
04 krabby 00,333544 ' No paso la comprobacion
05 Mr Frog(BlackZeroX) 00,381664 ' No paso la comprobacion
06 Tokes v2 00,406686
07 InStr 00,425934
08 BlackZeroX 01,805356 ' No paso la comprobacion
09 gaston93 02,109471 ' No paso la comprobacion
10 Tokes 36,895304 ' No paso la comprobacion
Test made by Raul338. Thanks to BlackZeroX
http://www.mediafire.com/?sws0gx764h4xake
Modifique 2 lineas de mi funcion tambien!
#1633
Programación Visual Basic / Re: [RETO] Alternativa a Instr()
1 Enero 2011, 18:09 PM
jeje si, año nuevo, cabeza nueva, pense que toda la vida lo usaba asi y lo puse asi ya cambio la firma
Hay actualizo mi funcion
Benchmark actualizados
1
2
3
y el proyecto con las funciones actualizadas
http://www.mediafire.com/?bbr7r0s90xmgtp6
PD: EL codigo exclusivamente de vb se pone asi [code=vb]Dim s as string[/code]
Quedando
ya cambio la firmaHay actualizo mi funcion
Benchmark actualizados
1
Código [Seleccionar]
============ RETO INSTR 31/12/10 ============
String a buscar: col
String donde buscar: Baila baila baila como Juana, baila la cubana, parece refresco de cola, a mi me parece que estás bien buena.
Nº de vueltas: 250
3 Offsets: 1 10 20
============ COMPROBACION ============
Valores de InStr: 67 67 67
============ VELOCIDAD ============
InStr 0,864775284178946
Raul338 18,3623837347693
Miseryk 30,7958742805302
gaston93 3,87963529112102
Mr Frog 7,84405750497397
Tokes 30,0233925932865
79137913 20,6618641060995
Tokes v2 17,7496594728775
Tenient101 19,7694039508204
BlackZeroX 5,31231935060211
krabby 7,9775094908101
2
Código [Seleccionar]
============ RETO INSTR 31/12/10 ============
String a buscar: la
String donde buscar: Baila baila baila como Juana, baila la cubana, parece refresco de cola, a mi me parece que estás bien buena.
Nº de vueltas: 250
3 Offsets: 1 10 20
============ COMPROBACION ============
Valores de InStr: 4 10 34
BlackZeroX no devuelve los mismos valores 4 16 34
============ VELOCIDAD ============
InStr 0,599789684803091
Raul338 3,56973796574262
Miseryk 4,66494248411889
gaston93 6,10917527314349
Mr Frog 4,43525108542018
Tokes 4,75540753220973
79137913 3,40099819519021
Tokes v2 3,20082021643602
Tenient101 2,88387175007523
BlackZeroX 4,6777744058339
krabby 7,79785617083907
3
Código [Seleccionar]
============ RETO INSTR 31/12/10 ============
String a buscar: Ñ
String donde buscar: Baila baila baila como Juana, baila la cubana, parece refresco de cola, a mi me parece que estás bien buena.
Nº de vueltas: 250
3 Offsets: 1 10 20
============ COMPROBACION ============
Valores de InStr: 0 0 0
============ VELOCIDAD ============
InStr 0,706294635037691
Raul338 26,3284343194879
Miseryk 95,6028468901517
gaston93 3,07185940320015
Mr Frog 0,653042159920391
Tokes 48,7631246499291
79137913 31,470826946779
Tokes v2 27,1888146704795
Tenient101 35,9883049865489
BlackZeroX 3,53637496928359
krabby 3,62555682520292
y el proyecto con las funciones actualizadas
http://www.mediafire.com/?bbr7r0s90xmgtp6
PD: EL codigo exclusivamente de vb se pone asi [code=vb]Dim s as string[/code]
Quedando
Código (vb) [Seleccionar]
Dim s as string
#1634
Programación Visual Basic / Re: [RETO] Alternativa a Instr()
1 Enero 2011, 02:50 AMCódigo (vb) [Seleccionar]
Public Function rInStr(ByVal offset As Long, ByVal inString As String, ByVal Search As String) As Long
' Anti dumb XD
If offset And &H80000000 Then Exit Function 'offset = offset * -1
If Search = inString Then Exit Function
Dim inLen As Long, sLen As Long
inLen = Len(inString)
sLen = Len(Search)
If inLen = 0 Or sLen = 0 Then rInStr = offset: Exit Function
Dim i As Long, sChar As String
' Anti dumb XD
If offset > inLen Or sLen >= inLen Then Exit Function
If offset > 0 Then inString = Mid$(inString, offset): inLen = inLen - offset
sChar = Mid$(Search, 1, 1)
For i = 1 To inLen
If sChar = Mid$(inString, i, 1) Then
If Mid$(inString, i, sLen) = Search Then
rInStr = offset + i - 1
Exit Function
End If
End If
Next
End Function
Se puede optimizar, mañana o mas tarde lo vere
Subi un proyecto con todos las funciones y una rutina para probarlas.... y la verdad, ni si quiera le ganamos a InStr
Código [Seleccionar]
============ RETO INSTR 01/01/2011 - 11:19:42 p.m. ============
Nº de vueltas: 250
String donde buscar: Baila baila baila como Juana, baila la cubana, parece refresco de cola, a mi me parece que estás bien buena.
3 Llamadas, cada una con los siguientes parametros en 'start': 1 10 20
=== PRUEBA 1 ================
String a buscar: col
============ COMPROBACION ============
InStr: 67 67 67
Los siguientes no devuelven los mismos valores, seguido de su devolucion
============ VELOCIDAD ============
00 InStr 00,526022
01 Tenient101 02,011307
02 Tokes v2 02,248696
03 BlackZeroX 02,377656
04 Mr Frog(BlackZeroX) 02,381506
05 Raul338 02,476462
06 79137913 02,662523
07 Miseryk 03,857809
08 Tokes 03,988052
09 gaston93 06,426102
10 krabby 06,745615
=== PRUEBA 2 ================
String a buscar: la
============ COMPROBACION ============
InStr: 4 10 34
Los siguientes no devuelven los mismos valores, seguido de su devolucion
Mr. Frog(b0x) 4 4 4
============ VELOCIDAD ============
00 InStr 00,507416
01 Tenient101 02,110754
02 BlackZeroX 02,410378
03 Mr Frog(BlackZeroX) 02,412944 ' No paso la comprobacion
04 Tokes v2 02,450156
05 Raul338 02,522015
06 79137913 02,820355
07 Miseryk 03,936725
08 Tokes 04,002167
09 gaston93 05,453448
10 krabby 07,029840
=== PRUEBA 3 ================
String a buscar: Ñ
============ COMPROBACION ============
InStr: 0 0 0
Los siguientes no devuelven los mismos valores, seguido de su devolucion
============ VELOCIDAD ============
00 InStr 00,742880
01 Mr Frog(BlackZeroX) 02,393055
02 BlackZeroX 02,406528
03 gaston93 02,632368
04 krabby 02,923010
05 Raul338 22,377361
06 Tokes v2 22,565989
07 79137913 27,793681
08 Tenient101 28,396136
09 Tokes 45,295668
10 Miseryk 87,607375
=== PRUEBA 4 ================
String a buscar:
============ COMPROBACION ============
InStr: 1 10 20
Los siguientes no devuelven los mismos valores, seguido de su devolucion
Miseryk 0 0 0
gaston93 0 0 0
Mr. Frog(b0x) 0 0 0
Tokes 0 0 0
79137913 0 0 0
Tokes(raul338) -1 -1 -1
Tenient101 -1 -1 -1
BlackZeroX 0 0 0
krabby 0 0 0
============ VELOCIDAD ============
00 Miseryk 00,173146 ' No paso la comprobacion
01 79137913 00,206509 ' No paso la comprobacion
02 Raul338 00,216133
03 Tenient101 00,232173 ' No paso la comprobacion
04 krabby 00,333544 ' No paso la comprobacion
05 Mr Frog(BlackZeroX) 00,381664 ' No paso la comprobacion
06 Tokes v2 00,406686
07 InStr 00,425934
08 BlackZeroX 01,805356 ' No paso la comprobacion
09 gaston93 02,109471 ' No paso la comprobacion
10 Tokes 36,895304 ' No paso la comprobacion
Test made by Raul338. Thanks to BlackZeroX
http://www.mediafire.com/?nnt1jaazilrid1o
Lo ire actualizando conforme modifiquen/suban funciones
#1635
.NET (C#, VB.NET, ASP) / Re: [Ayuda]Problema con streamwriter
31 Diciembre 2010, 21:08 PM
en lugar de instanciar un StreamWriter usa File.CreateText
#1636
Foro Libre / Re: Burradas informáticas CSI
31 Diciembre 2010, 18:54 PM
Que risa, yo me pregunto que diran en el idioma original?
#1637
Programación Visual Basic / Re: connectar a dos ip Winsock
31 Diciembre 2010, 02:30 AM
Estas usando vb.net, con objetos de vb6, estas haciendo una fea sopa
Busca utilizar Sockets (de System.Net) para .net, o pasate a vb6
Busca utilizar Sockets (de System.Net) para .net, o pasate a vb6
#1639
Software / Re: Microsoft Office 2010 no acepta clave de registro legítima...
30 Diciembre 2010, 00:43 AM
Es porque la clave que viene pegada en el gabinete no es de office, es de windows
#1640
Programación Visual Basic / Re: Cómo ir a un directorio (universalmente)
29 Diciembre 2010, 17:33 PM
Y si lo haces con la funcion Environ? Mas simple xD