Untitled
plain_text
a month ago
1.1 kB
1
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"} Dim searchListClients = UsersBLL.aduListaAppClients(cUser.U_ID) Dim searchString As String = Username.ToLower() ' Convertim la litere mici pentru a compara insensitiv la caz Dim found As Boolean = False Dim wordsInUsername As String() = searchString.Split(" "c) For Each item As String In searchList For Each word As String In wordsInUsername If word = item Then found = True Exit For End If Next If found Then Exit For End If Next If found Then ' Afișați un mesaj de eroare sau faceți altă acțiune aici Console.WriteLine("Nu puteți adăuga acest utilizator.") Else ' Adăugați utilizatorul aici Console.WriteLine("Utilizatorul a fost adăugat cu succes.") End If