Conoscere con le sole risorse di Gambas il numero di occorrenze in una stringa
Da Gambas-it.org - Wikipedia.
Versione del 14 set 2017 alle 09:32 di Vuott (Discussione | contributi)
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 .