Xét theo cách tổ chức dữ liệu

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



Video liên quan

Chủ Đề