الدالة Environ

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

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

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

بناء الجملة

Environ ( { envstring | رقم } )

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

الوسيطة

الوصف

envstring

اختياري. تعبير سلسله يتضمن اسم متغير البيئه.

رقم

اختياري. تعبير رقمي المطابقه ل# ترتيب السلسله بيئه في جدول السلسله بيئه الرقميه. يمكن ان تكون اي تعبير رقمي الوسيطه number ، لكن يتم تقريبه الي عدد صحيح قبل ان يتم تقييم.


ملاحظات

اذا تعذر العثور علي envstring في جدول سلسله احرف بيئه، سلسله فارغه ("") يتم ارجاع. خلاف ذلك، ارجاع Environ النص المعينه الي المحدد envstring؛ اي سجل النص الذي يلي التساوي (=) في جدول سلسله احرف بيئه ل# تلك متغير البيئه.

اذا قمت ب# تحديد رقم، يتم ارجاع سلسله تحتل هذا الموقع الرقمي في جدول بيئه السلسله. في هذه الحاله، ترجع انفيروn النص، ب# ما في ذلك 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 هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

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

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

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×