Comunidad Gambas-es

Versión completa: Extendiendo la clase String - Count
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
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.