Online Reference

Home

Loc Function

VBA Function, ส่งออกค่าเป็นประเภทข้อมูล Long ที่ระบุตำแหน่งอ่านและเขียนปัจจุบันภายในไฟล์ที่เปิด

ไวยากรณ์

Loc(filenumber )

อากิวเมนต์ filenumber เป็นประเภทข้อมูลเลขจำนวนเต็มใดๆ ของหมายเลขไฟล์ที่มีจริง

ค่าที่ส่งออกมา

ลักษณะการประยุกต์

คำอธิบายต่อไปเป็นค่าส่งออกสำหรับแต่ละโหมดของไฟล์ที่เข้าถึง

ดูเพิ่มเติม

ฟังก์ชัน EOF, ฟังก์ชัน LOF, ฟังก์ชัน Seek, Seek Statement

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน Loc เพื่อส่งค่าตำแหน่งอ่านและเขียนปัจจุบันภายในไฟล์ที่เปิด สมมติให้ TESTFILE เป็น text file ที่มีข้อมูลตัวอย่างจำนวนหนึ่ง

Dim MyLocation, MyLine

' เปิดไฟล์ที่เพิ่งสร้าง
Open "TESTFILE" For Binary As #1

' วนรอบจนกระทั้งสิ้นสุดไฟล์
Do While MyLocation < LOF(1)
  ' อ่านตัวอักษรเป็นตัวแปร
  MyLine = MyLine & Input(1, #1)
  ' ดึงตำแหน่งปัจจุบันภายในไฟล์
  MyLocation = Loc(1)
  ' พิมพ์ออกใน Immediate window
  Debug.Print MyLine; Tab; MyLocation
Loop

' ปิดไฟล์
Close #1