الدالة 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