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

Da Gambas-it.org - Wikipedia.

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 .