ฟังก์ชัน Seek

ส่งกลับ Long ที่ระบุตําแหน่งการอ่าน/เขียนปัจจุบันภายในไฟล์ที่เปิดโดยใช้คําสั่ง Open

ไวยากรณ์

Seek(filenumber)

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

ข้อสังเกต

ค้นหาจะ ส่งกลับค่าระหว่าง 1 ถึง 2,147,483,647 (เทียบเท่า 2^31 – 1) ครอบคลุม

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

โหมด	ค่าที่ส่งกลับ
สุ่ม	จํานวนของระเบียนถัดไปที่อ่านหรือเขียน
ไบนารี, เอาท์พุท ผนวก การป้อนข้อมูล	ตําแหน่งไบต์ที่ดําเนินการถัดไปเกิดขึ้น ไบต์แรกในไฟล์จะอยู่ที่ตําแหน่ง 1 ไบต์ที่สองจะอยู่ที่ตําแหน่งที่ 2 และอื่นๆ

    

ตัวอย่าง

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

Type Record    ' Define user-defined type.
    ID As Integer
    Name As String * 20
End Type

สําหรับไฟล์ที่เปิดในโหมดสุ่ม ค้นหาจะ ส่งกลับจํานวนระเบียนถัดไป

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1)    ' Loop until end of file.
    Get #1, , MyRecord    ' Read next record.
    ' Print record number to the Immediate window.
    Debug.Print Seek(1)    
Loop
Close #1    ' Close file.

สําหรับไฟล์ที่เปิดในโหมดอื่นที่ไม่ใช่โหมดสุ่ม ค้นหาจะ ส่งกลับตําแหน่งไบต์ที่ดําเนินการถัดไปเกิดขึ้น สมมติว่าเป็น TESTFILE ไฟล์ที่มีข้อความสองสามบรรทัด

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
    MyChar = Input(1, #1) ' Read next character of data.
    ' Print byte position to the Immediate window. 
    Debug.Print Seek(1) 
Loop
Close #1    ' Close file.