 Autor
|
Tema: [RETO] Alternativa a Instr() (Leído 18,698 veces)
|
Psyke1
Wiki
 Desconectado
Mensajes: 1.089
|
Bueno, pues eso, para empezar el año con buen pie propongo este reto, consiste en crear una función que haga lo mismo que Instr().  ( En principio sin contar con métodos de compración) Si hay dudas postear.   DoEvents! 
|
|
|
|
« Última modificación: 1 Enero 2011, 00:32 am por Mr. Frog © »
|
En línea
|
|
|
|
Miseryk
Desconectado
Mensajes: 225
SI.NU.SA U.GU.DE (2NE1 - D-Unit)
|
Hola, estaba en la otra PC, la llamo MierdBook (NetBook) entonces leí ésto y dije, excelente, puedo pasar mi tiempo con ésto haciendolo desde el Bloc de notas, lo terminé en el bloc y cdo lo probé en la verdadera PC, funcionó sin errores, ni tuve q hacer cambios  Option Explicit Private Sub Form_Load() Dim SearchString As String, SearchChar As String SearchString = "Baila baila baila como Juana, baila la cubana, parece refresco de cola, a mi me parece que estás bien buena." SearchChar = "col" MsgBox InStr(1, SearchString, SearchChar) MsgBox MyInStr(1, SearchString, SearchChar) End End Sub Public Function MyInStr(ByVal Sutato As Integer, ByVal SearchString As String, ByVal SearchChar As String) As Integer Dim i As Integer, LenSS As Integer, LenSC As Integer Dim x As Integer LenSS = Len(SearchString) LenSC = Len(SearchChar) 'Anti-Dumb If LenSC = 0 Or LenSS = 0 Then Exit Function 'Anti-Dumb If Sutato < 0 Then Sutato = 0 'Only 1 Char? If LenSC = 1 Then For i = Sutato To LenSS If Mid(SearchChar, 1, 1) = Mid(SearchString, i, 1) Then MyInStr = i Exit Function End If Next i End If For i = Sutato To LenSS If Mid(SearchChar, 1, 1) = Mid(SearchString, i, 1) Then For x = 2 To LenSC If Mid(SearchChar, x, 1) = Mid(SearchString, i + (x - 1), 1) Then If x = LenSC Then MyInStr = i Exit Function End If Else i = i + (x - 1) Exit For End If Next x End If Next i End Function
Feliz año nuevo (Y).
|
|
|
|
« Última modificación: 31 Diciembre 2010, 23:45 pm por Miseryk »
|
En línea
|
Can you see it?
The worst is over
The monsters in my head are scared of love
Fallen people listen up! It’s never too late to change our luck
So, don’t let them steal your light
Don’t let them break your stride
There is light on the other side
And you’ll see all the raindrops falling behind
Make it out tonight
it’s a revolution
CL!!!
|
|
|
TGa.
Desconectado
Mensajes: 43
|
Bueno aca les dejo mi codigo. Me conformo con que funcione. Por lo menos pude realizarlo dentro de los pocos conocimientos que tengo Private Function RETO_InStr(Start As Long, String1 As String, String2 As String) As Long Dim sSplit() As String Dim Num As Long Dim i As Long Start = Start - 1 If Start < 0 Then Start = 0 sSplit = Split(String1, String2) Num = Len(sSplit(0)) For i = LBound(sSplit) To UBound(sSplit) If Num >= Start Then If Num = Len(String1) Then RETO_InStr = 0 Else RETO_InStr = Num + 1 End If Exit For End If Num = Num + Len(sSplit(i + 1)) + Len(String2) Next i End Function
|
|
|
|
« Última modificación: 1 Enero 2011, 10:22 am por gaston93 »
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Gracias por participar! Aquí dejo la mía (la primera  ) Option Explicit Option Base 0 Private Function myInstr&(ByVal Start&, ByVal String1$, ByVal String2$) Dim bvString1() As Byte, bvString2() As Byte Dim ls2Len&, lLimit& Dim Q&, C& ls2Len& = ((Len(String2$)) - &H1) If ls2Len& > -1 Then lLimit& = ((Len(String1$)) - ls2Len&) If lLimit& > 1 Then bvString1 = (VBA.StrConv(String1$, vbFromUnicode)) bvString2 = (VBA.StrConv(String2$, vbFromUnicode)) Q& = (Start& - &H1) Do While (Q& < lLimit&) Do While (bvString1(Q& + C&) = bvString2(C&)) 'Debug.Print ChrW$(bvString1(Q& + C&)); ChrW$(bvString2(C&)) C& = C& + &H1 If ((C& - &H1) = ls2Len&) Then myInstr& = Q& + &H1 Exit Function End If Loop Q& = (Q& + C&) + &H1 C& = &H0 Loop End If End If End Function
Private Sub Form_Load() Const s As String = "hola qu4 que tal" Debug.Print CStr(myInstr&(1, s, "que")) End Sub
Está hecha rápida...  DoEvents! |
|
|
|
« Última modificación: 13 Enero 2011, 02:02 am por Mr. Frog © »
|
En línea
|
|
|
|
Tokes
Desconectado
Mensajes: 140
|
Hola, gente: Aquí dejo mi aporte: Private Function strinstr(ByVal start As Long, ByVal s1 As String, ByVal s2 As String) As Long
Dim pos1 As Long, pos2 As Long, long1 As Long, long2 As Long
long1 = Len(s1)
long2 = Len(s2)
pos2 = 1
For pos1 = start To long1
If Mid(s1, pos1, 1) = Mid(s2, pos2, 1) Then
pos2 = pos2 + 1
If pos2 > long2 Then
strinstr = pos1 - long2 + 1
Exit Function
End If
Else
pos2 = 1
End If
Next
End Function ¡Feliz Año! |
|
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Me da que no vais a poder superar la velocidad de la funcion de VB http://xbeat.net/vbspeed/c_InStr.htm Feliz año nueeeevo!! |
|
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Bueno por suerte termine antes de año nuevo, por cierto Feliz año a todos (aca son las 2200). No se que veolocidad tiene, pero bueno aca esta: Public Function InStr2(ByVal Start&, ByVal Cadena$, ByVal Busca$) As Integer Dim x As Integer Dim TamC As Integer Dim TamB As Integer Dim FirstCHR As String TamC = Len(Cadena) TamB = Len(Busca) If TamC = 0 Or TamB = 0 Or TamC < TamB Then Exit Function FirstCHR = Mid$(Busca, 1, 1) For x = Start To TamC - TamB If Mid$(Cadena, x, 1) = FirstCHR Then If Mid$(Cadena, x, TamB) = Busca Then InStr2 = x Exit Function End If End If Next End Function
P.D: Mr. Frog, espero consejos GRACIAS POR LEER!!! |
|
|
|
« Última modificación: 1 Enero 2011, 17:37 pm por 79137913 »
|
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*
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Me da que no vais a poder superar la velocidad de la funcion de VB http://xbeat.net/vbspeed/c_InStr.htm Feliz año nueeeevo!! Aguafiestas!  Pero tienes razón, sera difícil superarlo, pero el que más se acerque gana  Se me ocurrió una nueva forma de hacerlo, mañana posteo... DoEvents!
|
|
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
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 ============ 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
El proyecto se puede bajar desde aca http://www.mediafire.com/?nnt1jaazilrid1oLo ire actualizando conforme modifiquen/suban funciones
|
|
|
|
« Última modificación: 2 Enero 2011, 03:23 am por raul338 »
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! XD, Me habia olvidado del Exit Function, ahi lo modifique. Ahora me veo un poquito mejor en la tabla . P.D1: Vuelvan a hacer la Tabla XDP.D2: Mr. Frog Si estas en Invisible//No conectado, no puedo hablarte . GRACIAS POR LEER!!! |
|
|
|
« Última modificación: 1 Enero 2011, 03:16 am por 79137913 »
|
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*
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
[AYUDA] Usar INSTR 2 veces
Programación Visual Basic
|
Rudy21
|
5
|
2,893
|
9 Julio 2008, 04:01 am
por cassiani
|
|
|
|
como cargar 100 KBs en una variable; problema con InStr
Programación Visual Basic
|
drakolive
|
5
|
3,043
|
31 Diciembre 2008, 15:20 pm
por Dessa
|
|
|
|
Instr para byte arrays [src]
Programación Visual Basic
|
cobein
|
3
|
2,310
|
31 Mayo 2009, 12:42 pm
por cobein
|
|
|
|
Alternativa a pow? [c]
« 1 2 »
Programación C/C++
|
flacc
|
10
|
11,747
|
11 Diciembre 2010, 15:25 pm
por pucheto
|
|
|
|
[ANSI C] Split(), strlen(), mid(), Instr(), strcpy().
« 1 2 »
Programación C/C++
|
BlackZeroX
|
11
|
10,254
|
14 Enero 2011, 02:35 am
por Littlehorse
|
 |
