Σημείωση: Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία παραστάσεων Microsoft Jet εκτελείται σε κατάσταση λειτουργίας φίλτρου, κάτι που αποτρέπει τον υπολογισμό πιθανώς μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, κάντε αναζήτηση για "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει τη μεταβλητή Συμβολοσειρά που σχετίζεται με μια μεταβλητή περιβάλλοντος λειτουργικού συστήματος. Δεν είναι διαθέσιμη στο Macintosh
Σύνταξη
Environ( { envstring | αριθμός } )
Η σύνταξη της συνάρτησης Environ περιλαμβάνει τα παρακάτω ορίσματα:
|
Όρισμα |
Περιγραφή |
|
περιήγηση |
Προαιρετικό. Παράσταση συμβολοσειράς που περιέχει το όνομα μιας μεταβλητής περιβάλλοντος. |
|
αριθμός |
Προαιρετικό. Αριθμητική παράσταση που αντιστοιχεί στην αριθμητική σειρά της συμβολοσειράς περιβάλλοντος στον πίνακα συμβολοσειράς περιβάλλοντος. Το αριθμητικό όρισμα μπορεί να είναι οποιαδήποτε αριθμητική παράσταση, αλλά στρογγυλοποιείται σε έναν ακέραιο αριθμό πριν από την αξιολόγηση. |
Παρατηρήσεις
Εάν δεν μπορείτε να βρείτε τη συμβολοσειρά περιβάλλοντος στον πίνακα συμβολοσειράς περιβάλλοντος, επιστρέφεται μια συμβολοσειρά μηδενικού μήκους (""). Διαφορετικά, η συνάρτηση Environ επιστρέφει το κείμενο που έχει αντιστοιχιστεί στην καθορισμένη συμβολοσειρά. δηλαδή, το κείμενο που ακολουθεί το σύμβολο ίσον (=) στον πίνακα συμβολοσειράς περιβάλλοντος για τη συγκεκριμένη μεταβλητή περιβάλλοντος.
Εάν καθορίσετε αριθμό, επιστρέφεται η συμβολοσειρά που καταλαμβάνει αυτή την αριθμητική θέση στον πίνακα συμβολοσειράς περιβάλλοντος. Σε αυτή την περίπτωση, το Environ επιστρέφει όλο το κείμενο, συμπεριλαμβανομένης της συμβολοσειράς. Εάν δεν υπάρχει συμβολοσειρά περιβάλλοντος στην καθορισμένη θέση, η συνάρτηση 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
