Comunidad Gambas-es
Extendiendo la clase String - Count - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forumdisplay.php?fid=3)
+--- Foro: Controles/Librerías/Componentes (https://gambas-es.org/forumdisplay.php?fid=7)
+--- Tema: Extendiendo la clase String - Count (/showthread.php?tid=338)



Extendiendo la clase String - Count - tincho - 15-04-2021

Esta es la versión "gambosa" de Count de Go.
GAMBAS
  1. '' <b>RAD Extension.</b><br>
  2. '' Counts how much times some string apear in other
  3.  
  4. Static Public Function Count(sWhere As String, sWhich As String) As Integer
  5.  
  6.   Dim k As Integer = 1
  7.  
  8.     q = InStr(sWhere, sWhich, k)
  9.     If q > 0 Then
  10.       Inc r
  11.       k = q + String.Len(sWhich)
  12.     Endif
  13.   Until InStr(sWhere, sWhich, k) = 0 Or k > String.Len(sWhere)
  14.  
  15.   Return r
  16.  


Saludos.