ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة تعبير Microsoft Jet قيد التشغيل في وضع بيئة الاختبار المعزولة، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع بيئة الاختبار المعزولة، ابحث عن "وضع بيئة الاختبار المعزولة" في التعليمات.
إرجاع السلسلة المقترنة بمتغير بيئة نظام التشغيل. غير متوفر على Macintosh
بناء الجملة
Environ( { envstring | number } )
يحتوي بناء جملة الدالة Environ على هذه الوسيطات:
|
الوسيطة |
الوصف |
|
envstring |
اختيارية. تعبير سلسلة يحتوي على اسم متغير بيئة. |
|
number |
اختيارية. تعبير رقمي يتوافق مع الترتيب الرقمي لسلسلة البيئة في جدول سلسلة البيئة. يمكن أن تكون وسيطة الرقم أي تعبير رقمي، ولكن يتم تقريبها إلى عدد صحيح قبل تقييمها. |
ملاحظات
إذا تعذر العثور على envstring في جدول سلسلة البيئة، يتم إرجاع سلسلة ذات طول صفري (""). وإلا، يقوم Environ بإرجاع النص المعين إلى envstring المحدد؛ أي النص الذي يتبع علامة التساوي (=) في جدول سلسلة البيئة لمتغير البيئة هذا.
إذا قمت بتحديد رقم، يتم إرجاع السلسلة التي تشغل هذا الموضع الرقمي في جدول سلسلة البيئة. في هذه الحالة، يقوم Environ بإرجاع كل النص، بما في ذلك envstring. إذا لم تكن هناك سلسلة بيئة في الموضع المحدد، فترجع Environ سلسلة ذات طول صفري.
مثال
ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA). لمزيد من المعلومات حول العمل مع VBA، حدد مرجع المطور في القائمة المنسدلة بجوار البحث وأدخل مصطلحا واحدا أو أكثر في مربع البحث.
يستخدم هذا المثال الدالة 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
