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

null@example.com (alexii) — Sat, 22 Feb 2014 18:47:28 +0000

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

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

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

null@example.com (wildwolf007) — Sat, 22 Feb 2014 12:47:49 +0000

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

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

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

null@example.com (wildwolf007) — Fri, 21 Feb 2014 17:16:05 +0000

Есть файл с набором строк из логинов пользователей и есть строка в которую помещается значение текущего логина пользователя. В файл записан логин 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 ?

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

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

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

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