Environ функциясы

Ескерту : Егер Microsoft Jet Expression қауіптілігі ықтимал өрнектің есептелуіне жол бермейтін құмсалғыш режимінде іске қосылғанда, осы бөлімдегі функция, әдіс, нысан немесе сипат доғарылады. Құмсалғыш режимі туралы толық ақпарат алу үшін Анықтамадағы "құмсалғыш режимін" іздеңіз.

Операциялық жүйе ортасының айнымалы мәніне қатысты Тізбекті қайтарады. Бұл Macintosh жүйесінде жоқ.

Синтаксис

Environ( { envstring | сан } )

Environ функцияның синтаксисы келесі аргументтерді қолданады:

Аргумент

Сипаттама

envstring

Қосымша. Ортаның айнымалы мәнінің атауы бар тізбекті өрнек.

сан

Қосымша. Конфигурациясын сипаттау жолағындағы орта тізбегінің цифрлік кезегіне сәйкес келетін цифрлік өрнек. Сан аргументі кез келген сандық өрнек болуы мүмкін, бірақ бағаланбас бұрын, бүтін санға айналдырылады.


Түсініктемелер

Егер envstring функциясы конфигурациясын сипаттау жолағында табылмаса, бос тізбек ("") қайтарылады. Болмаса, Environ функциясы envstring өрнегіне бекітілген мәтінді қайтарады; яғни, сол ортаның айнымалы мәніне конфигурациясын сипаттау жолағының кестесіндегі тең белгісінен (=) кейін келетін мәтін.

Егер цифрді белгілесеңіз, конфигурациясын сипаттау жолағының кестесіндегі сандық орынды алатын тізбекті қайтарады. Бұл жағдайда, Environ функциясы барлық мәтінді қайтарады, оның ішінде, envstring функциясы да бар. Егер белгіленген орында ешқандай орта тізбегі болмаса, Environ функциясы бос тізбекті қайтарады.

Мысал

Ескерту : Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (VBA) модулінде пайдаланылуын көрсетеді. VBA модулімен жұмыс істеу туралы көбірек ақпарат алу үшін, жайылмалы шаршыдағы Іздеу түймешігінің қасындағы Жасақтаушы сілтемелері түймешігін нұқып, іздеу жолағына бір немесе бірнеше шартты ендіріңіз.

Бұл мысал Environ функциясын қолдану арқылы конфигурациясын сипаттау жолағының кестесінен кіріс санды және 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
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×