Comunidad Gambas-es
Extendiendo la clase String - ContainsAny - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forumdisplay.php?fid=3)
+--- Foro: Controles/Librerías/Componentes (https://gambas-es.org/forumdisplay.php?fid=7)
+--- Tema: Extendiendo la clase String - ContainsAny (/showthread.php?tid=337)



Extendiendo la clase String - ContainsAny - tincho - 15-04-2021

Esta función imita la homóloga de Go.
GAMBAS
  1. '' <b>GO Package strings</b><br>
  2. '' <u>ContainsAny</u> reports whether any Unicode code points in chars are within s.
  3.  
  4. Static Public Function ContainsAny(s As String, chars As String) As Boolean
  5.  
  6.  
  7.   For i = 0 To chars.Len - 1
  8.     If s Like "*" & chars[i, 1] & "*" Then
  9.       b = True
  10.       Break
  11.     Endif
  12.   Next
  13.   Return b



Saludos.