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]}

Private Function CountSubString(value As String, pattern As String, Optional compare As Integer) As Integer   ' compare default = Sensitive, 1 = Insensitive
 
 Dim i, n As Integer
 
' Avviamo un ciclo infinito...
  Do
    i = InStr(value, pattern, i + 1, compare)
' ...che terminerà, quando le occorrenze saranno finite:
    If i = 0 Then Break
    Inc n
  Loop
  
  Return n
  
End

Note

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