الدالة Environ

إرجاع السلسلة المقترنة بمتغير بيئة نظام التشغيل. غير متوفر على Macintosh

بناء الجملة

Environ( { envstring | number } )

يحتوي بناء جملة الدالة Environ على هذه الوسيطات:

الوسيطة	الوصف
envstring	اختيارية. تعبير سلسلة يحتوي على اسم متغير بيئة.
عدد	اختيارية. تعبير رقمي يتوافق مع الترتيب الرقمي لسلسلة البيئة في جدول سلسلة البيئة. يمكن أن تكون وسيطة الرقم أي تعبير رقمي، ولكن يتم تقريبها إلى عدد صحيح قبل تقييمها.

    

ملاحظات

إذا تعذر العثور على envstring في جدول سلسلة البيئة، يتم إرجاع سلسلة ذات طول صفري (""). وإلا، يقوم Environ بإرجاع النص المعين إلى envstring المحدد؛ أي النص الذي يتبع علامة التساوي (=) في جدول سلسلة البيئة لمتغير البيئة هذا.

إذا قمت بتحديد رقم، يتم إرجاع السلسلة التي تشغل هذا الموضع الرقمي في جدول سلسلة البيئة. في هذه الحالة، يقوم Environ بإرجاع كل النص، بما في ذلك envstring. إذا لم تكن هناك سلسلة بيئة في الموضع المحدد، فترجع Environ سلسلة ذات طول صفري.

مثال

يستخدم هذا المثال الدالة Environ لتوفير رقم الإدخال وطول العبارة PATH من جدول سلسلة البيئة. غير متوفر على 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