Piezīme
Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts ir atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, kas neļauj novērtēt potenciāli nedrošas izteiksmes. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīms" palīdzībā.
Atgriež virkni , kas saistīta ar operētājsistēmas vides mainīgo. Nav pieejams Macintosh datorā
Sintakse
Environ( { envstring | numurs } )
Funkcijas Environ sintaksei ir šādi argumenti:
| Arguments | Apraksts |
|---|---|
| envstring | Neobligāts arguments. Virknes izteiksme, kas satur vides mainīgā nosaukumu. |
| skaitlis | Neobligāts arguments. Skaitliska izteiksme, kas atbilst vides virknes skaitliskajai secībai vides virkņu tabulā. Skaitļa arguments var būt jebkāda skaitliska izteiksme, bet pirms novērtēšanas tas tiek noapaļots līdz veselam skaitlim. |
Piezīmes
Ja envstring nevar atrast vides virkņu tabulā, tiek atgriezta nulles garuma virkne (""). Pretējā gadījumā Environ atgriež tekstu, kas piešķirts norādītajai envvirknei; T.i., teksts aiz vienādības zīmes (=) vides virknes tabulā šim vides mainīgajam.
Ja norādāt skaitli, tiek atgriezta virkne, kas ieņem šo skaitlisko pozīciju vides virkņu tabulā. Šajā gadījumā Environ atgriež visu tekstu, ieskaitot envstring. Ja norādītajā pozīcijā nav vides virknes, Environ atgriež nulles garuma virkni.
Piemērs
Piezīme
Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.
Šajā piemērā ir izmantota funkcija Environ , lai no tabulas vides virkne nodrošinātu priekšraksta PATH ievades numuru un garumu. Nav pieejams Macintosh datorā.
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