Online Reference

Home

Seek Statement

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

ไวยากรณ์

Seek [#] filenumber, position

ไวยากรณ์ประโยคคำสั่ง Seek มีรายละเอียดส่วน ดังนี้

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

หมายเลขเรคคอร์ดที่ระบุในประโยคคำสั่ง Get และ Put จะแทนที่ตำแหน่งที่ทำงานโดย Seek
การทำงานเขียนไฟล์ภายหลังการทำงาน โดย Seek ก่อนการสิ้นสุดไฟล์ ถ้าพยายามให้ Seek ทำงานไปที่ตำแหน่งค่าลบหรือศูนย์ จะเกิดความผิดพลาด

ดูเพิ่มเติม

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

ตัวอย่าง

เปิดในโหมด random สามารถใช้ Seek ค้นหาเรคคอร์ดต่อไป

' กำหนด User - define type
Type Record
  ID As Integer
  Name As String * 20
End Type

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

' เปิดไฟล์สำหรับการเข้าถึงแบบสุ่ม (random access)
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
MaxSize = LOF(1) \ Len(MyRecord)

For RecordNumber = MaxSize To 1 Step -1

' ตั้งค่าตำแหน่ง
Seek #1, RecordNumber
' อ่านเรคคอร์ด
Get #1, , MyRecord

Next RecordNumber

' ปิดไฟล์
Close #1

เปิดในโหมดอื่นที่ไม่ใช่โหมด Random สามารถใช้ Seek ค้นหาตำแหน่งไบต์ได้

' ประกาศตัวแปร
Dim MaxSize, NextChar, MyChar

' เปิดสำหรับ input
Open "TESTFILE" For Input As #1
MaxSize = LOF(1)

For NextChar = MaxSize To 1 Step -1

' ตั้งค่าตำแหน่ง
Seek #1, NextChar
' อ่านตัวอักษร
MyChar = Input(1, #1)

Next NextChar

' ปิดไฟล์
Close #1