|
Вопрос # 5 795/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Нужно написать программу, которая будет открывать по очереди каждый файл(файлы имеют разные названия) в определенной папке и искать в ней слова(например:после name до f выписать слово). Файлы все в формате txt.
 |
Вопрос задал: artren (статус: Посетитель)
Вопрос отправлен: 4 декабря 2011, 19:37
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 5 декабря 2011, 19:58; участников в обсуждении: 3.
4 декабря 2011, 23:00: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором Ерёмин А.А.
|
bugmenot (статус: 3-ий класс), 5 декабря 2011, 00:09 [#1]:
Нужно написать - не вопрос, а поручение. Что не получается?
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
artren (статус: Посетитель), 5 декабря 2011, 11:43 [#2]:
не понимаю как задать,чтобы он в папке открывал по очереди файлы,а поиск сам могу сделать, если можно,то на паскале пожалуйста
|
|
Егор (статус: 10-ый класс), 5 декабря 2011, 18:03 [#3]:
finffirst/findnext - гуглим по этим словам
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
artren (статус: Посетитель), 5 декабря 2011, 19:58 [#4]:
program go;
Uses DOS;
var
S: SearchRec;
begin
FindFirst('C:\marcom\proba\*.txt',AnyFile,S);{открываем файлы по очереди}
while DosError = 0 do
with S do
Reset(s); {открываем файл}
While not eof(f1) do {читаем файл до конца}
{как здесь организовать поиск слова, который находится от <title> до</title>}
{дальше переходим к другому файлу}
FindNext(S)
end.
Подскажите пожалуйста как правильно исправить, в комментариях вопросы
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
