15-04-2021, 10:59
Esta es la versión "gambosa" de Count de Go.
Saludos.
Código:
'' <b>RAD Extension.</b><br>
'' Counts how much times some string apear in other
Static Public Function Count(sWhere As String, sWhich As String) As Integer
Dim k As Integer = 1
Dim q As Integer
Dim r As Integer
Repeat
q = InStr(sWhere, sWhich, k)
If q > 0 Then
Inc r
k = q + String.Len(sWhich)
Endif
Until InStr(sWhere, sWhich, k) = 0 Or k > String.Len(sWhere)
Return r
End