Thủ tục SEEK(BienTep, k) sẽ đặt cửa sổ tệp vào phần tử có chỉ số k. Dùng thủ tục READ(BienTep, ...) để đọc phần tử này ra, dùng thủ tục WRITE(BienTep, ...) để ghi giá trị mới vào phần tử này

Thủ tục SEEK(BienTep, k) sẽ đặt cửa sổ tệp vào phần tử có chỉ số k. Dùng thủ tục READ(BienTep, ...) để đọc phần tử này ra, dùng thủ tục WRITE(BienTep, ...) để ghi giá trị mới vào phần tử này.

VD 9.7 Lập trình đọc dữ liệu từ tệp SN.DAT (chứa các số nguyên). Hãy kiểm tra xem phần tử thứ hai (nếu có) của tệp có là số dương không? Nếu không, hãy thay nó bằng một số nguyên dương nhập từ bàn phím.

Hướng dẫn

• Mở tệp để đọc RESET(f);

• SEEK(f, 1); (Phần tử thứ hai có chỉ số 1)

• READ(f, k); Write(k);

• Nếu thay giá trị khác thì

Readln(k);

SEEK(f, 1);

WRITE(f, k);

• 
  Một số CTC xử lý tệp của Turbo Pascal
  

 Hàm FileSize

FileSize(BienTep);

trả về số phần tử của tệp BienTep (hàm trả về 0 nếu tệp rỗng).

 Hàm FilePos

FilePos(BienTep);

trả về chỉ số của phần tử mà cửa sổ của tệp BienTep đang ở đó (phần tử đầu tiên có chỉ số 0).

- Để thêm phần tử vào cuối tệp:

SEEK(BienTep, FileSize(BienTep));

WRITE(BienTep, ...);

- Ghi lại sự thay đổi của tệp: CLOSE(BienTep);

 Thủ tục ERASE

ERASE(BienTep);

xóa tệp trên đĩa đã được gán BienTep bởi thủ tục ASSIGN(BienTep, TenTep); trước đó.

Chẳng hạn, để xóa tệp SN.BAK trên đĩa:

ASSIGN(f, ’SN.BAK’);

ERASE(f);

 Thủ tục RENAME

RENAME(BienTep, TenTepMoi);

đổi tên tệp ở trạng thái đóng với tên mới (không được trùng với tên tệp khác đã có) đặt trong xâu TenTepMoi; tệp đã được gán BienTep bởi thủ tục ASSIGN(BienTep, TenTep); trước đó.

Chẳng hạn, để đổi tên tệp SN.DAT thành SN2.DAT:

ASSIGN(f, ’SN.DAT’);

tải về 228.5 Kb.

Chia sẻ với bạn bè của bạn: