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
El ratón no hace click do...
Foro: InstalaciónÚltimo mensaje por: guizans, 30-01-2026, 20:41
Respuestas: 2 - Vistas: 99
Parámetro de clase y pará...
Foro: GeneralÚltimo mensaje por: guizans, 30-01-2026, 20:40
Respuestas: 8 - Vistas: 235
Gmao-Factory: Aplicación ...
Foro: PythonÚltimo mensaje por: jguardon, 25-01-2026, 15:53
Respuestas: 5 - Vistas: 201
SqetchDB, un proyecto re-...
Foro: GeneralÚltimo mensaje por: guizans, 21-01-2026, 19:57
Respuestas: 8 - Vistas: 381
Soporte para pasar Arrays...
Foro: Bases de DatosÚltimo mensaje por: Shordi, 19-01-2026, 19:14
Respuestas: 3 - Vistas: 262