Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Ноябрь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 107
от 29.11.2005, 08:57

Администратор:Калашников О.А.
В рассылке:Подписчиков: 143, Экспертов: 37
В номере:Вопросов: 1, Ответов: 4

Вопрос № 30106: Уважаемые эксперты! Подскажите, пожалуйста как можно организовать поиск на диске определенных файлов, например по расширению или по имени, и занести их список в файл *.txt...

Вопрос № 30.106
Уважаемые эксперты! Подскажите, пожалуйста как можно организовать поиск на диске определенных файлов, например по расширению или по имени, и занести их список в файл *.txt
Отправлен: 23.11.2005, 22:45
Вопрос задал: MET (статус: Посетитель)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Маренич Владимир
Здравствуйте, MET!
Используйте функции FindFirst и FindNext (описание смотрите в хелпе)
Ответ отправил: Маренич Владимир (статус: 7-ой класс)
Отправлен: 23.11.2005, 23:25
Отвечает: sir henry
Здравствуйте, MET!
Это можно сделать связкой функций FindFirst() и FindNext(). Первая функция ищет первый попавшийся файл с заданными параметрами и заполняет специальную запись, вторая этот поиск продолжает.
Uses WinDos;
var
SR: TSearchRec;
f: Text;
Begin
Assign(f, 'protocol.log');
Rewrite(f);
If FindFirst('*.txt', faAnyFile, SR)=0 Then
Repeat
WriteLn(f, SR.Name);
Until FindNext(SR)<>0;
End.
Если нужно искать во вложеных подкаталогах, то нужно анализировать атрибут каждого найденого файла (SR.Attr and faDirectory = faDirectory) и если это каталог, то заносить в его в отдельный список и вводить его потом как путь для поиска.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 24.11.2005, 06:00
Оценка за ответ: 4
Комментарий оценки:
спасибо за пример, но у меня pascal
пишет error 143, я немного исправил
FindFirst('*.mp3', faAnyFile, SR);
while DosError=0 do
begin
WriteLn(f, SR.Name);
end;
Отвечает: Whisper
Здравствуйте, MET!
с функции FindFirst и FindNext, описание читай в стандартном хелпе

---------
все тленно
Ответ отправила: Whisper (статус: 2-ой класс)
Отправлен: 24.11.2005, 13:34
Отвечает: Schmak
Здравствуйте, MET!
Используйте FindFirst, FindNext. В приложении приведена процедура, которая ищет файлы в заданной папке и всех подпапках. Пример написан для Delphi, но в принципе должен работать и в Pascale.

Приложение:

---------
Не всё то Windows, что висит!

Ответ отправил: Schmak (статус: Студент)
Отправлен: 24.11.2005, 13:55

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале 		Яндекс Rambler's Top100 hotlog_js="1.0"; hotlog_r=""+Math.random()+"&s=314124&im=101&r="+escape(document.referrer)+"&pg="+ escape(window.location.href); document.cookie="hotlog=1; path=/"; hotlog_r+="&c="+(document.cookie?"Y":"N"); hotlog_js="1.1";hotlog_r+="&j="+(navigator.javaEnabled()?"Y":"N") hotlog_js="1.2"; hotlog_r+="&wh="+screen.width+'x'+screen.height+"&px="+ (((navigator.appName.substring(0,3)=="Mic"))? screen.colorDepth:screen.pixelDepth) hotlog_js="1.3" hotlog_r+="&js="+hotlog_js; document.write("HotLog")
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus
Архив рассылки 		Отписаться
Вспомнить пароль
В избранное