Embedded Files
BÀI 14 KIỂU DŨ LIỆU TỆP
I VAI TRÒ
- Tất cả dữ liệu sẽ mất đi khi chúng ta tắt máy tính. Với những bài toán cần lưu trữ khối lượng lớn dữ liệu để có thể xử lý nhiều lần ta cần kiểu dữ liệu tệp.
- Kiểu dữ liệu tệp có 2 đặc điểm
+ Lưu trữ lâu dài ở bộ nhớ ngoài ( đĩa CD, thẻ nhớ, ổ cứng…)
+ Dữ liệu được lưu trữ rất lớn chỉ phụ thuộc vào dung lượng đĩa.
II PHÂN LOẠI TỆP
- Xét theo cách tổ chức dữ liệu ta phân tệp thành 2 loại
+ Tệp văn bản
+ Tệp có cấu trúc
- Xét theo cách truy cập ta phân tệp thành 2 loại
+Tệp truy cập tuần tự
+Tệp truy cập trực tiếp
III THAO TÁC VỚI TẾP
- Khai báo đường dẫn và tệp ( khai báo biến tệp)
- Mở tệp ( đọc/ghi)
- ĐỌC/ GHI TỆP ( LÀ 2 THAO TÁC QUAN TRỌNG NHẤT)
- Đóng tệp
BÀI 15 CÁC THAO TÁC VỚI TỆP
Thao tác với tập tin văn bản Gồm 4 bước:
1) Xác định tập tin
2) Mở tập tin
3) Thao tác đọc/ghi
4) Đóng tập tin
Bước 1: Xác định tập tin (biến tập tin)
- Là xác định đường dẫn đến tập tin (ổ đĩa, thư mục và tên tập tin) đây là một giá trị
xâu.
- Ví dụ muốn thao tác với tập tin VANBAN.TXT trong thư mục gốc ổ đĩa D: thì giá
trị xâu là: D:\VANBAN.TXT
- Tốt nhất nên khai báo biến xâu và gán giá trị cho biến vừa khai báo
VD:
Dim F As String
F=”D:\VANBAN.TXT”
Bước 2: Mở tập tin
Open biến_tập_tin for mode As #Mã_số_tập_tin
Trong đó:
Biến tập tin: Là đường dẫn đầy đủ đến tập tin được khai báo ở bước 1
Mode: gồm 2 từ khoá Input: Đọc dữ liệu từ file; Output: Ghi dữ liệu ra file;
Append: Thêm dữ liệu vào file đã có.
Mã số tập tin: Là số nguyên từ 1 đến 511 tương ứng với một tập tin đang mở. Sau
khi khai báo này, các thao tác tiếp theo đều thao tác trên mã số tập tin.
Bước 3: Đọc/Ghi dữ liệu
Thao tác ghi dữ liệu:
Print #Mã_số_tập_tin, danh_sách_kết_quả
Trong đó:
Danh sách kết quả chính là danh sách hằng, biến muốn ghi vào file. Các hằng biến
này được ngăn cách bằng dấu phẩy.
Nếu chỉ dùng Print #Mã_số_tập_tin nghĩa là ghi 1 dòng trống vào tập tin
VBA tự động thêm VbCrLf (kí tự xuống dòng) vào cuối mỗi dòng.
Thao tác đọc dữ liệu:
Line Input #Mã_số_tập_tin, danh_sách_biến
Trong đó:
Danh sách biến là các biến chứa nội dung đọc lên từ tập tin. Mỗi lần đọc 1 dòng
trong file, lệnh kế tiếp sẽ đọc dòng kế tiếp.
Hàm EOF(Mã số file) trả về TRUE nếu đã đọc đến cuối file, ngược lại trả về
FALSE.
Bước 4: Đóng tập tin
Sau khi thao tác đọc file kết thúc bạn phải tiến hành đóng file (để ngắt liên kết
giữa chương trình với file đang lưu trữ trên bộ nhớ ngoài)
Close #Mã_số_tập_tin
Có thể đó một lúc nhiều file: Close #1, #2
BÀI 16 VÍ DỤ LÀM VIỆC VỚI TỆP
VÍ DỤ 1: Viết chương trình cho phép đọc nội dung tập tin z:\baitho.txt, hiện nội dung tập tin ra màn hình.
Private Sub DocTho_Click()
Dim F As String
Dim s1 As String
F = "Z:\BaiTho.txt"
Open F For Input As #1
While EOF(1) = False
Line Input #1, s1
MsgBox s1
Wend
Close #1
End Sub
VÍ DỤ 2: Viết chương trình cho phép ghi 4 câu thơ với nội dung bất kỳ xuống tập tin z:\baitho_moi.txt.
Private Sub GhiTho_Click()
Dim F As String
Dim s1, s2, s3, s4 As String
s1 = InputBox("Nhap cau tho 1", "Thong bao", ":@)")
s2 = InputBox("Nhap cau tho 2", "Thong bao", ":@)")
s3 = InputBox("Nhap cau tho 3", "Thong bao", ":@)")
s4 = InputBox("Nhap cau tho 4", "Thong bao", ":@)")
F = "Z:\baitho_moi.txt"
Open F For Output As #1
Print #1, s1
Print #1, s2
Print #1, s3
Print #1, s4
Close #1
End Sub
Page updated
Google Sites
Report abuse