Extendiendo la clase String - Count
tincho 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
tincho 15-04-2021, 10:57
Esta función imita la homóloga de Go.
Saludos.
Código:
'' <b>GO Package strings</b><br>
'' <u>ContainsAny</u> reports whether any Unicode code points in chars are within s.
Static Public Function ContainsAny(s As String, chars As String) As Boolean
Dim i As Integer
Dim b As Boolean = False
For i = 0 To chars.Len - 1
If s Like "*" & chars[i, 1] & "*" Then
b = True
Break
Endif
Next
Return b
EndSaludos.
tincho 15-04-2021, 10:54
Esta función se comporta igual que la de Go.
Saludos.
Código:
'' <b>GO Package strings</b><br>
'' Contains reports whether substr is within s.
Static Public Function Contains(s As String, substr As String) As Boolean
If InStr(s, substr) > 0 Then
Return True
Else
Return False
Endif
End
Bienvenido, Invitado
Últimos temas
Compile all in two pass
Foro: GeneralÚltimo mensaje por: guizans, Hace 4 horas
Respuestas: 0 - Vistas: 6
Duda con Report [SOLUCION...
Foro: GeneralÚltimo mensaje por: guizans, 24-10-2026, 14:50
Respuestas: 1 - Vistas: 1,625
Problemas con la versión ...
Foro: GeneralÚltimo mensaje por: alberto-moyano, 12-10-2026, 03:08
Respuestas: 4 - Vistas: 1,047
Me hace falta el dato de ...
Foro: Sobre gambas-es.orgÚltimo mensaje por: jguardon, 30-09-2026, 20:25
Respuestas: 1 - Vistas: 527
El conector de alimentaci...
Foro: Hardware & IoTÚltimo mensaje por: tincho, 23-09-2026, 23:03
Respuestas: 3 - Vistas: 675