Funktsioon Environ

NB! :  See artikkel on masintõlgitud, vaadake lahtiütlust. Selle artikli ingliskeelse versiooni leiate aadressilt (viiteks).

Märkus. : Kui Microsoft Jet Expression Service töötab liivakastirežiimis, mis takistab potentsiaalselt ebaturvaliste avaldiste väärtustamist, on käesolevas artiklis kirjeldatud funktsioon, meetod, objekt või atribuut keelatud. Liivakastirežiimi kohta lisateabe saamiseks otsige spikrist sõna „liivakastirežiim”.

Tagastab opsüsteemi keskkonnamuutujaga seotud Stringi. Pole saadaval Macintoshi arvutis.

Süntaks

Environ( { envstring | number } )

Funktsiooni Environ süntaksis on järgmised argumendid.

Argument

Kirjeldus

envstring

Valikuline. Keskkonnamuutuja nime sisaldav stringiavaldis.

number

Valikuline. Keskkonnastringi numbrilisele järjestusele keskkonnastringi tabelis vastav arvuline avaldis. Argument number võib olla arvuline avaldis, aga ümardatakse enne väärtustamist täisarvuks.


Kommentaarid

Kui argumenti envstring ei tuvastata keskkonnastringi tabelist, tagastatakse nullpikkusega string (""). Muul juhul tagastab Environ argumendile envstring määratud teksti (st teksti, mis järgneb keskkonnastringi tabelis selle keskkonnamuutuja juures võrdusmärgile =).

Kui määrate argumendi number, tagastatakse see string, mis on keskkonnastringi tabeli selles arvulises asukohas. Sel juhul tagastab Environ kogu teksti, sh argumendi envstring. Kui määratud asukohas pole ühtegi keskkonnastringi, tagastab Environ nullpikkusega stringi.

Näide

Märkus. : Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Selles näites sisestatakse funktsiooni Environ abil PATH-lause kirjenumber ja pikkus keskkonnastringi tabelist. Pole saadaval Macintoshi arvutis.

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

Märkus. : Masintõlke lahtiütlus. Selle artikli tõlkis arvutisüsteem ilma inimese sekkumiseta. Microsoft pakub selliseid masintõlkeid, et inglise keelt mittekõnelevad kasutajad saaksid vaadata sisu Microsofti toodete, teenuste ja tehnoloogiate kohta. Kuna artikkel on masintõlgitud, võib see sisaldada sõnavara-, süntaksi- või grammatikavigu.

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×