TRƯỜNG THPT UNG VĂN KHIÊM
BÀI 15 THAO TÁC VỚI TỆP
1/ Khai báo
2/ Thao tác với tệp
Củng cố
1/ Khai báo
Var <Tên biến tệp> :
Text;
Vd: Var F1, F2, F3 : Text;
2/ Thao tác với tệp
Kiểu tệp
văn bản
Ổ đĩa:\các thư mục\Tên tệp
Hoặc: Ổ đĩa:\Tên tệp
a/ Gán tên tệp
Thủ tục: Assign(<Biến tệp>, <tên tệp>);
Trong đó: Tên tệp có thể là hằng xâu hoặc biến kiểu xâu
Vd: Gán tệp DL.txt trong ổ đĩa D:\ cho biến F1 quản lí ta viết
Assign(F1, ‘D:\DL.txt’);
2/ Thao tác với tệp
b/ Mở tệp
Có mấy thủ tục mở tệp?
Mở tệp để ghi (tạo mới tệp): Rewrite(<Biến tệp>);
Mở tệp để đọc : Reset(<Biến tệp>);
Chú ý: Trước khi dùng hai thủ tục này thì biến tệp phải được
gắn với tên tệp bằng thủ tục Assign(Biến tệp, Tên tệp)
Vd1: Mở tệp DL.txt trong D:\ và gán cho biến F1 quản lí
Mở để ghi
Mở để đọc
Assign(F1, ‘D:\DL.txt’);
Assign(F1, ‘D:\DL.txt’);
Rewrite(F1);
Reset(F1);
Xem Hình
Xem chương trình
2/ Thao tác với tệp
c/ Đọc/ghi tệp văn bản
Có mấy thủ tục ghi dữ liệu vào tệp ?
+ Có hai thủ tục ghi
Write(<Biến tệp>, <Danh sách kết quả>);
Writeln(<Biến tệp>, <Danh sách kết quả>);
Trong đó: Danh sách kết qủa có thể là hằng, biến, biểu thức
2/ Thao tác với tệp
c/ Đọc/ghi tệp văn bản
+ Có hai thủ tục ghi
Write(Biến tệp, Danh sách kết quả);
Writeln(Biến tệp, Danh sách kết quả);
Vd2: Ghi
Nguyen Van A
Tran Thi B
vào tệp do F3 quản lí ta viết:
Tệp do F3 quản lí
Writeln(F3, ‘Nguyen Van A’ );
Writeln(F3, ‘Tran Thi B’ );
Xem chương trình
Nguyen Van A
F3
Tran Thi B
2/ Thao tác với tệp
c/ Đọc/ghi tệp văn bản
Có mấy thủ tục đọc dữ liệu từ tệp ?
+ Có hai thủ tục đọc
Read(<Biến tệp>, <Danh sách các biến>);
Readln(<Biến tệp>, <Danh sách các biến>);
Trong đó: Danh sách các biến có thể là một hoặc nhiều biến
Vd: Giả sử tệp KQ.txt có nội dung như hình và được F2 quản lí.
Để đọc 5, 10, 30 lần lược vào các biến nguyên x, y, z ta viết và
tính tổng x, y, z
Tệp do F2 quản lí
Tệp do F2 quản lí
5 10 30 Eoln
5 10 30 Eoln
F2
Eof
Read(F2, x, y, z);
X=5 y=10 z=30
F2
Xem chương trình Eof
Hoặc: Readln(F2, x, y, z);
X=5 y=10 z=30
2/ Thao tác với tệp
c/ Đọc/ghi tệp văn bản
* Một số hàm chuẩn thường dùng khi đọc ghi tệp văn bản
+ Hàm: Eof(<Biến tệp>) cho giá trị True khi biến tệp ở cuối tệp, ngược lạ
cho giá trị False
+ Hàm: Eoln(<Biến tệp>) cho giá trị True khi con trỏ tệp ở cuối dòng
ngược lại cho giá trị False
KQ.txt
5 10 30 Eoln
Eoln(F1)
True
False
9 8 12
Eof(F1)
True
False
F1
Eof
d/ Đóng tệp
Thủ tục: Close(<Biến tệp>);
Vd: Đóng tệp do biến F1 quản lí ta viết:
Close(F1);
Qui trình thao tác với tệp
Assign(Biến tệp, tên tệp);
Đọc
Ghi
Rewrite(Biến tệp);
Reset(Biến tệp);
Write(Biến tệp, Danh sách kết quả);
Read(Biến tệp, Danh sách các biến);
Writeln(Biến tệp, Danh sách kết quả);
Readln(Biến tệp, Danh sách các biến);
Close(Biến tệp);
Biến tệp
(con trỏ tệp)
Assign(F1, ‘D:\DL.txt’);
F1
Rewrite(F1);
DL.txt
Tệp
rỗng