Xử Lý Tệp Văn Bản Trong Pascal N-IDE

1 Khái niệm về tệp:

Tệp là một dãy các phần tử cùng kiểu được sắp xếp một cách tuần tự. Tệp dữ liệu được lưu trữ ở bộ nhớ ngoài dưới một tên nào đó.

Dùng để lưu trữ dữ liệu dưới dạng các ký tự của bảng mã ASCII, các ký tự này được lưu thành từng dòng, độ dài các dòng có thể khác nhau.

Trong Pascal N-IDE hỗ trợ tệp UTF-8, tức là bạn có thể ghi vào tệp những kí tự thuộc bảng mã Unicode.

2. Tạo một tệp văn bản bằng cách thủ công trong Pascal N-IDE

Lưu ý: tệp cần đặt vào thư mục chạy của ứng dụng sdcard/PascalCompiler

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

Tệp văn bản được khai báo trực tiếp trong phần khai báo biến:

Var  Bientep:Text;

• Truy nhập vào tệp:

Truy nhập vào tệp được hiểu là nhập dữ liệu vào tệp, ghi lại dữ liệu trên thiết bị nhớ ngoài.

• Mở tệp mới để ghi:

Assign(bientep, tentep); Rewrite(bientep);

• Mở tệp đã có để ghi thêm:

Assign(bientep, tentep); Reset(bientep);

• Mở tệp để đọc dữ liệu:

Assign(bientep, tentep); Reset(bientep);

• Ghi dữ liệu vào tệp:

Sau khi đã mở tệp chúng ta có thể dùng thủ tục Write hoặc Writeln để ghi dữ liệu vào tệp.

Var T1: Text; Begin Assign(T1,'dulieu.txt'); Rewrite(T1); Writeln(T1,'Xin chào các bạn'); Write(T1,123); Write(T1,' ',123.45); Writeln(T1); Close(T1); End.

Dữ liệu ghi vào tệp như sau:

Xin chào các bạn 123 123.45

1. 

   Đọc dữ liệu từ tệp văn bản:

Sau khi tiến hành mở tệp, con trỏ tệp sẽ được đặt tại dòng đầu.Ta dùng thủ tục Read hoặc Readln để đọc dữ liệu từ dòng hiện thời và gán vào biến tương ứng, viết biến đó ra màn hình.

Ví dụ 2.8:

Xây dựng một chương trình đơn giản để quản lý công chức. Dữ liệu nhập bao gồm: Họ tên, Hệ số lương và số con. Dữ liệu xuất ra màn hình bao gồm Họ tên, Hệ số lương, Số con và Lương tháng ( tính theo quy định của nhà nước = heso*540000).

Program Quan_ly_can_bo; Uses Crt; Var f: Text; hoten: String[20]; c1, heso: real; c2, i, n, socon: byte; Ten: string[12]; Begin Clrscr; Assign(f,'dulieu.txt'); Rewrite(f); Write('Có bao nhiêu người'); readln(n); For i:=1 to n do Begin Write('Họ tên: '); Readln(hoten); Write('Hệ số lương: '); Readln(heso); Write('Số con'); Readln(socon); Writeln(f,hoten); Writeln(f,heso:4:2); Writeln(f,socon); End; Close(f); Assign(f,'dulieu.txt'); Reset(f); Writeln('----------------------------------'); Writeln ('| Ho va ten | Hs | socon | Luong |'); Writeln('----------------------------------'); While not eof(f) do Begin Readln(f,hoten); Readln(f,heso); Readln(f,socon); Writeln(ten:19,heso:4:2,socon:4, heso * 540000:10:2); End; Readln; End.

nguồn: http://codepascal.blogspot.com/2012/05/tep-kieu-du-lieu-tep-trong-pascal.html

Chia sẻ:

• X
• Facebook

Thích Đang tải...

Có liên quan