1

Тема: VBS: Сравнение строчных и заглавных одинаковых строк.

Есть файл с набором строк из логинов пользователей и есть строка в которую помещается значение текущего логина пользователя. В файл записан логин  USER, а в домене пользователь зарегистрирован как User и получается при сравнении при помощи IF это получаются разные строки:

                        '<!--#######################Путь файла конфигурации пользователей#########-->    
                        dim UserSettingsPut
                        UserSettingsPut = "C:\Users\Константин_2\Desktop\UserSettings.txt"
                        Set oFso = CreateObject("Scripting.FileSystemObject")
                        if  oFso.FileExists(UserSettingsPut)  Then 
                            MsgBox "Файл конфигурации пользователя UserSettings.txt найден!"
                            '<!--#######################Определение логина пользователя#########-->                            
                            Set objNetwork = CreateObject("Wscript.Network")
                            dim UserActiv
                            UserActiv = objNetwork.UserName                        
                            MsgBox "Логин пользователя считан " & UserActiv    
                            Set vStream = oFso.OpenTextFile(UserSettingsPut, 1, True) 
                            Do Until vStream.AtEndOfStream 'цикл по строкам файла
                                sLine = vStream.ReadLine 
                                MsgBox "Прочитана строка: " & sLine 
                                Dim UserLine
                                UserLine = Split(sLine,";")
                                if  UserLine(0) = UserActiv Then
                                    dim UserSettingsAdress
                                    UserSettingsAdress = UserLine(1)
                                    MsgBox "Адрес сетевого ресурса считан " &UserSettingsAdress
                                    '<!--#######################При нахождении условие срабатывает выход#########-->                            
                                    Exit Do 
       
                                End If
                            Loop
                                vStream.Close 'закрываем файл
                
                        Else
                            MsgBox "Файл конфигурации пользователя UserSettings.txt не найден!"
                                    
                        End If

Вот как я произвожу сравнение:
if  UserLine(0) = UserActiv Then

Может есть у If какие-то команды благодаря которым он становится регистро независимым?
Или лучше использовать преобразование обеих строк LCase или UCase ?

2

Re: VBS: Сравнение строчных и заглавных одинаковых строк.

Спасибо разобрался:

if  LCase(UserSettingsLine(0)) = LCase(UserActiv) Then

3

Re: VBS: Сравнение строчных и заглавных одинаковых строк.

Можно также использовать «StrComp()» с параметром «vbTextCompare»:

If StrComp(UserSettingsLine(0), UserActiv, vbTextCompare) = 0 Then