Bai 15 Thao tac voi tep

2/ Thao tác với tệp c/ Đọc/ghi tệp văn bản + Có hai thủ tục ghi WriteBiến tệp, Danh sách kết quả; WritelnBiến tệp, Danh sách kết quả; Vd2: Ghi... Có mấy thủ tục đọc dữ liệu từ tệp ?.[r]

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ố

Var <Tên biến tệp> :

Text;

Vd: Var F1, F2, F3 : Text;

2/ Thao tác với 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’);

văn bản

Ổ đĩa:\các thư mục\Tên tệp

Hoặc: Ổ đĩa:\Tên tệp

b/ 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>);

Vd1: Mở tệp DL.txt trong D:\ và gán cho biến F1 quản lí

Assign(F1, ‘D:\DL.txt’);

Rewrite(F1);

Xem chương trình

Xem Hình





Có mấy thủ tục mở 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)

Mở để ghi

Assign(F1, ‘D:\DL.txt’);

Reset(F1);

Mở để đọc

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ả>);

Có mấy thủ tục ghi dữ liệu vào tệp ?

Vd2: Ghi Nguyen Van A

Tran Thi B

vào tệp do F3 quản lí ta viết:

Writeln(F3, ‘Nguyen Van A’ );

F3Nguyen Van A

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ả);

Writeln(F3, ‘Tran Thi B’ ); Tran Thi B

Tệp do F3 quản lí

Xem chương trình



c/ Đọc/ghi tệp văn bản

+ Có hai thủ tục đọc

Read(<Biến tệp>, <Danh sách các 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

5 10 30 Eoln Eof

F2

Read(F2, x, y, z); Hoặc: Readln(F2, x, y, z);

Readln(<Biến tệp>, <Danh sách các biến>);

5 10 30 Eoln Eof

Có mấy thủ tục đọc dữ liệu từ tệp ?

5

X=5

10

y=10

30

z=30

F25

X=5

10

y=10

30

z=30

Xem chương trình



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);

* 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ại

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

c/ Đọc/ghi tệp văn bản

5 10 30

9 8 12 Eof

KQ.txt

F1

Eof(F1) True False

Assign(Biến tệp, tên tệp);

Rewrite(Biến tệp);

Write(Biến tệp, Danh sách kết quả);

Writeln(Biến tệp, Danh sách kết quả);

Reset(Biến tệp);

Read(Biến tệp, Danh sách các biến); Readln(Biến tệp, Danh sách các bi n ến );

Assign(F1, ‘D:\DL.txt’);

Rewrite(F1); F1

Biến tệp (con trỏ tệp ệp ) t p