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:
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?
:ciao:
P.S. Private solo se inserita nello stesso modulo, naturalmente. :)
Per ora raffinerei il precedente tuo codice così:
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