Funkcija vides

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 novērš potenciāli nedrošu izteiksmju novērtējumu. Lai iegūtu papildinformāciju par smilškastes režīmu, sadaļā Palīdzība meklējiet "smilškastes režīms".

Atgriež virkni , kas saistīta ar operētājsistēmas vides mainīgo. Nav pieejama Macintosh datorā

Sintakse

Apkārtne ( { envstring | Number } )

Funkcijas apkaimes sintaksei ir šādi argumenti.

Arguments

Apraksts

envstring

Nav obligāts. Virknes izteiksme, kas satur vides mainīgā nosaukumu.

skaitlis

Nav obligāts. Skaitliska izteiksme, kas atbilst vides virknes skaitliskajam secībai vides virkņu tabulā. Arguments skaitlis var būt jebkura skaitliska izteiksme, bet tiek noapaļots līdz veselam skaitlim, pirms tas tiek novērtēts.


Piebildes

Ja envstring nevar atrast vides virkņu tabulā, tiek atgriezta nulles garuma virkne (""). Pretējā gadījumā vide atgriež norādītajam envstringpiešķirto tekstu; tas ir, tekstu, kas seko vienādības zīmei (=) vides virkņu tabulā šim vides mainīgajam.

Ja norādāt skaitli, tiek atgriezta virkne, kas ir šī skaitliskā pozīcija vides virkņu tabulā. Šajā gadījumā viden atgriež visu tekstu, tostarp envstring. Ja norādītajā vietā nav vides virknes, funkcija Environment 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ā tiek izmantota funkcija Environment , lai nodrošinātu PATH priekšraksta ieraksta numuru un garumu no vides virkņu tabulas. Nav pieejama 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

Vai nepieciešama papildu palīdzība?

Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

×