Помогите с Паскалем. Работа с файлами. - есть ответ

Без имени, 93 просмотра

Дают различные задания в виде "найти фрагмент текста в конкретном файле".
Можете провести мини-теорию для школьника? Я студент 2-го курса, но, думаю, для вас буду школьником.

Примечание:
Андрей, мне бы введение в код познать.
Каким оператором открывать, как путь задавать в программе, как сохранять данные и т.д.
Мне синтаксис программы нужен =)

Примечание:
Если же баллов мало, то я подгоню. Не особо-то мне их и жалко.
Главное, чтобы я хоть пару простеньких действий мог осуществить.

Ответы:

Андрей Архангельский

Самое простое открыть текстовый файл и считывать в строковую переменную построчно, а в строчной переменной поиск осуществляется с помощью функции Pos

Андрей Архангельский

Начало кода для открытия файла:
if OpenDialog.Execute then begin
sInp := OpenDialog.FileName;
AssignFile(flInp,sInp); Reset(flInp); // Открыть файл с путем sInp и установить позицию в начало
try
while not Eof(flInp) do begin // выполнять пока не достигли конца файла
ReadLn(flInp,sPar); // читать очередную строку в переменную sPar
ps1 := Pos('Слово1',sPar); // Позиция в строке слова 'Слово1', если не найдено, то =0
sFld := Copy(sPar,ps1,12); // Скопировать из переменной sPar в sFld часть начиная с ps1 и длиной 12 символов

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.