Conoscere con le sole risorse di Gambas il numero di occorrenze in una stringa

Mostriamo il codice più breve per conoscere il numero di occorrenze (sottostringhe) presenti in una stringa di caratteri. ^{[Nota 1]}

Public Sub Main()
 
 Dim i, n As Integer
 
' Avviamo un ciclo infinito...
  Do
    i = InStr(value, pattern, i + 1)
' ...che terminerà, quando le occorrenze saranno finite:
    If i = 0 Then Break
    Inc n
  Loop

  Print n
  
End

Note

[1] Il codice è stato suggerito dal membro Gianluigidel forum www.gambas-it.org .