ฟังก์ชัน Loc

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

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

ส่งกลับ Long ระบุตำแหน่งแบบอ่าน/เขียนปัจจุบันภายในการเปิดไฟล์

ไวยากรณ์

ตำแหน่ง ( filenumber )

จำเป็นต้องมีfilenumberอาร์กิวเมนต์ คือหมายเลขไฟล์ เป็นจำนวนเต็มถูกต้อง

ข้อสังเกต

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

Mode

ค่าส่งกลับ

สุ่ม

จำนวนของระเบียนสุดท้ายอ่านจาก หรือเขียนไปยังแฟ้ม

แสดงตามลำดับ

ตำแหน่งไบต์ปัจจุบันในไฟล์ถูกหาร ด้วย 128 อย่างไรก็ตาม ข้อมูลที่ส่งกลับโดยตำแหน่งสำหรับไฟล์ตามลำดับจะไม่ใช้ หรือจำเป็นต้องมี

ไบนารี

ตำแหน่งของไบต์สุดท้ายอ่าน หรือเขียน


ตัวอย่าง

หมายเหตุ: ตัวอย่างที่ติดตามสาธิตการใช้ฟังก์ชันนี้ใน Visual Basic for Applications (VBA) มอดูล สำหรับข้อมูลเพิ่มเติมเกี่ยวกับการทำงานกับ VBA เลือกอ้างอิงสำหรับนักพัฒนา ในรายการดรอปดาวน์ถัดจากค้นหา และใส่เงื่อนไขอย่าง น้อยหนึ่งในกล่องค้นหา

ตัวอย่างนี้ใช้ฟังก์ชันตำแหน่งเพื่อส่งกลับตำแหน่งภายในการเปิดไฟล์แบบอ่าน/เขียนปัจจุบัน ตัวอย่างนี้ถือว่า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.
ขยายทักษะ Office ของคุณ
สำรวจการฝึกอบรม
รับฟีเจอร์ใหม่ก่อนใคร
เข้าร่วม Office Insider

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

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

ขอขอบคุณสำหรับคำติชมของคุณ! เราคิดว่าอาจเป็นประโยชน์ที่จะให้คุณได้ติดต่อกับหนึ่งในตัวแทนฝ่ายสนับสนุน Office ของเรา

×