Чек userName на равенство одному из разрешённых

@ooos · Регистрация: 08.04.2021

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Имеется рабочий вариант проверки:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Sub CheckName_1()
    Dim userName, usernames As Variant, accessAllowed As Boolean
    accessAllowed = False
    
    usernames = Array("Ooos", "Bob", "Dave", "Sally", "Amanda")  
    
    For Each userName In usernames
        If Environ("USERNAME") = userName Then
            accessAllowed = True
            Exit For
        End If
    Next
    
    If Not accessAllowed Then
         MsgBox "Имя пользователя не равно одному из разрешённых, Exit Sub"
    End If
     MsgBox "Имя пользователя равно одному из разрешённых, приветствую" 
End Sub

И не совсем рабочий (userName равно одному из элементов массива, но выходит сообщение о неравенстве):

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub CheckName_2() 
    Dim allowedNames As Variant, userName, anyOfAllowedNames As String     
    allowedNames = Array("Ooos", "Bob", "Dave", "Sally", "Amanda")    
    userName = Environ("USERNAME") 
    If userName <> anyOfAllowedNames Then 
        MsgBox "Имя пользователя не равно одному из разрешённых, Exit Sub"
        Exit Sub
    End If
     MsgBox "Имя пользователя равно одному из разрешённых, приветствую" 
End Sub

Ввиду компактности хотелось бы использовать CheckName_2, в чем причина ошибки и как её устранить?

@testuser2 · 21.06.2025, 10:03

Сообщение от ooos

И не совсем рабочий

Он не корректный, поскольку переменная anyOfAllowedNames нигде не присваивается. Можно не использовать массив.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub CheckName_3()
    Dim allowedNames$, userName$,
    allowedNames = " user, Ooos, Bob, Dave, Sally, Amanda"
    userName = " " & Environ("USERNAME") & ","
    If InStr(1, allowedNames, userName, vbTextCompare) = 0 Then
        MsgBox "Имя пользователя не равно одному из разрешённых, Exit Sub"
        Exit Sub
    End If
     MsgBox "Имя пользователя равно одному из разрешённых, приветствую"
End Sub

@ooos · 21.06.2025, 10:49 **[ТС]**

Сообщение от testuser2

Можно не использовать массив

testuser2, идеально. Спасибо за Решение.

shanemac51 · 21.06.2025, 11:20

Сообщение от testuser2

allowedNames = " user, Ooos, Bob, Dave, Sally, Amanda"
userName = " " & Environ("USERNAME") & ","
If InStr(1, allowedNames, userName, vbTextCompare) = 0 Then

вряд ли ваш код найдет Amanda

@testuser2 · 21.06.2025, 11:22

shanemac51, спасибо за замечание, надо было добавить запятую в конце

@АЕ · 21.06.2025, 11:26

Сообщение от testuser2

надо было добавить запятую в конце

или убрать вообще запятую из userName

@testuser2 · 21.06.2025, 11:33

Сообщение от АЕ

или убрать вообще запятую из

ладно убарать, мозги кипят, жаришка у нас просто нещадная, под 40 в тени

@АЕ · 21.06.2025, 11:38

Сообщение от testuser2

под 40 в тени

у нас сейчас только в Сибири такая температура...

@testuser2 · 21.06.2025, 11:39

Сообщение от АЕ

у нас сейчас только в Сибири

я фактически там

shanemac51 · 21.06.2025, 12:16

Visual Basic
1
If InStr(1, allowedNames & ",", userName, vbTextCompare) = 0 Then

@Toxa33rus · 08.07.2025, 14:44

Сообщение от АЕ

или убрать вообще запятую из userName

Тогда Aman будет найден, а не должен был.

@Eugene-LS · 08.07.2025, 16:26

Сообщение от Toxa33rus

Тогда Aman будет найден, а не должен был.

Совершенно верно!

Сообщение от ooos

Ввиду компактности хотелось бы использовать CheckName_2

В VBA нет встроенной функции или оператора AnyOf.
Так что, при всей "некомпактности", - первый вариант надёжнее, и его можно "подсократить" используя универсальную функцию:

Вариант:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub CheckName_1()
Dim sUserName As String, vArrNames, blnAllowed As Boolean
 
    
    vArrNames = Array("Ooos", "Bob", "Dave", "Sally", "Amanda")
    sUserName = Environ("USERNAME")
    blnAllowed = IsValueInArray(sUserName, vArrNames)
    
    If blnAllowed Then
        MsgBox "Приветствую!" & vbCrLf & "Имя пользователя " & _
            "равно одному из разрешённых.", vbInformation, "Зя! :)"
    Else
        MsgBox "Имя пользователя не равно ни " & _
            "одному из разрешённых", vbExclamation, "Низ-з-з-зя!"
    End If
    
End Sub
 
Public Function IsValueInArray(sVal As String, vArray) As Boolean
' Проверяет наличие <sVal> в массиве <vArray>
' ----------------------------------------------------------------------------------------/
Dim vArrVal
    For Each vArrVal In vArray
        If vArrVal = sVal Then
            IsValueInArray = True
            Exit For
        End If
    Next
End Function

Добавлено через 42 минуты

Сообщение от ooos

хотелось бы использовать CheckName_2

Костыль из серии "враг не пройдёт!" :
Экранируем случайные совпадения восклицательными знаками (например), в начале и в конце.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub CheckName03()
Dim sVal As String, blnAllowed As Boolean
Const sAllowedNames$ = "!Ooos!; !Bob!; !Dave!; !Sally!; !Amanda!"  ' точка с запятой для "красоты" только
 
    sVal = "*!" & Environ("USERNAME") & "!*"
    blnAllowed = (sAllowedNames Like sVal)
   
    If blnAllowed Then
        MsgBox "Приветствую!" & vbCrLf & "Имя пользователя " & _
            "равно одному из разрешённых.", vbInformation, "Зя! :)"
    Else
        MsgBox "Имя пользователя не равно ни " & _
            "одному из разрешённых", vbExclamation, "Низ-з-з-зя!"
    End If
    
End Sub

А можно и так:

Visual Basic
1
Const sAllowedNames$ = "!Ooos!Bob!Dave!Sally!Amanda!"

@testuser2 · 08.07.2025, 17:15

Сообщение от Toxa33rus

Тогда Aman будет найден, а не должен был.

Збагойно

Visual Basic
1
2
    allowedNames = "|BabaGalya|Ooos|BFAngel|mamaProgr|AlHattab|SpaceShattl|"
    userName = "|" & Environ("USERNAME") & "|"

@Angry Old Man · 11.07.2025, 06:25

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub CheckName_1()
    Dim userName, usernames As Variant, accessAllowed As Boolean
    usernames = Array("Ooos", "Bob", "Dave", "Sally", "Amanda")
    
    accessAllowed = InStr(1, vbCr & Join(usernames, vbCr) & vbCr, vbCr & Environ("USERNAME") & vbCr, 1) > 0
    If Not accessAllowed Then
        MsgBox "Имя пользователя не равно одному из разрешённых": Exit Sub
    End If
    MsgBox "Имя пользователя равно одному из разрешённых, приветствую"
End Sub

Visual Basic
1
2
3
4
5
6
7
8
9
Sub CheckName_2()
    If Not accessAllowed(Array("Ooos", "Bob", "Dave", "Sally", "Amanda")) Then
        MsgBox "Имя пользователя не равно одному из разрешённых": Exit Sub
    End If
    MsgBox "Имя пользователя равно одному из разрешённых, приветствую"
End Sub
Function accessAllowed(usernames) As Boolean
    accessAllowed = InStr(1, vbCr & Join(usernames, vbCr) & vbCr, vbCr & Environ("USERNAME") & vbCr, 1) > 0
End Function

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

@testuser2 1383 / 838 / 90 Регистрация: 08.02.2017 Сообщений: 3,511 Записей в блоге: 1
	21.06.2025, 11:22
	shanemac51, спасибо за замечание, надо было добавить запятую в конце 0