Aplinkos funkcija

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Pastaba : Funkcija, metodą, objektų ir ypatybių šioje temoje aprašyta yra išjungta, jei Microsoft Jet išraiškų tarnyba veikia smėlio dėžės režimą, kuris trukdo galimai nesaugių reiškinių įvertinti. Daugiau informacijos apie smėlio dėžės režimą, ieškokite "smėlio dėžės režimo" žinyne.

Pateikia eilutę , susietą su operacinės sistemos aplinkos kintamasis. Nėra Macintosh kompiuteryje

Sintaksė

Aplinkos ( { aplinkos eilutės | skaičius } )

Aplinkos funkcijos sintaksė turi šiuos argumentus:

Argumentas

Aprašas

aplinkos eilutės

Pasirinktinai. Eilutės išraiška aplinkos kintamojo pavadinimas.

skaičius

Pasirinktinai. Skaitmeninė išraiška, atitinkanti skaitinių tvarką aplinkos aplinkos eilutę lentelės eilutę. Skaičių argumentas gali būti bet skaitmeninė išraiška, tačiau suapvalinamas iki sveikojo skaičiaus, prieš jį vertinama.


Pastabos

Jei aplinkos eilutės neranda aplinkos eilutės lentelėje nulinio ilgio eilutė ("") yra grąžinama. Kitu atveju aplinkos grąžina tekstą priskirti nurodytą aplinkos eilutės; tai yra tekstą, esantį po lygių prisijungti aplinkos eilutės lentelės aplinkos kintamojo (=).

Jei skaičius, grąžinamas užima skaitinių vietoje aplinkos eilutę lentelės eilutę. Šiuo atveju Environ grąžins visą tekstą, įskaitant aplinkos eilutės. Jei nėra aplinkos eilutę į konkrečią padėtį, aplinkos 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 funkcija aplinkos įrašo numerį ir ilgio PATH patvirtinimo aplinkos eilutės lentelės. Nėra Macintosh kompiuteryje.

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

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×