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
Problema con el repósito ...
Foro: InstalaciónÚltimo mensaje por: guizans, 14-04-2026, 21:38
Respuestas: 2 - Vistas: 282
UEFI y BIOS
Foro: Hardware & IoTÚltimo mensaje por: guizans, 13-04-2026, 21:22
Respuestas: 3 - Vistas: 2,441
Visual Studio Code con Ga...
Foro: GeneralÚltimo mensaje por: guizans, 07-03-2026, 14:24
Respuestas: 2 - Vistas: 657
WebForm con mysql gridvie...
Foro: WebApp/WebFormsÚltimo mensaje por: vjarvelo, 03-03-2026, 16:32
Respuestas: 2 - Vistas: 3,327
Sobre la proteccion del c...
Foro: GeneralÚltimo mensaje por: Shordi, 19-02-2026, 11:07
Respuestas: 7 - Vistas: 1,218