第三节文件操作;文本文件的定义：;写入文本文件;例7.9从键盘上读入如下的数据，把它们写入名为b.txt的文件中。
34
29305060
80907075
60507045
Programex7_9;
vari,j,n,m,x:integer;f:text;
begin
readln(n,m);
assign(f,‘b.txt’);rewrite(f); //准备写操作
writeln(f,n:4,m:4);
fori:=1tondo//共n行内容
begin
forj:=1tomdo//每行有m个值
begin
read(x);write(f,x:4);
end;
readln; //输入时屏幕换行
writeln(f); //把回车符写入输出文件中
end;
close(f);
end.;读取文本文件;例7.10读出例7.9建立的文本文件，并输出在屏幕。
Programex7_10;
vari,j,n,m,x:integer;f:text;
begin
assign(f,b.txt);reset(f); //关联并准备读操作
readln(f,n,m);
writeln(n:4,m:4);
fori:=1tondo//共有n行内容
begin
forj:=1tomdo//每行有m个值
begin
read(f,x);
write(x:4);
end;
writeln;
end;
close(f);
readln;//起暂停作用
end.
由于文本文件是以ASCII码的方式存储，故查看文本文件的内容是极为方便。;例7.11建立由50个随机整数组成、文件名为f1.dat的TEXT文件
①定义文件变量f为文本文件类型〔TEXT〕；
②指派f与f1.dat对应；
③准备写文件；
④产生50个随机整数，写入文件中；
⑤关闭文件。;ProgramExam711;
const
n=50;
var
s，i:integer;{s，i为整型}
f:text;{f为text类型}
begin
assign(f,’f1.dat’);{用文件变量f与a驱磁盘上f1.dat文件对应}
rewrite(f);{建立与f对应的实际文件名}
randomize;{初始化随机函数}
forI:=1tondo
begin
s:=random(99)+1;{产生一个100以内的随机整数赋给s}
write(f,s:6);{将s写入文件中}
ifImod5=0thenwriteln(f){每行写5个数据}
end;
close(f){关闭文件}
end.;文本文件的特点;例7.12从文件中读入两个加数，把它们的和写入输出文件