Funzione per contare le sottostringhe

[Gianluigi]

Sulla ML di Gambas è apparsa questa domanda, io non credo esista una funzione nativa di Gambas e ho suggerito di farsene una da soli ad esempio:

Codice: [Seleziona]

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

  While i <= Len(value)
    i = InStr(value, pattern, i + 1, compare)
    If i = 0 Then Break
    Inc n
  Wend
  Return n

End

Qualche idea migliore?

 

P.S. Private solo se inserita nello stesso modulo, naturalmente. 

[vuott]

Per ora raffinerei il precedente tuo codice così:

Codice: [Seleziona]

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

  Do     ' ...ὁ ἄπειρος κύκλος !

    i = InStr(value, pattern, i + 1, compare)
    If i = 0 Then Break
    Inc n

  Loop

  Return n

End

[Gianluigi]

Per ora raffinerei il precedente tuo codice così:

Ottimo, avevo già notato che ad esempio non serviva l'uguale nella prima valutazione ma non mi si era accesa nessuna lampadina.
Avrei dovuto rendermi conto che la seconda valutazione era sufficiente
Credo che questa sia la soluzione migliore "via Gambas", altrimenti per quale motivo Minisini avrebbe introdotto nella funzione InStr la possibilità di variare l'inizio...