Untitled
unknown
plain_text
a year ago
776 B
2
Indexable
Never
Dim searchList As List(Of String) = New List(Of String)() From {"dispecer", "operator", "idm", "Dispecerat", "test", "Dispo", "Diszpecser", "TESZT", "Cronos", "Maghiar", "CFR", "MAV", "Tura", "Rcr", "Port", "rc"} Dim searchListClients = UsersBLL.aduListaAppClients(cUser.U_ID) Dim searchString As String = Username Dim found As Boolean = False Dim regex As Regex For Each item As String In searchList Dim regexPattern As String = String.Format("{0}", Regex.Escape(item)) regex = New Regex(regexPattern, RegexOptions.IgnoreCase) If regex.IsMatch(searchString) Then found = True Exit For ' Exit the loop if a match is found End If Next