Функция environ

Статья
10/25/2024

Возвращает строку, связанную с переменной среды операционной системы. Недоступно в macOS.

Синтаксис

Environ( { envstring | number } )

Синтаксис функции Environ состоит из следующих именованных аргументов:

Part	Описание
envstring	Необязательный параметр. Строковое выражение, которое содержит имя переменной среды.
число	Необязательный параметр. Числовое выражение , соответствующее числовой последовательности строки среды в таблице environment-string. Аргументnumber может быть любым числовым выражением, но перед вычислением округляется до целого числа.

Part

Описание

envstring

Необязательный параметр. Строковое выражение, которое содержит имя переменной среды.

число

Необязательный параметр. Числовое выражение , соответствующее числовой последовательности строки среды в таблице environment-string. Аргументnumber может быть любым числовым выражением, но перед вычислением округляется до целого числа.

Замечания

Если не удается найти envstring в таблице строк среды, возвращается строка нулевой длины (""). В противном случае Environ возвращает текст, назначенный заданной envstring; то есть текст после знака равенства (=) в таблице строки среды для этой переменной среды.

Если вы указываете аргумент число, возвращается строка, занимающая указанную позицию в таблице строк среды. В таком случае функция Environ возвращает весь текст, в том числе переменная_среды. Если указанная позиция пуста, функция Environ возвращает строку нулевой длины.

Пример

В этом примере функция Environ используется для предоставления номера записи и длины инструкции PATH из таблицы строк среды. Недоступно в macOS.

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.
Indx = 1    ' Initialize index to 1.
Do
    EnvString = Environ(Indx)    ' Get environment 
                ' variable.
    If Left(EnvString, 5) = "PATH=" Then    ' Check PATH entry.
        PathLen = Len(Environ("PATH"))    ' Get length.
        Msg = "PATH entry = " & Indx & " and length = " & PathLen
        Exit Do
    Else
        Indx = Indx + 1    ' Not PATH entry,
    End If    ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
    MsgBox Msg    ' Display message.
Else
    MsgBox "No PATH environment variable exists."
End If

См. также

Функции (Visual Basic для приложений)

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через