ฟังก์ชัน Environ

หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service ทํางานในโหมด Sandbox ซึ่งจะป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย สําหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ให้ค้นหา "โหมด Sandbox" ในวิธีใช้

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

ไวยากรณ์

Environ( { envstring | number } )

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

อาร์กิวเมนต์	คำอธิบาย
*envstring*	ไม่จำเป็น นิพจน์สตริงที่มีชื่อของตัวแปรสภาพแวดล้อม
*หมายเลข*	ไม่จำเป็น นิพจน์ตัวเลขที่สอดคล้องกับลําดับตัวเลขของสตริงสภาพแวดล้อมในตารางสตริงสภาพแวดล้อม อาร์กิวเมนต์ *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

ตัวอย่าง

ต้องการความช่วยเหลือเพิ่มเติมหรือไม่

ต้องการตัวเลือกเพิ่มเติมหรือไม่

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!