Bai 15 Thao tac voi tep

VÝ dô: ASSIGNtep1, ‘DULIEU.DAT’; BiÕn tep1 ®ược g¾n víi tÖp cã tªn DULIEU.DAT... Nếu đã có, thì nội dung cũ bị xoá để chuẩn bị ghi d÷ liÖu míi..[r]

§15 THAO T¸C VíI

TÖP

1 Khai b¸o tÖp v¨n b¶n

Var <Tªn biÕn tÖp> : TEXT;

VÝ dô:

Program vd1;

Uses crt;

Var

tep1,tep2: TEXT;

2 Thao tác với tệp - Gán tên tệp

ASSIGN(<biến tệp>,<tên tệp>);

Tên tệp: Là biến xâu hoặc hằng xâu.

ASSIGN(tep1, ‘DULIEU.DAT’);

ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);

Ví dụ:

Biến tep1 đ ược gắn với tệp có

tên DULIEU.DAT

Biến tep2 đ ược gắn với tệp có

tên BAITAP.INP trong th ư

mục TP ở ổ đĩa D.

2 Thao tác với tệp - Mở tệp

REWRITE (<biến tệp>);

Thủ tục mở tệp để ghi kết quả:

Program vd1;

Uses crt;

Var tep1,tep2: TEXT;

BEGIN Clrscr;

ASSIGN(tep1, ‘dulieu.dat’);

REWRITE ( tep1) ;

Nếu nh trên ổ D:\TP ch a có

tệp BAITAP.INP, thì tệp sẽ đ

ợc tạo rỗng Nếu đã có, thì nội

dung cũ bị xoá để chuẩn bị

ghi dữ liệu mới.

Thñ tôc ghi d÷ liÖu v ào tÖp

 Danh s¸ch kÕt qu¶ gåm mét hay

nhiÒu phÇn tö PhÇn tö cã thÓ lµ

biÕn, h»ng x©u hoÆc biÓu thøc.

2 Thao t¸c víi tÖp - Ghi d÷ liÖu vào tÖp

Program vd1;

Uses crt;

Var tep2: TEXT;

a,b: integer;

ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);

REWRITE ( tep2) ;

WRITE (tep2,a,’ ‘,b);

a:=3; b:=5;

BEGIN

Clrscr;

Close(tep2);

Readln;

END.

WRITE ( <biÕn tÖp>, <Danh s¸ch kÕt qu¶>) ;

WRITELN (<biÕn tÖp>, <Danh s¸ch kÕt qu¶>);

2 Thao t¸c víi tÖp - Ghi d÷ liÖu vào tÖp

RESET (<biến tệp>);

 Thủ tục mở tệp để đọc dữ liệu

 Thủ tục đọc dữ liệu từ tệp:

 Danh sách biến là một hoặc

nhiều biến đơn.

2 Thao tác với tệp - Đọc dữ liệu từ tệp

Program vd2;

Uses crt;

Var tep2: TEXT;

x1,y1: integer;

ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);

RESET ( tep2) ;

READLN (tep2,x1,y1);

BEGIN

Clrscr;

Close(tep2);

Readln;

END.

WRITE (‘Hai so do la ,x1,y1)’ ;

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

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

Program vd1;

Uses crt;

Var

tep2: TEXT;

a,b: integer;

BEGIN

Clrscr;

ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);

REWRITE (tep2);

WRITE (tep2,a,b);

a:=3; b:=5;

Readln;

END.

Close(tep2);

BEGIN

Clrscr;

ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);

READLN( tep2, x1,y1) ; WRITE (‘Hai so do la ,x1,y1)’ ;

Readln;

END.

Program vd2;

Uses crt;

Var tep2: TEXT;

x1,y1: integer;

RESET ( tep2) ;

2 Thao tác với tệp - Thủ tục đóng tệp: CLOSE (< tên biến tệp>)

Một số hàm chuẩn thưường dùng trong xử lí tệp văn bản

EOF(<biến tệp>);

Cho giá trị đúng nếu con trỏ đang chỉ tới cuối tệp.

EOFLN(<biến tệp>);

Cho giá trị đúng nếu con trỏ đang chỉ tới cuối dòng.

Hãy nhớ!

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

ASSIGN(<tên biến tệp>);

- Để đọc: RESET(<Tên biến tệp>);

- Để ghi: REWRITE(< Tên biến tệp>);

CLOSE(< tên biến tệp>);

Đọc: READ(<Tên biến tệp>, biến nhận); Ghi: REWRITE(< Tên biến tệp>,biến đ a ra);

 Khai báo tệp văn bản:

 Gán tên tệp:

 Mở tệp:

 Đọc/ghi tệp

 Đóng tệp