DELPHI->Поиск файлов
От: Аноним  
Дата: 29.07.04 05:21
Оценка:
Имею список расширений файлов(*.PAS;*.DRP;..)
? Надо получить список файлов с такими расширениями
из заданной директории.
(FindFirst,FindNext.. c циклом по каждому расширению не предлагать)

13.08.04 14:50: Перенесено модератором из 'Delphi & Builder' — по просьбе трудящихся — Hacker_Delphi
Re: DELPHI->Поиск файлов
От: ironwit Украина  
Дата: 29.07.04 06:12
Оценка: +1
Здравствуйте, <Аноним>, Вы писали:

А>Имею список расширений файлов(*.PAS;*.DRP;..)
А>? Надо получить список файлов с такими расширениями
А> из заданной директории.
А>(FindFirst,FindNext.. c циклом по каждому расширению не предлагать)
ИМХО
однозначно в юмор. Очень долго смеялся...
... << RSDN@Home 1.1.4 beta 2 >>
Я не умею быть злым, и не хочу быть добрым.
Re: DELPHI->Поиск файлов
От: malexer Украина  
Дата: 29.07.04 08:28
Оценка:
> (FindFirst,FindNext.. c циклом по каждому расширению не предлагать)
Зачем цикл по каждому расширению?
Сделай поиск по *.*, а затем бери те файлы которые тебе нужны...

Точно в хумор надо переслать...
Posted via RSDN NNTP Server 1.9 beta
Re: DELPHI->Поиск файлов
От: Slava Antonov Россия http://deadbeef.narod.ru
Дата: 29.07.04 10:19
Оценка:
Hello , you wrote:

> Имею список расширений файлов(*.PAS;*.DRP;..)
> ? Надо получить список файлов с такими расширениями
> из заданной директории.
> (FindFirst,FindNext.. c циклом по каждому расширению не предлагать)


Не хотите несколько циклов, тогда сделайте один по "*.*" и выбирайне
нужные файлы.

--
Всего хорошего, Слава
http://slava.users.otts.ru
Posted via RSDN NNTP Server 1.9 beta
Re: DELPHI->Поиск файлов
От: s.ts  
Дата: 29.07.04 13:37
Оценка: :))
Hello, !
You wrote on Thu, 29 Jul 2004 05:21:13 GMT:

> Имею список расширений файлов(*.PAS;*.DRP;..)
> ? Надо получить список файлов с такими расширениями
> из заданной директории.
> (FindFirst,FindNext.. c циклом по каждому расширению не предлагать)

ну...
не предлагать, дык не предлагать:
Set fso = CreateObject("Scripting.FileSystemObject")
Set fold=fso.GetFolder("c:\")
Set subfolders = fold.Files
For Each i in subfolders
  WScript.Echo( i.Name )
Next


Posted via RSDN NNTP Server 1.9 beta
Re: DELPHI->Поиск файлов
От: &reY Украина http://www.livejournal.com/~1000turov/
Дата: 09.08.04 16:18
Оценка: :)
Здравствуйте, Аноним, Вы писали:

А>Имею список расширений файлов(*.PAS;*.DRP;..)
А>? Надо получить список файлов с такими расширениями
А> из заданной директории.
А>(FindFirst,FindNext.. c циклом по каждому расширению не предлагать)

тебя спасет готовый компонент
http://www.delphiarea.com/products/findfile/findfile.zip
Re[2]: DELPHI->Поиск файлов
От: Arnx Россия  
Дата: 13.08.04 10:21
Оценка:
Здравствуйте, ironwit, Вы писали:
I>однозначно в юмор. Очень долго смеялся...
Действительно такое только в юмор. Уже лень что-то, причем минимальное, сделать руками... дожили.
Re: DELPHI->Поиск файлов
От: Burd Украина http://proxysearcher.sourceforge.net
Дата: 13.08.04 10:58
Оценка:
Здравствуйте, Аноним, Вы писали:

А>Имею список расширений файлов(*.PAS;*.DRP;..)
А>? Надо получить список файлов с такими расширениями
А> из заданной директории.
А>(FindFirst,FindNext.. c циклом по каждому расширению не предлагать)

А слабо команду dir *.pas в файл перенаправить? И имена будут, и прога — 1 строчка. Как доставать — єто уже другой вопрос. А вы сразу в юмор
Любая задача имеет решение, даже когда решения не существует
Re: DELPHI->Поиск файлов
От: Osi2 Украина  
Дата: 13.08.04 12:04
Оценка:
Здравствуйте, Аноним, Вы писали:

А>Имею список расширений файлов(*.PAS;*.DRP;..)
А>? Надо получить список файлов с такими расширениями
А> из заданной директории.
А>(FindFirst,FindNext.. c циклом по каждому расширению не предлагать)

Да уж....
программирование на Delphi превращает человека обратно в обезьяну.
Re[2]: DELPHI->Поиск файлов
От: Paranoik  
Дата: 13.08.04 12:05
Оценка:
Здравствуйте, Osi2, Вы писали:

O>Да уж....
O>программирование на Delphi превращает человека обратно в обезьяну.

Пааапрашу не обобщать!
Дружба не наследуется и не транзитивна.
©Бьерн Страуструп
Re[3]: DELPHI->Поиск файлов
От: Apapa Россия  
Дата: 13.08.04 12:19
Оценка: 3 (1) :)))
Здравствуйте, Paranoik, Вы писали:

P>Здравствуйте, Osi2, Вы писали:

O>>Да уж....
O>>программирование на Delphi превращает человека обратно в обезьяну.

P>Пааапрашу не обобщать!

Программирование на Delphi превращает человека обратно в обезьяну или в Paranoikа.

Здесь могла бы быть Ваша реклама!
Re[4]: DELPHI->Поиск файлов
От: Paranoik  
Дата: 13.08.04 12:27
Оценка:
Здравствуйте, Apapa, Вы писали:

A>Здравствуйте, Paranoik, Вы писали:

A>Программирование на Delphi превращает человека обратно в обезьяну или в Paranoikа.

Всё, переносим в священные войны: Обезьяна vs Paranoik
Дружба не наследуется и не транзитивна.
©Бьерн Страуструп
Re: DELPHI->Поиск файлов
От: sercher Украина  
Дата: 13.08.04 13:49
Оценка: :)
Здравствуйте, Аноним, Вы писали:

А>Имею список расширений файлов(*.PAS;*.DRP;..)
А>? Надо получить список файлов с такими расширениями
А> из заданной директории.
А>(FindFirst,FindNext.. c циклом по каждому расширению не предлагать)

Можно ещё более тупиковый вопрос задать: мне надо создать окно под винду в приложении на Win32 API, функции вроде CreateWindow(), CreateDialog() ... не предлагать!
Re[3]: DELPHI->Поиск файлов
От: Киркоров  
Дата: 13.08.04 19:59
Оценка:
A>Действительно такое только в юмор. Уже лень что-то, причем минимальное, сделать руками... дожили.

Ну .. что значит дожили — такое уже давно практикуется. Из таких людей работодатели и выростают.
Я люблю разговаривать с профессионалами. Профессионалам здесь есть чего делать. Я не хочу чтобы вы пришли сюда ? Вы не прийдете, но прийдете. Так как не уважаете другие форумы, и я прийду. Всё, взяли и пришли.
Re[2]: DELPHI->Поиск файлов
От: DSD Россия http://911.ru/cv
Дата: 13.08.04 22:44
Оценка: :)
Здравствуйте, Burd, Вы писали:


B>А слабо команду dir *.pas в файл перенаправить? И имена будут, и прога — 1 строчка. Как доставать — єто уже другой вопрос. А вы сразу в юмор

ну зачем же сразу в файл? это не наш метод... пайпы нужно создавать... хотябы для stdout запускаемой комманды... и оттуда читать... а то зачем диск засорять... вдруг там места не осталось, и прога должна удалить всякие ненужные мусорные файлы по маске(*.pas, *.dpr, *.tmp)... ведь в файл на полном диске не перенаправишь...

А собственно чего там... ведь всяко проще написать парсер stdout, чем FindFirst/FindNext, верно?
--
DSD
Re: DELPHI->Поиск файлов
От: Sergey__ Россия  
Дата: 14.08.04 13:32
Оценка:
А>Имею список
А>? Надо получить список файлов
дать задание секретарше — пусть печатает ...
Regards, Sergey...(написано в: RSDN@Home 1.1.4 142)
Sergey
Re[2]: DELPHI->Поиск файлов
От: Sergey__ Россия  
Дата: 14.08.04 13:32
Оценка:
Здравствуйте, Osi2
O>программирование на Delphi превращает человека обратно в обезьяну.
проверил ?
Regards, Sergey...(написано в: RSDN@Home 1.1.4 142)
Sergey
Re: DELPHI->Поиск файлов
От: Jenyay http://jenyay.net
Дата: 14.08.04 14:46
Оценка:
Здравствуйте, <Аноним>, Вы писали:

А>Имею список расширений файлов(*.PAS;*.DRP;..)
А>? Надо получить список файлов с такими расширениями
А> из заданной директории.
А>(FindFirst,FindNext.. c циклом по каждому расширению не предлагать)

Написать на .NET COM-овский компонент.
... << RSDN@Home 1.1.4 beta 2 >>
Софт, исходники и фото
Re: DELPHI->Поиск файлов
От: sercher Украина  
Дата: 14.08.04 15:43
Оценка:
Здравствуйте, Аноним, Вы писали:

А>Имею список расширений файлов(*.PAS;*.DRP;..)
А>? Надо получить список файлов с такими расширениями
А> из заданной директории.
А>(FindFirst,FindNext.. c циклом по каждому расширению не предлагать)


Остаётся только написать драйвер виртуального диска, который будет фильтровать файлы при листании содержимого папки.
Re: DELPHI->Поиск файлов
От: Sergey__ Россия  
Дата: 14.08.04 19:40
Оценка:
тотал comander — вид — фильтр — Ctrl-b
Regards, Sergey...(написано в: RSDN@Home 1.1.4 142)
Sergey
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.