หมายเหตุ
ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service ทํางานในโหมด Sandbox ซึ่งจะป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย สําหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ให้ค้นหา "โหมด Sandbox" ในวิธีใช้
ส่งกลับ Long ที่ระบุตําแหน่งการอ่าน/เขียนปัจจุบันภายในไฟล์ที่เปิดอยู่
ไวยากรณ์
Loc(filenumber)
อาร์กิวเมนต์ filenumberที่จําเป็นคือหมายเลขไฟล์จํานวนเต็มที่ถูกต้อง
ข้อสังเกต
ต่อไปนี้จะอธิบายค่าที่ส่งกลับสําหรับโหมดการเข้าถึงไฟล์แต่ละโหมด:
| โหมด | ค่าที่ส่งกลับ |
|---|---|
| แบบ สุ่ม | หมายเลขของเรกคอร์ดหลังสุดที่อ่านหรือเขียนที่ไฟล์ |
| ลำดับ | ตําแหน่งไบต์ปัจจุบันในไฟล์หารด้วย 128 อย่างไรก็ตาม ข้อมูลที่ถูกส่งกลับโดย Loc สําหรับไฟล์ตามลําดับจะไม่ถูกนํามาใช้หรือจําเป็นต้องใช้ |
| ไบ นารี | ตําแหน่งของการอ่านหรือเขียนไบต์สุดท้าย |
ตัวอย่าง
หมายเหตุ
ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงสําหรับนักพัฒนา ในรายการดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชัน Loc เพื่อส่งกลับตําแหน่งการอ่าน/เขียนปัจจุบันภายในไฟล์ที่เปิดอยู่ ตัวอย่างนี้ถือว่า TESTFILE เป็นไฟล์ข้อความที่มีข้อมูลตัวอย่างสองสามบรรทัด
Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)
' Read character into variable.
MyLine = MyLine & Input(1, #1)
' Get current position within file.
MyLocation = Loc(1)
' Print to the Immediate window.
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Close file.