Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 3 808

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!
Просмотрел ваши статьи по дельфи. Но не смог найти подходящей возможности копирования файлов. Имеется огромное колличество файлов, которые надо рассортировать по папкам. все файлы примерно выглядят ibb_*_*_*.tiff. Так вот хотелось бы узнать как можно сделать так чтобы програма по первым 6-7 символам имени файла создавала папку, и скидывала в неё все файлы начинающиеся на эти 6-7 символов.

AlCannaBIS Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: AlCannaBIS (статус: Посетитель)
Вопрос отправлен: 24 февраля 2010, 11:12
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, AlCannaBIS!
Для создания каталога есть много функций, например эта http://www.delphibasics.co.uk/RTL.asp?Name=MkDir . но наверно самая хорошая - это ForceDirectories
Первая функция может создать только один каталог, а вот вторая - целую цепочку вложенных каталогов.
Теперь остался второй вопрос - как сформировать имя каталога. не совсем понятно, как определить, 6 или 7 символов нужно, но предложу пару вариантов.
пусть s:string - это имя файла. d:string - результат
взять первые 3 символа имени
d := copy(s, 1, 3)
взять с 3 по пятый символ
d := copy(s, 3, 3) // вторая 3 - это кол во символов
взять символы до первого подчеркивания
d := copy(s, 1, pos('_', s) - 1);
взять все символы от 3 до конца.
d := copy(s, 3, maxint);

если этого не хватит, пишите:)

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 24 февраля 2010, 11:31


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 24 февраля 2010, 11:25; участников в обсуждении: 1.
min@y™

min@y™ (статус: Доктор наук), 24 февраля 2010, 11:25 [#1]:

Всё упирается в работу со строками. Могу написать такую программу за час-полтора.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

24 февраля 2010, 13:02: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с файловой системой модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 12:00
Выполнено за 0.03 сек.