ฟังก์ชัน Environ

ส่งกลับค่า สตริง ที่สัมพันธ์กับตัวแปรสภาพแวดล้อมของระบบปฏิบัติการ ไม่พร้อมใช้งานบน Macintosh

ไวยากรณ์

Environ( { envstring | number } )

ไวยากรณ์ของฟังก์ชัน Environ มีอาร์กิวเมนต์ดังนี้

อาร์กิวเมนต์	คำอธิบาย
envstring	ไม่จำเป็น นิพจน์สตริงที่มีชื่อของตัวแปรสภาพแวดล้อม
ตัวเลข	ไม่จำเป็น นิพจน์ตัวเลขที่สอดคล้องกับลําดับตัวเลขของสตริงสภาพแวดล้อมในตารางสตริงสภาพแวดล้อม อาร์กิวเมนต์ ตัวเลข สามารถเป็นนิพจน์ตัวเลขใดก็ได้ แต่จะถูกปัดเศษเป็นจํานวนเต็มก่อนที่จะถูกประเมิน

    

ข้อสังเกต

ถ้าไม่พบ envstring ในตารางสตริงสภาพแวดล้อม สตริงความยาวเป็นศูนย์ ("") จะถูกส่งกลับ มิฉะนั้น Environ จะส่งกลับข้อความที่กําหนดให้กับ envstring ที่ระบุ นั่นคือข้อความที่อยู่หลังเครื่องหมายเท่ากับ (=) ในตารางสตริงสภาพแวดล้อมสําหรับตัวแปรสภาพแวดล้อมนั้น

ถ้าคุณระบุ number สตริงที่ครอบครองตําแหน่งตัวเลขนั้นในตารางสตริงสภาพแวดล้อมจะถูกส่งกลับ ในกรณีนี้ Environ จะส่งกลับข้อความทั้งหมด รวมถึง envstring ด้วย ถ้าไม่มีสตริงสภาพแวดล้อมในตําแหน่งที่ระบุ Environ จะส่งกลับสตริงที่มีความยาวเป็นศูนย์

ตัวอย่าง

ตัวอย่างนี้ใช้ฟังก์ชัน 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