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 arv võib olla mis tahes arvuline avaldis, kuid ümardatakse enne väärtustamist täisarvuks. |
Kommentaarid
Kui funktsiooni envstring ei leita keskkonnastringi tabelist, tagastatakse nullpikkusega string (""). Muul juhul tagastab Environ määratud envstringile määratud teksti; st selle keskkonnamuutuja võrdusmärgile (=) järgnev tekst keskkonnastringi tabelis.
Kui määrate arvu, tagastatakse string, mis hõivab keskkonnastringi tabelis selle arvulise asukoha. Sel juhul tagastab Environ kogu teksti, sh envstringi. 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 lause kirjenumber ja pikkus PATH 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