GIÁO TRÌNH MICOSOFT VISUAL BASIC - Chương 11 Kiểu bản ghi – Tập tin

KIỂU BẢN GHI 1. Định nghĩa: Là kiểu dữ liệu gồm nhiều thành phần gọi là vùng/trường (Fields), mỗi thành phần dùng mô tả một đặc điểm của đối tượng. Bản ghi được sử dụng để lưu trữ các đối tượng mà mô tả về đối tượng đó cần nhiều thông tin.
Nội dung trích xuất từ tài liệu:
GIÁO TRÌNH MICOSOFT VISUAL BASIC - Chương 11 Kiểu bản ghi – Tập tin Giáo trình Visual Basic 6.0 109 Chương 11 Kiểu bản ghi – Tập tinI. KIỂU BẢN GHI 1. Định nghĩa:Là kiểu dữ liệu gồm nhiều thành phần gọi là vùng/trường (Fields), mỗi thành phầndùng mô tả một đặc điểm của đối tượng. Bản ghi được sử dụng để lưu trữ các đốitượng mà mô tả về đối tượng đó cần nhiều thông tin. 2. Khai báo: Type As As ... End TypeVí dụ: Type Sinhvien Hoten As String*25 Phai As Byte DiemToan As Single DiemLy As Single DiemHoa As Single End Type Và khai báo biến: Dim SV As SinhvienLưu ý: Khai báo Type phải được viết trong tập tin module.II. TẬP TIN 1. Định nghĩa: Là đối tượng được sử dụng để lưu trữ dữ liệu trên bộ nhớ ngoài. 2. Phân loại:Theo cách truy xuất, có 2 loại tập tin:110 Giáo trình Visual Basic 6.0 • Tập tin truy xuất ngẫu nhiên (Random Access File): Là tập tin cho phép đọc hoặc ghi ở vị trí bất kỳ trên file. Dữ liệu ghi trên tập tin truy xuất ngẫu nhiên được tổ chức thành các mẫu tin (Record) có kích thước giống nhau. • Tập tin truy xuất tuần tự (Sequential Access File): Dữ liệu ghi lên tập tin có kích thước mỗi phần tử không giống nhau, để phân biệt các phần tử với nhau, sử dụng ký hiệu phân cách giữa các phần tử. 3. Thủ tục truy xuất dữ liệu trên tập tin:Việc truy xuất trên tập tin được thực hiện thành 3 bước: • Mở tập tin • Truy xuất (Đọc/Ghi) • Đóng tập tin 4. Các lệnh trên tập tin truy xuất ngẫu nhiên Lệnh Open For Random As #n Len= Mở tập tin để đọc hoặc tạo mới. Trong đó: 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() 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(). Trong đó 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)Nguyễn Đăng QuangGiáo trình Visual Basic 6.0 111Lệnh Put #n, [], Ghi giá trị của lên tập tin tại 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 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 fnum = freefile()112 Giáo trình Visual Basic 6.0 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 #fnumLệnh Get #n, [], Đọc từ n vào từ tập tin. Lệ ...