ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة Microsoft Jet Expression Service قيد التشغيل في وضع الحماية، مما يمنع تقييم التعبيرات التي قد تكون غير آمنة. لمزيد من المعلومات حول وضع الحماية، ابحث عن "وضع الحماية" في "تعليمات".

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

بناء الجملة

Environ ( { envstring |رقم } )

في بناء جملة الدالة 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

هل تحتاج إلى مزيد من المساعدة؟

توسيع المهارات

استكشاف التدريب >

الحصول على الميزات الجديدة أولاً

الانضمام إلى MICROSOFT INSIDERS >

هل كانت المعلومات مفيدة؟

ما مدى رضاك عن جودة اللغة؟
ما الذي أثّر في تجربتك؟

نشكرك على ملاحظاتك!

×