Versione delle 09:29, 14 set 2017

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 .