II. COMMON DIALOG
4. Các lệnh trên tập tin truy xuất ngẫu nhiên
Lệnh Open <Đường dẫn> For Random As #n Len= <RecLen> Mở tập tin để đọc hoặc tạo mới.
Trong đó:
<Đường dẫn> Chuỗi ký tựđường dẫn tên tập tin
n Số thứ tự tên tập tin mở, giá trị này là số nguyên duy nhất đối với mỗi tập tin, tập tin mở đầu tiên có giá trị là 1. Để lấy số thứ tự
của tập tin có thể mở kế tiếp, sử dụng hàm freefile() <Reclen> Kích thước mỗi phần tử
Lưu ý:
Để tính kích thước của một kiểu dữ liệu, sử dụng hàm Len(<Tên>). Trong đó <Tên> là tên của một biến. Ví dụ: Type Sinhvien Hoten As String*25 Phai As Byte DiemToan As Single DiemLy As Single DiemHoa As Single End Type Dim sv As SinhVien Dim fnum As Integer
fnum = freefile() ‘ Lấy số thứ tự tập tin mở kế tiếp Open “Thu.dat” for Random As #fnum Len = Len(sv)
Lệnh Put #n, [<Vị trí>], <Biến>
Ghi giá trị của <Biến> lên tập tin tại <Vị trí> Ví dụ:
Type Record ID As Integer
Name As String * 20 End Type
Dim MyRecord As Record, RecordNumber Dim fnum As Integer
fnum = freefile() ' Mở file.
Open "TESTFILE" For Random As #fnum Len = Len(MyRecord) For RecordNumber = 1 To 5
MyRecord.ID = RecordNumber
MyRecord.Name = "My Name" & RecordNumber Put #1, RecordNumber, MyRecord ' Ghi record lên file Next RecordNumber
Close #1 ' Đóng file.
Lưu ý:
- Vị trí các mẫu tin trên tập tin có thứ tự bắt đầu từ 1.
- Mẫu tin ghi lên tập tin phải có chiều dài đúng bằng chiều dài khai báo khi mở tập tin. Trường hợp ghi mẫu tin có kích thước nhỏ hơn, vb tựđộng điền cho đủ (với các giá trị ngẫu nhiên). Trường hợp ngược lại sẽ cho thông báo lỗi.
- Không thể ghi đối tượng lên tập tin.
- Tham số vị trí là tuỳ chọn, khi không có tham số này, dữ liệu sẽ được ghi vào kế sau mẫu tin vừa truy xuất.
- Muốn ghi dữ liệu vào cuối tập tin, cho giá trị của <vị trí> lớn hơn số mẫu tin hiện có trong tập tin. Ví dụ sau mở và ghi dữ liệu vào cuối tập tin bằng cách sử dụng hàm LOF
Type Record ID As Integer
Name As String * 20 End Type
Dim MyRecord As Record, RecCount Dim fnum As Integer, fsize As long Dim recsize As Integer
recsize = Len(MyRecord) ' Mở file.
Open "TESTFILE" For Random As #fnum Len = recsize
fsize = LOF(fnum) ‘ Lấy kích thước tập tin
RecCount = fsize \ recsize ‘ Tính số mãu tin
MyRecord.ID = RecCount+1
MyRecord.Name = "My Name" & RecCount Put#fnum, RecordNumber, MyRecord Close #fnum
Lệnh Get #n, [<Vị trí>], <Biến>
Đọc từ <vị trí> n vào <Biến> từ tập tin. Lệnh đọc báo lỗi khi <vị trí> lớn hơn số
mẫu tin hiện có . Ví dụ 1: Type Record ID As Integer Name As String * 20 End Type
Dim MyRecord As Record, Position ' Mở file
Open "TESTFILE" For Random As #1 Len = Len(MyRecord) Position = 3
Get #1, Position, MyRecord ' Đọc mẫu tin thứ 3 Close #1 ' Đóng file. Ví dụ 2: Đọc tuần tự từ tập tin Type Record ID As Integer Name As String * 20 End Type
Dim MyRecord As Record
Open "TESTFILE" For Random As #1 Len = Len(MyRecord) Do While Not EOF(1)
Get #1, , MyRecord
Debug.Print Myrecord.ID, MyRecord.Name Loop
Close #1
Để sửa chữa một mẫu tin, thực hiện các bước sau: - Đọc mẫu tin cần sửa chữa bằng lệnh Get - Sửa chữa mẫu tin với giá trị mới
- Ghi lên tập tin tại vị trí cũ bằng lệnh Put Ví dụ:
Get #1, 2, MyRecord
MyRecord.Name = “New Name” Put #1, 2, MyRecord
Lệnh Close #n
Đóng tập tin