https://foro.gambas-es.org/viewtopic.php?f=5&t=8014&p=48267#p48267
-----------------------------------
tincho
Sabado, 02 May 2020, 14:44

Re: Cuantas Veces Se Repite Una Cadena En Otra.
-----------------------------------
Gracias a todos.
Ayer el la desesperación de la madrugada por hacer que funcione use esto:
[code linenumbers=false syntax=gambas]
'' Function that count the times a substring appear in other string

Public Function StrCount(sWhere As String, sWhich As String) As Integer
  Dim i As Integer
  Dim Cursor As Integer
  Dim Counter As Integer
  i = 1
  Repeat
    Cursor = InStr(sWhere, sWhich, i)
    If Cursor > 0 Then
      Inc Counter
      i = i + Cursor + String.Len(sWhich)
    Endif
  Until InStr(sWhere, sWhich, i) = 0 Or i > String.Len(sWhich)
  Return Counter
End
[/code]
En fin, otra opción.
Saludos.


