Online Reference

Home

Seek Function

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

ไวยากรณ์

Seek(filenumber )

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

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

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

ดูเพิ่มเติม

Get Statement, ฟังก์ชัน Loc, Open Statement, Put Statement, Seek Statement

ตัวอย่าง

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

' กำหนดผู้ใช้กำหนดประเภท
Type Record
  ID As Integer
  Name As String * 20
End Type

สำหรับไฟล์ที่เปิดในโหมด Random ฟังก์ชัน Seek ส่งหมายเลขของเรคคอร์ดต่อไป

' ประกาศตัวแปร
Dim MyRecord As Record

Open "TESTFILE" For Random As #1 Len = Len(MyRecord)

' วนรอบจนกระทั้งสิ้นสุดไฟล์
Do While Not EOF(1)

' อ่านเรคคอร์ดต่อไป
Get #1, , MyRecord
' พิมพ์ออกใน Immediate window
Debug.Print Seek(1)

Loop

' ปิดไฟล์
Close #1

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

Dim MyChar

'เปิดไฟล์สำหหรับอ่าน
Open "TESTFILE" For Input As #1

' วนรอบจนกระทั้งสิ้นสุดไฟล์
Do While Not EOF(1)

' อ่านตัวอักษรของข้อมูลต่อไป
MyChar = Input(1, #1)
' พิมพ์ออกใน Immediate window
Debug.Print Seek(1)

Loop

' ปิดไฟล์
Close #