Bài 15: Thao tác với tệp - Giải BT Tin học 11
Bài 15: Thao tác với tệp
1. Khai báo
Để làm việc với kiểu dữ liệu tệp ta phải sử dụng biến tệp.
Khai báo biến tệp văn bản có dạng:
Var< tên biến tệp> :text;
2. Thao tác với tệp
a) Gắn tên tệp
Mỗi tệp đều có một tên tệp để tham chiếu. Tên tệp là biến xâu hoặc hằng xâu.
Ví dụ: 'Dulieu. dat'.
Trong lập trình, ta không thao tác trực tiếp với tệp dữ liệu trên đĩa mà thông qua biến tệp. Biến tệp được đại diện cho tệp trong ngông ngữ lập trình.
Để thao tác với tệp, trước hết phải gắn tên tệp với đại diện của nó là biến tệp bằng thủ tục:
Assign (< biến tệp> ,< tên tệp> );
Ví dụ 1: Gắn biến tệp tep1 với tệp có tên là DULIEU. DAT.
Assign (tep1, ’DULIEU. DAT’);
Ví dụ 2: Để đọc dữ liệu từ tệp INP. DAT nằm trên thư mục gốc của ổ C.
Assign (tep2, ’C: \INP. dat’);
b) Mở tệp
Sau khi sử dụng thủ tục assign. Ta có thể thực hiện việc đọc và ghi dữ liệu, cụ thể như sau:
+ Đối với việc ghi:
Câu lệnh dùng thủ tục mở tệp để ghi dữ liệu có dạng:
Rewrite (< biến tệp> );
Nếu tệp chưa tồn tại thì 1 tệp mới sẽ được tạo với nội dung rỗng. Nếu tệp tồn tại rồi thì nội dung cũ trong tệp sẽ bị xóa.
Ví dụ:
Assign (tep1, ’C: \INP. dat’); Rewrite (tep1);
Nếu ở đĩa C có tệp INP. dat rồi thì nội dung trong tệp sẽ bị xóa hết. Nếu chưa tồn tại thì tệp sẽ được tạo mới.
+ Đối với việc đọc:
Mở một tệp đã gắn với một biết tệp để đọc ta dùng thủ tục:
Reset (< Biến tệp> );
Ví dụ:
Assign (tep1, ’DL. INP’); Reset (tep1);
c) Đọc/ghi tệp văn bản.
Việc đọc ghi tệp văn bản được thực hiện giống như nhập dữ liệu từ bàn phí. Việc ghi dữ liệu ra tệp văn bản giống như ghi ra màn hình. Dữ liệu trong tệp văn bản được chia thành các dòng.
+ Câu lệnh dùng 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> );
+ Câu lệnh dùng thủ tục để ghi là:
Write (< biến tệp> ,< danh sách các biến> ); Writeln (< biến tệp> ,< danh sách các biến> );
Một số hàm chuẩn thường dùng trong khi đọc/ghi tệp văn bản:
+ Hàm eof (< biến tệp> ) trả về giá trị true nếu con trỏ tệp dang chỉ tới cuối tệp.
+ Hàm eoln (< biến tệp> ) trả về giá trị true nếu con trỏ tệp đang chỉ tới cuối dòng.
d) Đóng tệp
Sau khi làm việc xong với tệp, cần phải đóng tệp. Việc đóng tệp là đặc biệt quan trọng sau khi ghi dữ liệu, khi đó hệ thống mới thực sự hoàn tất việc ghi dữ liệu ra tệp.
Cú pháp:
Close (< biến tệp> );
Ví dụ: Chương trình đọc một dòng từ tệp INP sau đó ghi sang tệp OUT
program vdf; uses crt; var f1, f2: text; s: string; begin assign (f1, 'INP'); assign (f2, 'OUT'); rewrite (f2); reset (f1); readln (f1, s); write (f2, s); close (f1); close (f2); end.
Kết quả: