ฟังก์ชัน Environ

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

ไวยากรณ์

Environ( { envstring | number } )

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

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

    

ข้อสังเกต

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

ถ้าคุณระบุ ตัวเลข สตริงที่ใช้ตําแหน่งตัวเลขในตารางสตริงสภาพแวดล้อมจะถูกส่งกลับ ในกรณีนี้ Environ จะส่งกลับข้อความทั้งหมด รวมถึงการแจกแจง ถ้าไม่มีสตริงสภาพแวดล้อมในตําแหน่งที่ระบุ 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