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.
Az operációs rendszer környezeti változójához társított karakterláncot adja eredményül. Macintosh rendszeren nem érhető el
Szintaxis
Environ( { envstring | number } )
Az Environ függvény szintaxisa az alábbi argumentumokat foglalja magában:
| Argumentum | Leírás: |
|---|---|
| enverz.karakterlánc | Nem kötelező. Egy környezeti változó nevét tartalmazó karakterlánc-kifejezés. |
| szám | Nem kötelező. A környezeti karakterlánc táblázatban szereplő környezeti karakterlánc numerikus sorrendjének megfelelő numerikus kifejezés. A Szám argumentum bármilyen numerikus kifejezés lehet, de a kiértékelés előtt egész számra kell kerekíteni. |
Megjegyzések
Ha az envstring nem található meg a environment-string táblázatban, a függvény nulla hosszúságú karakterláncot ("") ad vissza. Ellenkező esetben az Environ a megadott envstring-hez rendelt szöveget adja vissza; vagyis az adott környezeti változóhoz tartozó környezeti karakterlánc táblázatban az egyenlőségjel (=) utáni szöveg.
Ha számot ad meg, akkor a program azt a karakterláncot adja vissza, amely ezt a numerikus helyet foglalja el a környezet-karakterlánc táblázatban. Ebben az esetben az Environ a teljes szöveget visszaadja, beleértve az envstring függvényt is. Ha nincs környezeti sztring a megadott pozícióban, az Environ egy 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 az utasítás bejegyzésének számát és hosszát PATH a environment-string táblából. 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