Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft Jet Expression Service" veikia smėlio dėžės režimu, kuris neleidžia įvertinti galimai nesaugių reiškinių. Jei reikia daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".
Pateikia eilutę , susietą su operacinės sistemos aplinkos kintamuoju. Nėra "Macintosh"
Sintaksė
Environ( { envstring | skaičius } )
Funkcijos Environ sintaksė turi tokius argumentus:
|
Argumentas |
Aprašas |
|
išvardijimo eilutės |
Pasirinktinis. Eilutės reiškinys, kuriame yra aplinkos kintamojo pavadinimas. |
|
skaičius |
Pasirinktinis. Skaitinis reiškinys, atitinkantis aplinkos eilutės skaitinę tvarką aplinkos eilučių lentelėje. Skaičiaus argumentas gali būti bet kuris skaitinis reiškinys, tačiau apvalinamas iki sveikojo skaičiaus prieš jį įvertinant. |
Pastabos
Jei aplinkos eilutės lentelėje negalima rasti eilutės eilutės, pateikiama nulinio ilgio eilutė (""). Kitu atveju Environ grąžina tekstui, priskirtam nurodytai išvardijimo eilutę; t. y. tekstas po lygybės ženklo (=) aplinkos eilutės lentelėje, skirtas tam aplinkos kintamajam.
Jei nurodysite skaičių, bus grąžinta eilutė, užimanti tą skaitinę vietą aplinkos eilučių lentelėje. Šiuo atveju Environ grąžins visą tekstą, įskaitant eilutę. Jei nurodytoje vietoje nėra aplinkos eilutės, Environ pateikia nulinio ilgio eilutę.
Pavyzdys
Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Šiame pavyzdyje naudojama funkcija Environ , kad būtų galima pateikti PATH sakinio įrašo numerį ir ilgį iš aplinkos eilutės lentelės. Negalima naudoti Macintosh.
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
