Comunidad Gambas-es

'' <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
End