Файлы Текстовые и двоичные файлы Работа с файлами

Файлы. Текстовые и двоичные файлы. Работа с файлами. Магистрант Группы М-1 Осадчая Ольга Алексеевна 1

Что такое файл? 2

Что такое файл? (файл - это последовательность байт, сгруппированная под общим именем).

Для чего нужны файлы?

Для чего нужны файлы? (файлы используются для организации данных, хранящихся в компьютере).

Назовите основные виды файлов?

Назовите основные виды файлов? (текстовые и двоичные файлы).

Какие файлы называются текстовыми? 8

Какие файлы называются текстовыми? (Те кстовые файлы — компьютерные файлы, содержащие текстовые данные, как правило, организованные в виде строк).

Какие файлы называются двоичными ?

Какие файлы называются двоичными ? (Двоичные файлы – файлы, в которых содержатся данные, не рассчитанные на интерпретацию в качестве текста (например, файлы, хранящие закодированные звук или изображение), обычно, двоичным называют файл, содержание которого не рассчитано на восприятие человеком).

Как организуется информация в текстовом файле?

Как организуется информация ( текстовые данные) в текстовом файле? (В те кстовом файле, текстовые данные, как правило, организуются в виде строк). 13

Пример вида содержимого текстового файла: В 1485 году, когда Иван III развернул в Кремле строительство, итальянский зодчий Антон Фрязин заложил первую башню нового Московского Кремля, которая получила название Тайницкая. Летописец так описывает это событие: « … заложена бысть на реце на Москве стрельница у Шешковых ворот, а под ней выведен тайник, а делал ее Антон Фрязин «. Эти проездные ворота были выстроены на месте старых Чешковых ворот Кремля - времен Дмитрия Донского. 14

Назовите виды файлов № 1 и № 2. Аргументируйте ответ, опираясь на определение. 15

Назовите виды файлов № 1 и № 2. Аргументируйте ответ, опираясь на определение. Пример содержимого файла № 1: List. Type *Find. First (List. Type *node, PXType data_type) { PXBeads b; List. Type *end_of_search = enable_wrap ? node : b. Get. Root (node); for (node = b. Get. Next (node); if (!(*node)) { if (node == b. Get. Root (node)) { is_wrap = true; Пример содержимого файла № 2: ¦¦&рб->с • • • > • ¦ • • • • Й • • • °C • • • • > • • -0 • • O • • • в+ • • ¦C • • z/ • • {/ • • ¦/ • • • З? • • В/ • И? Й? • • Е/ • • ¦¦ • • • ? • • ? ? • ¦ • • d¦ • • 0¦ • • К • Н? • • °- • • • - • • v- • • №- • • ¤- • • ¦- • • • ? ? • • s/ • • Ж/ • ? • • ы$ • • ь$ • • э • Ё$ • • ё$ • • Є$ • є$Ї$ • П? • • Р? • • С? • • Т? • • р+ • • с+ • • т+ • • у+ • 6 • [6 • • 6 • • ] • ? D • • D? D • • +%? • ¦%? • -%? • +%? • ? &? • 3&? • 4&? &? L^! • И^! • ¦ • К>!¦>!D? ? L&! • ¦&! • ВL! • РL! • TL! • ¦L! • O-! • 0 -! • r-! ? ? • b? ? • hЎ! • +Є!! • Ї!! • T(! • -(!)! • d)! • -)! • N*? • P*! • М*! • О*!Р*! • ~+! ¦? • ? ¦? • • + • ++-+-++ • + • ++++ • ++¦++ • + • +++ 16

Назовите номера столбцов в котором расположены названия типов файлов? Назовите номера столбцов в котором содержатся типы расширений?

Назовите номера столбцов в котором расположены названия типов файлов? Назовите номера столбцов в котором содержатся типы расширений? Расширения и типы файлов 1 TXT 2 Текстовый 4 Любой текстовый редактор Документ HTML HTM, HTML 3 Документ ASCII Текстовый редактор или программа просмотра Интернета DOC, DOCX Двоичный Документ Microsoft Word XLS, XLSX Двоичный Документ Microsoft Excel BMP Рисунок в формате BMP Paint и большинство графических редакторов WAV, MP 3 Звуковой файл EXE Двоичный Исполняемый файл "Звукозапись" и большинство мультимедиа-проигрывателей (сам является программой) 18

Расширения и типы файлов Расширение Тип Описание Программа TXT Текстовый Документ ASCII Любой текстовый редактор HTM, HTML Текстовый Документ HTML Текстовый редактор или программа просмотра Интернета DOC, DOCX Двоичный Документ Microsoft Word XLS, XLSX Двоичный Документ Microsoft Excel BMP Двоичный Рисунок в формате BMP Paint и большинство графических редакторов WAV, MP 3 Двоичный Звуковой файл EXE Двоичный Исполняемый файл "Звукозапись" и большинство мультимедиа-проигрывателей (сам является программой) 19

Перечислите типы файлов в Паскале. Какими служебными словами можно описать типы файлов в Паскале?

Типы файлов Паскаль поддерживает три файловых типа: текстовые файлы; типизированные файлы; нетипизированные файлы. Типы файлов описывают одним из трех способов: file of тип - типизированный файл (указан тип компоненты); text - текстовый файл; file - нетипизированный файл. 21

Пример описания файловых переменных: var f 1: file of char; f 2: file of integer; f 3: file; t: text; 22

Какие операции можно выполнять над файлами? Какие операции нельзя выполнять над файлами?

Какие операции можно выполнять над файлами? Какие операции нельзя выполнять над файлами? (Над файлами можно выполнять операций (чтение, запись и т. д. )). (нельзя выполнять операций (присваивать значение, сравнивать и т. д. )).

Перечислите этапы работы с файлами. С чем можно сравнить эти этапы работы с файлами и почему?

Принцип сэндвича Переменная типа "текстовый файл": var f: text; I этап. открыть файл : • связать переменную f с файлом assign(f, 'qq. dat'); • открыть файл (сделать его активным, приготовить к работе) reset(f); {для чтения} rewrite(f); {для записи} II этап: работа с файлом read ( f, n ); { ввести значение n } write ( f, n ); { записать значение n } writeln ( f, n ); {c переходом на нов. строку } III этап: закрыть файл close(f); 26

Перечислите стандартные процедуры и функции которые в языке Паскаль ориентированы на работу со строками. Объясните их назначение.

Перечислите стандартные процедуры и функции которые в языке Паскаль ориентированы на работу со строками. Объясните их назначение. В языке программирования Pascal имеются стандартные процедуры и функций, ориентированные на работу со строками. 1. Length 2. Copy 3. Delete 4. Insert 5. Pos

В языке программирования Pascal имеются стандартные процедуры и функций, ориентированные на работу со строками. Length(s: string): integer Функция возвращает в качестве результата значение текущей длины строки-параметра Copy(s: string; index: integer; count: integer): string Функция возвращает подстроку, выделенную из исходной строки s, длиной count символов, начиная с символа под номером index. Delete(var s: string; index, count: integer) Процедура удаляет из строки-параметра s подстроку длиной count символов, начиная с символа под номером index.

Insert(source: string; var s: string; index: integer) Процедура предназначена для вставки строки source в строку s, начиная с символа index этой строки. Pos(substr, s: string): byte Функция производит поиск в строке s подстроки substr. Результатом функции является номер первой позиции подстроки в исходной строке. Если подстрока не найдена, то функция возвращает 0.

Задача 1: Создать текстовый файл out. txt и записать в него фразу «Мой первый опыт создания файлов»

Задача 1: Создать текстовый файл out. txt и записать в него фразу «Мой первый опыт создания файлов» Решение: Program first; Uses crt; Var f: text; //создаем переменную текстового типа Begin Assign(f, ’out. txt’); //сопоставляем файл с файловой переменной Rewrite(f); //открываем файл на запись Writeln(f, ’ Мой первый опыт создания файлов’); //записываем фразу в файл Close(f); //закрываем файл End. 32

Решим задачу 2: "Написать программу, которая вводит с клавиатуры список фамилий учащихся, а затем распечатывает его, кроме тех учащихся, у которых фамилия начинается с буквы 'Ш'".

Решим задачу 2: "Написать программу, которая вводит с клавиатуры список фамилий учащихся, а затем распечатывает его, кроме тех учащихся, у которых фамилия начинается с буквы 'Ш'". Program L; Var I, N : Integer; F : File Of String; S : String; Begin Assign(F, 'Spis. lst'); {Связываем переменную F с файлом Spis. lst} Writeln('Введите количество учащихся'); Readln(N); {Вводим количество учащихся} Rewrite(F); {Создаем файл для записи в него данных} For I: =1 To N Do {Для всех учащихся} 34

Begin Writeln('Введите фамилию'); Readln(S); Write(F, S) End; Close(F); Reset(F); Writeln('Список учащихся: '); While Not(Eof(F)) Do Begin Read(F, S); If S[1]<>'Ш' Then Writeln(S) End; Close(F) End.

Задача 3: Замена последовательности символов в строке. Найти в строке все заданные последовательности символов и заменить их другой последовательностью.

Задача 3: Замена последовательности символов в строке Найти в строке все заданные последовательности символов и заменить их другой последовательностью. Описание переменных: f – файловая переменная текстового типа; str – строка из файла; s_out – заменяемая последовательность символов; s_in – вставляемая последовательность символов. Алгоритм решения задачи: 1. Открываем текстовый файл для чтения. 2. Присваиваем значения переменным s_out и s_in. 3. Выясняем длину s_out. 4. Пока не будет достигнут конец файла a. Считываем содержимое файла в переменную str. b. Пока счетчик не равен нулю i. Присваиваем ему индекс первого символа совпавшей последовательности. ii. Удаляем и вставляем последовательности символов. 37

Программа на языке Паскаль : Program Zamena; var s_out, s_in, str: string; f : text; i, len : integer; begin assign(f, 'c: /text. txt'); reset(f); writeln('Что вырезать? '); readln(s_out); writeln('Что вставить? '); readln(s_in); len : = length(s_out); while not Eof(f) do begin 38

readln(f, str); i : = 1; while i<>0 do begin i : = pos(s_out, str); if i<>0 then begin delete(str, i, len); insert(s_in, str, i); end; writeln(str); end; close(f); end. Примечания: Если заменяемое слово имеет позицию 0, то оно не заменяется.

Задача 4: Скопировать текстовые файлы.

Задача 4: Копирование текстовых файлов Алгоритм решения задачи: Копирование текстовых файлов с помощью средств языка Pascal реализовать достаточно просто. Копируемый файл открывается в режиме чтения (reset), а планируемая копия – в режиме записи (rewrite). И пока не будет достигнут конец первого файла (eof), считывать данные из одного и записывать их в другой. По окончании следует закрыть оба файла (close). Program Cop; var f 1, f 2: text; s: string; begin assign (f 1, 'c: file 1. txt'); reset (f 1); assign (f 2, 'c: file 2. txt'); rewrite (f 2); while not eof (f 1) do begin readln (f 1, s); writeln (f 2, s) end; close (f 1); close (f 2); end. 41

Задача 5: Вставить вместо пробелов точки.

Задача 5: Вставить вместо пробелов точки. Program Pro; uses crt; var dl, ch, n: integer; text, text 1: string; label 1; begin clrscr; writeln('Введите текст'); readln(text); dl: =length(text); n: =pos(' ', text); 1: if n>0 then begin Delete(text, n, 1); insert('. ', text, n); dl: =length(text); if dl>0 then begin n: =pos(' ', text); goto 1; end; writeln(text); end. 43

Задача 6: Удалить из текста все буквы "о".

Задача 6: Удалить из текста все буквы "о". Program О; uses crt; var word 1, word: String; dl, n: integer; label 1; begin clrscr; writeln('Введите текст'); readln(word 1); writeln('Введите букву, которую надо удалить'); readln(word); dl: =length(word 1); n: =pos(word, word 1); 1: if n>0 then begin Delete(word 1, n, 1); insert(' ', word 1, n); dl: =length(word 1); if dl>0 then begin n: =pos(word, word 1); goto 1; end; writeln(word 1); end. 45

Выполните задания: 1. Написать программу, которая считывает слова из одного текстового файла и записывает их в столбик в другой текстовый файл. 2. Удалить из середины каждой строки текстового файла, заданное пользователем количество символов. Создайте текстовый файл, содержащий удаленные символы. 3. В каждом слове текстового файла поменять местами первый и последний символы.

Спасибо за внимание! 47