VPF::[Паскаль] работа с файлами - Форум программистов

Nevan

Дата 15.6.2008, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 15.6.2008
Где: Иваново

Репутация: нет
Всего: нет

объясните, кто может, принцип работы с файлами (текст). принцип и операторы. а то не очень въезжаю в систему smile

mr.Anderson

Дата 15.6.2008, 14:37 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Nevan, смотри. smile

1. Файлы могут быть типизированными и текстовыми. Типизированные создаются так:

Код


var
 F : File of Integer; //файл с данными целого типа

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

Текстовые создаются так:

Код


var
 F : Text;

Или так (я чаще делаю именно этим методом):

Код


var
 F : TextFile;

2. Для работы можно использовать дельфовые функции типа OpenFile(), а можно стандартные паскалевские. Я юзаю обычно второй вариант.

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

В обычном паскале это функция Assign(), в Делфи для этого функция AssignFile(). Формат функции Дельфа тебе укажет или справочник по паскалю. smile

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

Чтение:

Код


Reset( f ); //f - твоя файловая переменная

Перезапись:

Код


Rewrite( f );

Дозапись:

Код


Append( f );

После этого с файлом можно работать функциями Write/WriteLn (это запись) и Read/ReadLn (чтение). Работают функции по тому же принципу, что и для консольных программ.

Заметь, что write/writeln для файла, открытого с помощью Reset(), вызовет ошибку по понятным причинам.

Дополнительно для работы есть функции типа Seek(), устанавливающие указатель на нужную позицию. По ним тоже порой справочники. Также часто используется EOF - End Of File. Используется в цикле для посимвольного чтения, насколько я помню, что-то типа такого:

Код


var
 c : Char;
//...

begin
 //f - твоя файловая переменная, открытая, например, через Reset()

 while( not EOF ) do
  c := Read(f);
end;

После работы с файлом его нужно закрыть. В паскале это так:

Код


Close( f );

В Делфи так:

Код


CloseFile( f );

Вот, пожалуй, и все. smile

Это сообщение отредактировал(а) mr.Anderson - 15.6.2008, 14:40

--------------------

Данкинг

Дата 15.6.2008, 14:39 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Недавно уже где-то приводил пример. Ну, вот ещё раз, чтение строки из файла. А вообще, поищи, подобной инфы более чем достаточно, всё же основа.

Код


var 
fff: TextFile;
begin
   assignfile(fff,'c:\aaa.txt');
   reset(fff);
   readln(fff,txt);
   Closefile(fff);
 end;

--------------------

There's nothing left but silent epitaphs.

mr.Anderson

Дата 15.6.2008, 14:39 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

ЗЫ да, еще забыл, в дельфе (да, по-моему, и в паскале) есть функции для работы с файлами типа:

Код


if( FileExists( 'myfile.txt' ) ) then
 ...

Проверяет файл на существование.

Потом такая, например:

Код


DeleteFile( f ); //ЗЫ точно не помню, получает текстовое значение или файловую переменную...

Удаляет файл.

Добавлено через 4 минуты и 10 секунд
ЗЗЫ еще вещь CreateFile(), создает файл. Имеет тьму аргументов, я ее никогда не пользовал... smile

--------------------

Nevan

Дата 15.6.2008, 14:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 15.6.2008
Где: Иваново

Репутация: нет
Всего: нет

Цитата(mr.Anderson @ 15.6.2008, 14:37

)

Дозапись:

код Pascal/Delphi
1:

Append( f );

я так понимаю запись ведётся построчно? то есть единичное использование Append - 1 строка файла?

Это сообщение отредактировал(а) Nevan - 15.6.2008, 14:47

mr.Anderson

Дата 15.6.2008, 14:49 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Nevan, запись может вестись и посимвольно, как и чтение. Либо да, построчно. Еще, вроде, можно поблочно, не помню точно, можно ли и как, не пользовал. smile

По вопросу: нет, не так. Reset/Rewrite/Append - это режимы открытия файла. Их юзаешь ОДИН раз после ассоциирования файловой переменной с физическим файлом и до момента закрытия файла. А в процессе работы можно читать/записывать построчно/посимвольно/может быть, поблочно.

--------------------

Nevan

Дата 15.6.2008, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 15.6.2008
Где: Иваново

Репутация: нет
Всего: нет

Цитата(mr.Anderson @ 15.6.2008, 14:49

)

А в процессе работы можно читать/записывать построчно/посимвольно/может быть, поблочно.

вот конкретно как переключаться между ними? допустим, я хочу часть файла вводить посимвольно, а другую часть - построчно

mr.Anderson

Дата 16.6.2008, 08:12 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Nevan, тогда до какого-то нужного тебе момента пишешь в файл через Write, а в какой-то момент начинаешь писать через WriteLn. Режим менять не придется, если, конечно, нет на то причины.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »