Funkcija "okolinu"

Napomena: Funkcija, metod, objekat ili vlasništvo opisane u ovoj temi je onemogućeno ako se pokreće Microsoft Jet Expression usluga u okviru "sandbox" režima, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o "sandbox" režimu potražite u okviru pomoći "sandbox režim".

Daje nisku povezanu sa promenljivom okruženja operativnog sistema. Nije dostupno na Macintosh računarima

Sintaksa

Okolinu ( { enve String | broj } )

Sintaksa funkcije okolinu ima sledeće argumente:

Argument

Opis

kodiranja

Opcionalno. Izraz niske koji sadrži ime promenljive okruženja.

broj

Opcionalno. Numerički izraz koji odgovara numeričkoj redosledu niske okruženja u tabeli "niska okruženja". Argument Number može da bude bilo koji numerički izraz, ali se zaokružuje na ceo broj pre nego što se proceni.


Napomene

Ako se u tabeli "niska okruženja" ne može pronaći invanstring , daje se niska nulte dužine (""). U suprotnom, okolinu vraća tekst dodeljen navedenoj envestring; To jest, tekst koji prati znak jednakosti (=) u tabeli "niska okruženja" za tu promenljivu okruženja.

Ako navedete broj, nalazi se u okruženju numeričkog položaja u tabeli "niska okruženja". U ovom slučaju, okolinin daje sav tekst, uključujući i ennstring. Ako na navedenom položaju ne postoji niska okruženja, okolina daje nisku nulte dužine.

Primer

Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.

U ovom primeru, funkcija okolina se koristi da bi se obezbedio broj stavki i dužina izvoda iz PATH iz tabele "niska okruženja". Nije dostupno na Macintosh računarima.

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

Potrebna vam je dodatna pomoć?

Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

×