Pascal: Занятие № 12 Часть1. Работа с файлами в паскале (текстовые файлы)

Работа с файлами в паскале

Виды файлов в зависимости от их описания и режимом работы

1. текстовые (тип text) файлы со строками неопределенной длины;
2. файлы с типом записей (двоичные или типизированные (file of) );
3. файлы без типа для передачи данных блоками записей нетипизированные (file).

Описание файловых переменных:

var f1: file of char; {типизированный файл} f2: file of integer; {типизированный файл} f3: file; {нетипизированный файл} f: text; {текстовый файл}

var f1: file of char; {типизированный файл} f2: file of integer; {типизированный файл} f3: file; {нетипизированный файл} f: text; {текстовый файл}

Для связи файла в коде программы и действительного файла на внешнем носителе используется процедура ASSIGN:

assign(myfile,'c:\text.txt');

где myfile — имя переменной (объявленной ранее в области var), ассоциированной с файлом
c:\text.txt — путь к реальному файлу
Первый аргумент процедуры assign в паскаль — переменная, второй – путь к файлу на диске.

Текстовые файлы в паскале: процедуры работы

Текстовый файл в Паскале — это совокупность строк произвольной длины, которые разделены между собой метками конца строки, а весь файл заканчивается меткой конца файла.

Метод работы с текстовым файлом в Паскале предусматривает лишь последовательный доступ к каждой строке файла. Это означает, что начинать всегда возможно только с первой строки, затем проходя по каждой строке, дойти постепенно до необходимой. Т.е. можно сказать, что чтение (или запись) из файла (в файл) ведутся байт за байтом от начала к концу.

Предусмотрены два режима работы: режим для записи в файл информации и для чтения ее из файла. Одновременная запись и чтение запрещены.

Открытие файла

Допустим, мы в программе описали переменную для работы с текстовым файлом:

var f: text;

Рассмотрим дальнейшую последовательность работы с ним, и рассмотрим процедуры, необходимые для работы с текстовым файлом в Паскале:

процедура открытия существующего файла для чтения при последовательном доступе:

Reset (f);

Reset (f);

процедура открытия создаваемого файла для записи в него информации; если файл с таким именем уже существует, то информация в нем стирается:

Rewrite (f);

Rewrite (f);

процедура добавления в конец:

Append (f);

Append (f);

• При открытии курсор устанавливается в начало файла.

Чтение из файла

Read (f, список переменных); ReadLn (f, список переменных);

Read (f, список переменных); ReadLn (f, список переменных);

Отличие ReadLn от Read в том, что при использовании readln после прочтения данных пропускаются все оставшиеся символы в данной строке, включая метку конца строки.

• чтение осуществляется с той позиции, где в данный момент стоит курсор;
• после чтения курсор сдвигается к первому непрочитанному символу.

close ( f ); 
reset ( f ); { начинаем с начала }

Запись в текстовый файл

Write (f, список переменных); WriteLn (f, список переменных);

Write (f, список переменных); WriteLn (f, список переменных);

где f — файловая переменная, а второй параметр – выводимые из программы и вводимые в файл данные (в виде значений переменных или просто данные)

Процедуры работы с файлом и закрытие файла

Нахождение конца файла:

Eof(f);

Eof(f);

Логическая функция, возвращающая True, если достигнут конец файла.

Нахождение конца строки:

eoln(f);

eoln(f);

Логическая функция, возвращающая True, если достигнут конец строки.

Удалить файл в Паскале

erase(переменная_файла);

erase(переменная_файла);

Переименование файла в Паскале

rename(переменная_файла,'новое имя файла');

rename(переменная_файла,'новое имя файла');

Закрытие:

Close (f); {закрытие файла}

Close (f); {закрытие файла}

Рассмотрим пример работы с файлами в паскале:

Решение:

1
2
3
4
5
6
7
8
9
10
11
12
13

var
   filetext: text;
   a,b,c:string;
begin
assign(filetext,'c:\text.txt');
reset(filetext);
readln(filetext,a);
readln(filetext,b);
readln(filetext,c);
close(filetext);
writeln(a);
writeln(c);
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

var
  F: Text;
  N,K:integer;
  Name:String;
  C:Char;
begin
 Assign(F,'c:\text.txt');
 Reset(F);
 N:=0;
 K:=0;
 While not eof(F) do
  begin
   inc(N);
   While not eoln(f) do
    begin
     inc(K);
     Read(F,C);
    end;
   Readln(F);
  end;
 Close(F);
 Writeln(N,' ',K);
end.

Решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

var p, x: integer;
    f: text; 
begin
assign(f, 'input.txt');
reset(f);
p := 1;
while not eof(f) do begin
  readln(f, x); 
  p := p * x;
end;
close(f);   
assign(f, 'output.txt');
rewrite(f);
writeln(f, 'Произведение чисел ', p);   
close(f);
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

var
   filetext: text;
   a:string;
   i:integer;
begin
assign(filetext,'c:\text.txt');
rewrite(filetext);
for i:=1 to 10 do
    ...
reset(filetext);
for i:=1 to 10 do begin
    ...
    ...
end;
close(filetext);
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

var
  F_in,F_out: Text;
  Name,S: String;
 
begin
 
 Write('S: ');
 Readln(S);
 Assign(F_in,'c:\text.txt');
 Reset(F_in);
 Assign(F_out,'c:\text1.txt');
 Rewrite(F_out);
 
 Writeln(F_out,S);
 While not eof(F_in) do
  begin
   Readln(F_in,S);
   Writeln(F_out,S);
  end;
 
 Close(F_in);
 Close(F_out);
 Erase(F_in);
 Rename(F_out,'c:\text.txt');
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

var
  F_in,F_out: Text;
  Name,line: string;
  K,i:integer;
 
begin
 Write('K: ');
 Readln(K);
 Assign(F_in,'c:\text.txt');
 Assign(F_out,'c:\text1.txt');
 Reset(F_in);
 Rewrite(F_out);
 
 i:=0;
 While not eof(F_in) do
  begin
   Readln(F_in,line);
   inc(i);
   if i<>K then Writeln(F_out,line);
  end;
 
 Close(F_in);
 Close(F_out);
 Erase(F_in);
 Rename(F_out,'c:\text.txt');
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

var 	f1,f2: text;
pole:string;
pz:integer;
begin
assign(f1,'1.txt');
assign(f2,'2.txt');
reset(f1); rewrite(f2);
while not eof(f1) do
begin
     readln(f1, pole);
     while pos('101',pole)<>0 do
     begin
          pz:=pos('101',pole);
          delete(pole,pz,3);
          insert('000',pole,pz);
     end;
     writeln(f2,pole)
end;
close(f1);
close(f2);
end.

Работа с данными из файла как с массивом

Фрагмент решения:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

{ Определяем глобальные переменные: }
var A: array[1..100] of integer;
    f: text;
    N, i: integer;
{ Определяем функцию, считывающую числа из файла, и
записывающую их в массив. Функция возвращает кол-во элементов массива: }
function ReadFromFile: integer;
var i: integer;
begin
 assign(f, 'input.txt');
 ...;{ открытие файла в режиме чтения }
 i := 0;
 while (...) and (...) do begin
    i := i + 1;
    readln(...,...);  
    end; 
 close(f);    
 ReadFromFile := i;
end;
{ Основная программа }
Begin
   N := ReadFromFile ;
{ сортировка N элементов по возрастанию }
{ ... }
{ запись отсортированного массива в файл: }
assign(..., ...);
...;{ открытие файла в режиме записи }
for i:=1 to N do 
  writeln(..., ...);     
close(f);
end.

А теперь вернемся к олимпиадному заданию по Паскалю, частично решенному на одном из предыдущих заданиях:

Фрагменты кода:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

var a:char;
    i,n,k:byte;
    s,s1:string;
    f_in,f_out:text;
begin
Assign(F_in,'z:\p.in');
Assign(F_out,'z:\p.out');
Reset(F_in);
Rewrite(F_out);
s1:='';
readln(f_in,k);
readln(f_in,s);
for i:=1 to length(s) do
    begin
     n:=ord(s[i]);
     if n<>32 then  {32 - пробел}
        n:=n+3;
     if ... then ...; 
     if ... then ...; 
     if ... then ...; 
     a:=chr(...);
     s1:=...;
     end;
     writeln(s1);
     writeln(f_out,s1);
     close(f_in);
     close(f_out)
end.