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

@florgas · Регистрация: 28.09.2010

Студворк — интернет-сервис помощи студентам

Добрый день. Выполнил цикл "while not eof(inputFile)". Теперь надо выполнить еще раз цикл с таким же условием, но другим содержимым.
Я проверил, второй цикл ни разу не выполняется. Я так понял, что в этом файле у меня в программе уже курсор установился на конец файла. Как сбросить курсор на начало?
Спасибо.

Добавлено через 52 минуты
Решил проблему через:

Pascal
1
2
close(inputFile);
reset(inputFile);

@ZevsNet · 13.10.2013, 09:33

Перемещает текущий указатель позиции файла на определенный компонент.

Объявление:

Procedure Seek(Var F; N : Longint);

Режим: Windows, Protected, Real

Замечания:

F - переменная любого файлового типа за исключением текстового, и N - выражение типа Longint. Указатель позиции файла F перемещается на номер компонента N. Номер первого компонента файла равен нулю. Чтобы расширить файл, вы можете передвинуть указатель на один компонент за последний компонент в файле. То есть, оператор Seek(F, FileSize(F)) перемещает текущий указатель позиции файла на конец файла.

В режиме {$I-} функция IOResult вернет 0, если операция была успешна, иначе, она вернет отличный от нуля код ошибки.

Не может быть использована на текстовых файлах. Файл должен быть открыт.

Pascal
1
seek(NameFile,0)

@florgas · 13.10.2013, 11:59 **[ТС]**

Не может быть использована на текстовых файлах.

У меня текстовый файл.

@Lijnx · 02.03.2020, 16:31

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

Добавлено через 29 минут
Но так же не забывайте, что на каждый Reset должен быть и Close

@bormant · 03.03.2020, 12:58

Сообщение от Lijnx

не забывайте, что на каждый Reset должен быть и Close

Точно? Проверяли?

Pascal
  Reset(f);
  { ... }
  Reset(f);

Сколько должно быть Close(f)? Два?

@Lijnx · 04.03.2020, 05:24

Была у меня программка, где Reset был зациклен, а Close нет. После того как после выполнения процедуры, где всё вот это и было, я открывал файл процедурой Append, программа вылетала и кричала на то, что не может получить доступ к файлу. Строка, на которую указывал дебаггер была та, что с Append. Решением проблемы стало зацикливание Close. И я пролистывал пару сайтов, на которых, к слову, тоже после каждой процедуры типа Reset/Rewrite/Append ставили по Close. Хотя почему дебаггер не жаловался на несколько незакрытых Reset подряд - непонятно. Ну в общем из всего вот этого я сделал такое умозаключение. Если что-то не так, разъясните пожалуйста

Добавлено через 7 минут
Ну и в вашем коде Close должен быть перед и после второго Reset. На каждое открытие - одно закрытие. Вроде бы это так работает

@bormant · 04.03.2020, 09:18

Сообщение от Lijnx

Close должен быть перед и после второго Reset. На каждое открытие - одно закрытие

Насчет "должен" -- зависит от...
Для Turbo Pascal и совместимых, включая Free Pascal Compiler -- не должен, но может, об этом заботится библиотека исполнения. Грубо говоря, код Reset в своем начале похож на:

Pascal
  case TextRec(f).Mode of
   fmInput, fmOutput, fmInOut: Close(t);
   fmClosed: ;
  else
   begin
    InOutRes:=102; Exit;
   end;
  end;
  { остальной код про собственно открытие }

В Turbo Pascal такое поведение документировано: в описании Reset явно указано, если файл открыт, то он сначала закрывается, а затем открывается вновь.
То есть, такое поведение -- это не простое совпадение :-)

Как оно устроено в других реализациях языка, поди знай. Поэтому, действительно, с точки зрения потенциальной совместимости непересекающиеся пары Reset(f)/Close(f) -- вариант наиболее безопасный. Для TP/FPC и совместимых -- рабочий, но явно избыточный.

@Lijnx · 04.03.2020, 09:44

Хорошо, буду знать. Спасибо за пояснение

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Lijnx 0 / 0 / 0 Регистрация: 29.11.2019 Сообщений: 17
	02.03.2020, 16:31
	Для вас уже, наверное, неактуально, но для других отвечу. Поставить указатель на начало текстового файла можно с помощью повторного вызова процедуры Reset(<Имя файловой переменной>). Добавлено через 29 минут Но так же не забывайте, что на каждый Reset должен быть и Close 0

@Lijnx 0 / 0 / 0 Регистрация: 29.11.2019 Сообщений: 17
	04.03.2020, 05:24
	Была у меня программка, где Reset был зациклен, а Close нет. После того как после выполнения процедуры, где всё вот это и было, я открывал файл процедурой Append, программа вылетала и кричала на то, что не может получить доступ к файлу. Строка, на которую указывал дебаггер была та, что с Append. Решением проблемы стало зацикливание Close. И я пролистывал пару сайтов, на которых, к слову, тоже после каждой процедуры типа Reset/Rewrite/Append ставили по Close. Хотя почему дебаггер не жаловался на несколько незакрытых Reset подряд - непонятно. Ну в общем из всего вот этого я сделал такое умозаключение. Если что-то не так, разъясните пожалуйста Добавлено через 7 минут Ну и в вашем коде Close должен быть перед и после второго Reset. На каждое открытие - одно закрытие. Вроде бы это так работает 0

@Lijnx 0 / 0 / 0 Регистрация: 29.11.2019 Сообщений: 17
	04.03.2020, 09:44
	Хорошо, буду знать. Спасибо за пояснение 0