Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts tiek atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, tā 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" sadaļā Palīdzība.
Atgriež ar operētājsistēmas vides mainīgo saistīto virkni. Nav pieejams Macintosh datorā
Sintakse
Environ( { envstring | numurs } )
Funkcijas Environ sintaksē ir šādi argumenti:
Arguments |
Apraksts |
envstring |
Neobligāts arguments. Virknes izteiksme, kurā ir vides mainīgā nosaukums. |
skaitlis |
Neobligāts arguments. Skaitliska izteiksme, kas atbilst vides virknes skaitliskai secībai vides virkņu tabulā. Skaitļa arguments var būt jebkāda skaitliska izteiksme, bet pirms tā novērtēšana tiek noapaļota līdz veselam skaitlim. |
Piebildes
Ja envstring nevar atrast vides virkņu tabulā, tiek atgriezta nulles garuma virkne (").. Pretējā gadījumā Environ atgriež norādītajam envstring piešķirto tekstu. t.i., teksts pēc vienādības zīmes (=) vides virkņu tabulā šim vides mainīgajam.
Ja norādāt skaitli, tiek atgriezta virkne, kas aizņemta š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ā izmantota funkcija Environ , lai nodrošinātu ieraksta numuru un garumu PATH no vides virkņu tabulas. 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