הפונקציה Environ

הערה: הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינה זמינה אם שירות הביטויים של Microsoft Jet פועל במצב ארגז חול, דבר המונע הערכה של ביטויים לא בטוחים שעלולים להיות לא בטוחים. לקבלת מידע נוסף אודות מצב ארגז חול, חפש את ' מצב ארגז חול ' בעזרה.

הפונקציה מחזירה את המחרוזת המשויכת למשתנה סביבה של מערכת ההפעלה. לא זמין ב-Macintosh

תחביר

Environ ( { envstring | number } )

תחביר הפונקציה Environ מכיל את הארגומנטים הבאים:

ארגומנט

תיאור

envstring

אופציונלי. ביטוי מחרוזת המכיל את השם של משתנה סביבה.

number

אופציונלי. ביטוי מספרי התואם לסדר המספרי של מחרוזת הסביבה בטבלה של מחרוזת הסביבה. הארגומנט 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

זקוק לעזרה נוספת?

שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×