Удалить лишние файлы

@Samrisbe · Регистрация: 28.01.2011

Студворк — интернет-сервис помощи студентам

В папке содержаться файлы вот с таким расширением:

@Samrisbe · 30.01.2014, 11:55 **[ТС]**

Сообщение от SatanaXIII

Проверил код UI на XE3. Все работает прекрасно

если не трудно скинь ЕХЕ, буду признателен.

@BRcr · 30.01.2014, 13:23

Сообщение от Samrisbe

чтото не работает

Да все прекрасно работает в таком виде:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    TSearchRec search_res;
    String path( "C:\\Users\\BRcr\\Desktop" );
 
    SelectDirectory( path, TSelectDirOpts( ), 0 );
 
    String filter( InputBox( "Фильтр имени", "Введите фильтр имени файла для удаления", "(2014)" ) );
 
    if ( FindFirst( path + "\\*.*", faAnyFile, search_res ) == 0 )
    {
        do
        {
            if ( ! search_res.Name.Pos( filter ) )
            {
                DeleteFile( path + "\\" + search_res.Name );
            }
        }
        while ( FindNext( search_res ) == 0 );
 
        FindClose( search_res );
    }

Есть вариант, что ты неправильно пользуешь диалог SelectDirectory - там надо двойным щелчком в дереве выбирать конечную папку, а не просто выделением.

Добавлено через 7 минут
А, да - еще плюс фильтр по расширению:

C++
1
if ( ( ! search_res.Name.Pos( filter ) ) && ( ExtractFileExt( search_res.Name ) != ".xls" ) )

Байт · 30.01.2014, 15:14

Samrisbe, Я бы на всякий случай составил сначала список удаляемых файлов, а потом бы уже их удалил. Нет уверенности, что FindNext не промахнется после удаления. Вот findnext, кажется , промахивается и удаляет файлы через один...

@SatanaXIII · 31.01.2014, 09:28

Сообщение от Samrisbe

если не трудно скинь ЕХЕ

Извиняюсь за задержку.

Там exe и архив с тестовыми файлами.
2014xls.rar

@Samrisbe · 02.02.2014, 16:01 **[ТС]**

Сообщение от BRcr

Да все прекрасно работает

Так и есть все прекрасно работает!
BRcr СПАСИБО !

@D1973 · 03.02.2014, 08:27

Сообщение от Kulgar

Переместите во временную папку все целевые файлы (F6, F2). Снемите фильтр и удалите всё оставшееся. Ну и вернуть целевые файлы обратно. Дело не более минуты.

А зачем лишнее действие? После наложения фильтра указанные файлы окажутся выделенными. Нажимаем "*" (Звездочка) на цифровой клавиатуре - этим самым инвертируем выделение, т.е. выделены все кроме нужных. А теперь - удаляем

@Kulgar · 03.02.2014, 09:52

Сообщение от D1973

После наложения фильтра указанные файлы окажутся выделенными.

Каким образом накладывается фильтр в командере просто выделяя? На Ctrl+F12 всё что не удовлетворяет фильтру не отображается вовсе.
На счёт звёздочки и инвертирования согласен.

@D1973 · 03.02.2014, 10:01

Сообщение от Kulgar

Каким образом накладывается фильтр в командере просто выделяя?

Плюс на цифровой клавиатуре... А вообще-то мы что-то от темы уехали далеко-далеко

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Samrisbe 1365 / 732 / 67 Регистрация: 28.01.2011 Сообщений: 2,069

	Удалить лишние файлы 28.01.2014, 21:11. Показов 3565. Ответов 27 Метки нет (Все метки) В папке содержаться файлы вот с таким расширением: Миниатюры 0

Байт Диссидент 27714 / 17332 / 3810 Регистрация: 24.12.2010 Сообщений: 38,978
	30.01.2014, 15:14
	Samrisbe, Я бы на всякий случай составил сначала список удаляемых файлов, а потом бы уже их удалил. Нет уверенности, что FindNext не промахнется после удаления. Вот findnext, кажется , промахивается и удаляет файлы через один... 1

Удалить лишние файлы

Решение