tercoIDE escribió: [Ver mensaje]
¿Que es gambas + Fast?
Saludos.
Cuantas Veces Se Repite Una Cadena En Otra.
Objetivo: Re: Cuantas Veces Se Repite Una Cadena En Otra.
Ok, gracias.
tercoIDE escribió: [Ver mensaje]
Ok, gracias.
Objetivo: Re: Cuantas Veces Se Repite Una Cadena En Otra.
...y no quiero hablar de la velocidad de Assembly ! 
Objetivo: Re: Cuantas Veces Se Repite Una Cadena En Otra.
Esto que hizo el topo, es EXACTAMENTE como funciona OpenGL hoy en dia:
La CPU le envia codigo C en forma de String a la GPU para que se ocupe de los graficos con su poder de procesamiento, liberando a la cpu para otras tareas. Estoy estudiando el tema para aplicarlo al CAD
vuott escribió: [Ver mensaje]
Esto que hizo el topo, es EXACTAMENTE como funciona OpenGL hoy en dia:
La CPU le envia codigo C en forma de String a la GPU para que se ocupe de los graficos con su poder de procesamiento, liberando a la cpu para otras tareas. Estoy estudiando el tema para aplicarlo al CAD
Objetivo: Re: Cuantas Veces Se Repite Una Cadena En Otra.
TercoIde:
Ohhh.... super interesante....
Citar:
Ohhh.... super interesante....
Objetivo: Re: Cuantas Veces Se Repite Una Cadena En Otra.
Aquí hay una versión simple.
Public Sub Form_Open()
Print StringCount("Hello World Hello World Hello World Hello World", "WORLD")
End
Public Sub StringCount(sString As String, sToFind As String) As Integer
Dim iPos, iCount As Integer
Do
iPos = InStr(sString, sToFind, iPos, gb.IgnoreCase)
If iPos Then iPos += Len(sToFind) Else Return iCount
Inc iCount
Loop
End
Print StringCount("Hello World Hello World Hello World Hello World", "WORLD")
End
Public Sub StringCount(sString As String, sToFind As String) As Integer
Dim iPos, iCount As Integer
Do
iPos = InStr(sString, sToFind, iPos, gb.IgnoreCase)
If iPos Then iPos += Len(sToFind) Else Return iCount
Inc iCount
Loop
End
Objetivo: Re: Cuantas Veces Se Repite Una Cadena En Otra.
Yo, sin embargo, introduciría estas modificaciones:
última edición por vuott el Lunes, 11 May 2020, 16:03; editado 1 vez
cogier escribió: [Ver mensaje]
Yo, sin embargo, introduciría estas modificaciones:
Public Sub Main()
Print StringCount("Hello World Hello World Hello World Hello World", "WORLD")
End
Public Sub StringCount(sString As String, sToFind As String) As Integer
Dim iPos, iCount As Integer
Repeat
iPos = InStr(sString, sToFind, iPos, gb.IgnoreCase)
If iPos Then
Inc iPos
Inc iCount
Endif
Until iPos == 0
Return iCount
End
Print StringCount("Hello World Hello World Hello World Hello World", "WORLD")
End
Public Sub StringCount(sString As String, sToFind As String) As Integer
Dim iPos, iCount As Integer
Repeat
iPos = InStr(sString, sToFind, iPos, gb.IgnoreCase)
If iPos Then
Inc iPos
Inc iCount
Endif
Until iPos == 0
Return iCount
End
última edición por vuott el Lunes, 11 May 2020, 16:03; editado 1 vez
Página 3 de 3
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.4272s (PHP: -75% SQL: 175%)
Consultas SQL: 45 - Debug off - GZIP Activado