Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> прочитать имя обработать файл и по кругу, цикл продолжать пока папка не пуста 
:(
    Опции темы
molchaliviy
Дата 25.6.2009, 08:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 22.2.2006
Где: ХМАО-Югра

Репутация: нет
Всего: 2
Доброго дня!
Есть задача - пытаюсь ее решить 
консольное приложение которое обрабатывает файлы в директории
в имени файла есть инфа требуемая для обработки файла (первые 4 символа имени)
после чтения имени происходит обработка файла его архивирование и удаление исходного файла 
цикл обработки продолжается пока в папке есть фаайлы 
файлов в директории может быть от 0 до 100 т.е. если 0 то проиложение завершает работу досрочно

Вопрос
как считывать имена файлов по одному до техпор пока директория не станет пуста 
как создать задание по расписанию после завершения работы программы
PM MAIL WWW ICQ   Вверх
Frees
Дата 25.6.2009, 09:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
Код

Var SearchRec:TSearchRec;


If FindFirst('c:\Windows\*.*', faAnyFile, SearchRec)=0 then
repeat
{Вот здесь мы можем делать с найденным файлом что угодно
SearchRec.name - имя файла
ExpandFileName(SearchRec.name) - имя файла с полным путем} 
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);



DRKB©


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
rodnover
Дата 25.6.2009, 09:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 7.4.2009

Репутация: нет
Всего: 10
http://forum.vingrad.ru/index.php?showtopic=109636

Эт не то что нужно для создания задачи?
PM MAIL   Вверх
molchaliviy
Дата 25.6.2009, 09:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 22.2.2006
Где: ХМАО-Югра

Репутация: нет
Всего: 2
Frees, 
Сенкс - помогло
а вот как прочитать имя файла без полного пути к нему 
 
PM MAIL WWW ICQ   Вверх
Frees
Дата 25.6.2009, 09:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
Цитата(Frees @  25.6.2009,  12:10 Найти цитируемый пост)
SearchRec.name - имя файла

и еще есть ExtractFileName


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
molchaliviy
Дата 25.6.2009, 09:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 22.2.2006
Где: ХМАО-Югра

Репутация: нет
Всего: 2
да и вот еще вопрос .....
как отсеч в TimeToStr(now) секунды и сменить двоеточие на точку
PM MAIL WWW ICQ   Вверх
Frees
Дата 25.6.2009, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
Код

Showmessage(ExtractFileName('c:\test\file.txt'));


Добавлено @ 09:52
Цитата(molchaliviy @  25.6.2009,  12:45 Найти цитируемый пост)
да и вот еще вопрос .....как отсеч в TimeToStr(now) секунды и сменить двоеточие на точку

Код

var s: string;
begin
  DateTimeToString(s,'dd.mmmm.yyyy hh.mm',now);
  ShowMessage(s);
end;


Это сообщение отредактировал(а) Frees - 25.6.2009, 09:52


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0672 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.