Applies ToAccess for Microsoft 365 Access 2021 Access 2019 Access 2016

หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า 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; MyLocationLoopClose #1    ' Close file.

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

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

สํารวจสิทธิประโยชน์ของการสมัครใช้งาน เรียกดูหลักสูตรการฝึกอบรม เรียนรู้วิธีการรักษาความปลอดภัยอุปกรณ์ของคุณ และอื่นๆ

ชุมชนช่วยให้คุณถามและตอบคําถาม ให้คําติชม และรับฟังจากผู้เชี่ยวชาญที่มีความรู้มากมาย