דלג לתוכן הראשי
היכנס דרך Microsoft
היכנס או צור חשבון.
שלום,
בחר חשבון אחר.
יש לך חשבונות מרובים
בחר את החשבון שברצונך להיכנס באמצעותו.

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

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

תחביר

Environ( { envstring | מספר מס' } )

תחביר הפונקציה 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

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

מעוניין באפשרויות נוספות?

גלה את יתרונות המנוי, עיין בקורסי הדרכה, למד כיצד לאבטח את המכשיר שלך ועוד.

קהילות עוזרות לך לשאול שאלות ולהשיב עליהן, לתת משוב ולשמוע ממומחים בעלי ידע עשיר.

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

עד כמה אתם מרוצים מאיכות השפה?
מה השפיע על החוויה שלך?
בלחיצה על 'שלח', אתה מאפשר למשוב שלך לשפר מוצרים ושירותים של Microsoft. מנהל ה-IT שלך יוכל לאסוף נתונים אלה. הצהרת הפרטיות.

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

×