Megjegyzés: A témakörben ismertetett függvény, metódus, objektum vagy tulajdonság le van tiltva, ha a Microsoft Jet Expression Service védőfalas üzemmódban fut, mivel ez megakadályozza az esetleg nem biztonságos kifejezések kiszűrését. A védőfalas üzemmódról a súgóban a „védőfalas üzemmód” kifejezésre keresve talál további információt.
Egy operációsrendszer-környezeti változóhoz társított sztringet adja vissza. Macintosh rendszeren nem érhető el
Szintaxis
Environ( { envstring | number } )
Az Environ függvény szintaxisa az alábbi argumentumokat foglalja magában:
argumentumok |
Leírás |
envstring |
Nem kötelező. Egy környezeti változó nevét tartalmazó sztringkifejezés. |
szám |
Nem kötelező. A környezeti sztring numerikus sorrendjének megfelelő numerikus kifejezés a környezeti sztring táblában. A szám argumentum bármilyen numerikus kifejezés lehet, de a kiértékelése előtt a függvény egész számra kerekítve lesz. |
Megjegyzések
Ha az envstring nem található a környezeti sztring táblában, a rendszer nulla hosszúságú karakterláncot ("") ad vissza. Ellenkező esetben az Environ a megadott envstringhez rendelt szöveget adja vissza; ez azt jelenti, hogy a környezeti változó környezeti sztringtáblájában az egyenlőségjelet (=) követő szöveg.
Ha számot ad meg, a környezeti sztring táblában ezt a numerikus pozíciót elfoglaló sztring lesz visszaadva. Ebben az esetben az Environ az összes szöveget visszaadja, beleértve az envstring kifejezést is. Ha a megadott pozícióban nincs környezeti sztring, az Environ nulla hosszúságú karakterláncot ad vissza.
Példa
Megjegyzés: A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Ez a példa az Environ függvénnyel adja meg a környezeti sztring táblából származó PATH utasítás bejegyzésszámát és hosszát. Macintosh rendszeren nem érhető el.
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