Differenze tra le versioni di "Conoscere con le sole risorse di Gambas il numero di occorrenze in una stringa"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Mostriamo il codice più breve per conoscere il numero di occorrenze (sottostringhe) presenti in una stringa di caratteri. <SUP>[[[#Note|Nota 1]]]</sup> '''Public'...") |
|||
Riga 1: | Riga 1: | ||
Mostriamo il codice più breve per conoscere il numero di occorrenze (sottostringhe) presenti in una stringa di caratteri. <SUP>[[[#Note|Nota 1]]]</sup> | Mostriamo il codice più breve per conoscere il numero di occorrenze (sottostringhe) presenti in una stringa di caratteri. <SUP>[[[#Note|Nota 1]]]</sup> | ||
− | ''' | + | '''Private''' Function CountSubString(value As String, pattern As String, Optional compare As Integer) As Integer <FONT Color=gray>' ''compare default = Sensitive, 1 = Insensitive''</font> |
Dim i, n As Integer | Dim i, n As Integer | ||
Riga 7: | Riga 7: | ||
<FONT Color=gray>' ''Avviamo un ciclo infinito...''</font> | <FONT Color=gray>' ''Avviamo un ciclo infinito...''</font> | ||
Do | Do | ||
− | i = InStr(value, pattern, i + 1) | + | i = InStr(value, pattern, i + 1, compare) |
<FONT Color=gray>' ''...che terminerà, quando le occorrenze saranno finite:''</font> | <FONT Color=gray>' ''...che terminerà, quando le occorrenze saranno finite:''</font> | ||
If i = 0 Then Break | If i = 0 Then Break | ||
Inc n | Inc n | ||
Loop | Loop | ||
− | + | ||
− | + | Return n | |
'''End''' | '''End''' | ||
Riga 21: | Riga 21: | ||
=Note= | =Note= | ||
− | [1] Il codice è stato suggerito dal membro [http://www.gambas-it.org/smf/index.php?action=profile;u=1249 Gianluigi]del forum ''www.gambas-it.org'' . | + | [1] Il codice è stato suggerito dal membro [http://www.gambas-it.org/smf/index.php?action=profile;u=1249 Gianluigi] del forum ''www.gambas-it.org'' . |
Versione delle 09:32, 14 set 2017
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 .