Забележка: Функцията, методът, обекта или свойството, описани в тази тема, е забранена, ако услугата Microsoft Jet Expression се изпълнява в ограничителен режим, което не позволява оценка на потенциално опасни изрази. За повече информация относно режима на таксуване, потърсете "режим на таксуване" в "Помощ".
Връща низа , който е свързан с променлива за средата на операционната система. Не е налично на Macintosh
Синтаксис
Околност ( { envstring | номер } )
Синтаксисът на функцията за екологични функции има следните аргументи:
|
Аргумент |
Описание |
|
envstring |
Незадължително. Текстов израз, съдържащ името на променливата за средата. |
|
число |
Незадължително. Числов израз, съответстващ на числовия ред на низ за околна среда в таблицата "околна среда". Аргументът число може да бъде всеки числов израз, но се закръглява към цяло число, преди да се оцени. |
Забележки
Ако " envstring " не може да бъде намерен в таблицата "среда – низ", връща се низ с нулева дължина (""). В противен случай, околност връща текста, присвоен на указания envstring; Това означава, че текстът следва знака за равенство (=) в таблицата "околна среда – низ" за тази променлива за средата.
Ако задавате номер, низът, който заема тази числова позиция в средата-низ, се връща. В този случай Environ връща целия текст, включително envstring. Ако няма низ за средата в указаната позиция, околността Връща низ с нулева дължина.
Пример
Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
Този пример използва функцията за околна среда, за да предостави входящия номер и дължина на командата " PATH " от таблицата "средата – низ". Не е налично на Macintosh.
Dim EnvString, Indx, Msg, PathLen ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
' Get environment variable.
EnvString = Environ(Indx)
' Check PATH entry.
If Left(EnvString, 5) = "PATH=" Then
' Get length.
PathLen = Len(Environ("PATH"))
Msg = "PATH entry = " & Indx & " and length = " _
& PathLen
Exit Do
Else
' Not PATH entry, so increment.
Indx = Indx + 1
End If
Loop Until EnvString = ""
If PathLen > 0 Then
' Display message.
MsgBox Msg
Else
MsgBox "No PATH environment variable exists."
End If
