Untitled

mail@pastecode.io avatarunknown
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