Программа для удаления старых архивов

02.12.09

Разработка - Инструментарий разработчика

+3 –
За полдня (по заданию на работе) набросал программку, удаляющую устаревшие архивы-выгрузки. Но ей, в принципе, можно обрабатывать списки любых файлов. Буду рад, если кому пригодится. Готов вносить изменения по просьбам использующих.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
Исполняемый файл программы dofiles
.exe 32,28Kb
30 2 500 руб. Купить
Исходный текст программы на freepascal
.pas 2,55Kb
3 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Задача была поставлена так: сохранять N самых свежих архивов плюс 10 самых последних за 1 число месяца.

Работает из командной строки:

dofiles.exe /f<маска_файлов> /d /n<количество_файлов>

ключи:

/f - позволяет указать маску для обрабатываемых файлов

      пример: /f*.zip (все zip файлы в текущем каталоге)

      по умолчанию: /f*.*

/d - удалять или не удалять файлы (полезно для отладки)

      пример: /dY (удалять файлы)

      по умолчанию: /dN

/n - количество сохраняемых файлов

      пример: /n20 (сохранять последние 20 самых свежих файлов)

      по умолчанию: /n10

Вступайте в нашу телеграмм-группу Инфостарт

+3 –

См. также

Database Compression Tool: Инструмент для свертки и сжатия баз данных 1С

Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Системный администратор Программист Руководитель проекта 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP, УНФ, КА и т.д.). Поддерживаются серверные и файловые базы, управляемые и обычные формы. Может выполнять свертку одновременно в несколько потоков. А так же автоматически, без непосредственного участия пользователя. Решение в Реестре отечественного ПО

24900 руб.

20.08.2024    65156    345    169    

302
Infostart Toolkit: Инструменты для разработчика 1С:8.3

Инструментарий разработчика Роли и права Запросы СКД Программист Руководитель проекта 1С:Предприятие 8 Платные (руб)

Инструменты для разработчиков 1С 8.3: Infostart Toolkit. Автоматизация и ускорение разработки на управляемых формах. Легкость работы с 1С.

16500 руб.

02.09.2020    254570    1402    421    

1153
Infostart PrintWizard (конструктор печатных форм)

Пакетная печать Печатные формы Инструментарий разработчика Программист 1С:Предприятие 8 Платные (руб)

Расширение для создания и редактирования печатных форм в системе 1С:Предприятие 8.3. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и прозрачность разработки, а также навести порядок в многообразии корпоративных печатных форм.

22570 руб.

06.10.2023    37164    97    40    

117
Вайбкодинг в 1С = Infostart MCP серверы

Инструментарий разработчика Нейросети Платные (руб)

Первые попытки разработки на 1С с использованием больших языковых моделей (LLM) могут разочаровать. LLMки сильно галлюцинируют, потому что не знают устройства конфигураций 1С, не знают нюансов синтаксиса. Но если дать им подсказки с помощью MCP, то результат получается кардинально лучше. Далее в публикации: MCP для поиска по метаданым 1С, справке синтакс-помошника и проверки синтаксиса.

15250 руб.

25.08.2025    50621    98    29    

114
Infostart DataFormWizard: Управление вводом данных в 1С 8.3

Инструменты администратора БД Инструментарий разработчика Роли и права Программист 1С:Предприятие 8 1C:Бухгалтерия Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

17000 руб.

10.11.2023    24672    93    42    

101
OneDebugger - инструмент для отладки кода в 1С без использования конфигуратора

Инструментарий разработчика Программист 1С:Предприятие 8 Платные (руб)

Инструмент для написания и отладки кода в режиме «1С:Предприятие». Представляет собой консоль кода с возможностью пошаговой отладки, просмотра значений переменных любых типов, использования процедур и функций, просмотра стека вызовов, вычисления произвольных выражений на встроенном языке в контексте точки останова, синтаксического контроля и остановки по ошибке. В консоли используется удобный редактор кода с подсветкой, контекстной подсказкой, возможностью вызова конструкторов запроса и форматной строки. 1.3.11 Доработан механизм контекстной подсказки по метаданным

9500 руб.

17.05.2024    51863    181    63    

213
Infostart MagicInput – улучшенный поиск по строке в 1С

Мастера заполнения Поиск данных Инструментарий разработчика Подбор и обработка объектов 1С 8.3 1С 8.5 Платные (руб)

Infostart MagicInput улучшает подбор в полях ввода 1С: ищет по любой части названия и по нескольким ключевым фрагментам, распознаёт ввод в другой раскладке и показывает иконки/статусы объектов прямо в списке. Поддерживает вставку навигационной ссылки/представления документа для автоподбора; для разработчиков доступны поиск по GUID и полному имени предопределённого. Работает в управляемых формах и подключается в большинстве конфигураций 1С 8.3/8.5.

5000 руб.

25.02.2026    2969    11    1    

14

SALE! %

PowerTools: Инструменты администратора 1С 8.3/8.5

Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Бизнес-аналитик 1С:Предприятие 8 1С 8.3 1С 8.5 1C:ERP 1С:УТ 1С:ДО 1С:Бухгалтерия 3.0 1С:ERP. Управление холдингом 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 11 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

6000 4780 руб.

14.01.2013    211119    1229    0    

965
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. vcv 89 26.11.09 15:09 Сейчас в теме
Полдня жизни потрачены зря. Вот этот кусок скрипта у меня чистит журналы автообмена 1С.

for /F "skip=100 tokens=*" %%i in ('dir /o-D /B "%BASE%\SYSLOG\AutoExchange.*.mlg"') do (
echo %DATE% %TIME% REMOVE old journal %%i |%LOG%
@del /Q /F "%BASE%\SYSLOG\%%i"
)

Переменные:
BASE - путь к базе данных 1С
LOG - имя log-файла
skip=100 - задает сколько логов сохраняем.
lamp; +1 – Ответить
2. lamp 29 26.11.09 15:33 Сейчас в теме
Прошу прощения, забыл один момент в поставленном задании (добавил его сейчас в описание). Кроме N самых свежих архивов нужно сохранять 10 самых свежих архивов за 1 число месяца.

Сможете это реализовать скриптом?
+ – Ответить
3. GSoft 2384 26.11.09 15:38 Сейчас в теме
(2) в принципе эту задачу тоже можно решить скриптами

(1) все когда то начинают с нуля, я на днях выложил свою первую базу (Год 2002: моя первая база ) на 1С, сейчас бы я за то время которое потратил на нее - сделал бы гораздо более функционально.
+ – Ответить
7. vcv 89 26.11.09 20:45 Сейчас в теме
(2) Прошу прощения, забыл один момент в поставленном задании (добавил его сейчас в описание). Кроме N самых свежих архивов нужно сохранять 10 самых свежих архивов за 1 число месяца.
Сможете это реализовать скриптом?

Совершенно не проблема. Единственное, из того, что желательно в вашей задаче, что не удается без внешних утилит реализовать на штатном batch - это независимость от формата даты (это касательно проверки на первое число). Все остальное, что вы хотите, легко и непринужденно умещается в десяток строк скрипта. А формат даты просто ставим нужный DD/MM/YYYY.
+ – Ответить
4. Altair777 649 26.11.09 15:57 Сейчас в теме
Что-то я не понял. А где программа?
+ – Ответить
5. lamp 29 26.11.09 16:04 Сейчас в теме
Прошу прощения, разместил.
+ – Ответить
6. Altair777 649 26.11.09 16:06 Сейчас в теме
(5) Отменил минус
+ – Ответить
8. lamp 29 27.11.09 10:38 Сейчас в теме
...не удается без внешних утилит реализовать на штатном batch - это независимость от формата даты (это касательно проверки на первое число)

Да, именно так. Потому что программа обрабатывает разные списки архивов, где формат имени разный (где ДД.ММ.ГГГГ, где ГГГГММДД, где ГГГГ-ММ-ДД) и изменить формат имен архивов невозможно.
К тому же на Pascal я программирую с 88 года, а вот скриптовый Win язык знаю пока что слабо.
+ – Ответить
9. vcv 89 27.11.09 12:50 Сейчас в теме
(8) Не зачем обрабатывать имя, когда есть дата создания файла. Или изменения.
К тому же на Pascal я программирую с 88 года

Реализовывать на известном языке, это, конечно, огромный плюс, но есть достаточно специфичные задачи, которые во много раз проще решаются на каком-нибудь специализированном языке. Если, например, стоит задача анализа текстовых логов, решение с помощью perl/php/sed/awk... будет гораздо компактней, проще, легче в поддержке...
а вот скриптовый Win язык знаю пока что слабо.

Опоздал ты изучать batch. Для администрирования винды учить надо VisualBasic или Java для писания скриптов для WindowsScript. Или готовиться к будущему изучая PowerShell.
+ – Ответить
10. vcv 89 27.11.09 12:54 Сейчас в теме
(8) Скриптовый язык операционки хорош тем, что позволяет использовать различные утилиты. Как штатные, так и сторонние. Что бы не писать много и не изобретать велосипед.
Вот, набросал на скорую руку, как бы я решил твою задачу встроенными средствами плюс набор консольных утилит, портированных их юниксов. 
@echo off
REM *** Делаем список бэкапов отсортированный по дате изменения (/TW) 
REM *** по маске *.zip
set FLIST="%~dpn0.lst"
dir /A-D-S /TW /OD *.zip | findstr /R /C:"^..\/..\/.... " >%FLIST%

REM *** Делаем список неудаляемых бэкапов из 5 самых свежих (-n5)
REM *** и по 2 шт самых последних в каждое 1-е число месяца (-n2)
set NoDEL="%~dpn0.excl"
tail -n5 %FLIST% >%NoDEL%
for /F "tokens=*" %%i in ('cut -b4-10 %FLIST% ^| sort ^| uniq') do (
	findstr /B /C:"11/%%i" %FLIST% | tail -n2 >>%NoDEL%
)

REM *** Делаем список файлов к удалению
set DEL="%~dpn0.del"
del %DEL% 2>nul
for /F "tokens=*" %%i in ('type %FLIST%') do (
	findstr /B /C:"%%i" %NoDEL% >nul || echo %%i>>%DEL%
)

REM *** Удаляем все лишнее
for /F "tokens=*" %%i in ('cut -b37- %DEL%') do (
	echo DEL /Q %%i
)
del %FLIST%
del %NoDEL%
del %DEL%
Показать
+ – Ответить
11. vcv 89 27.11.09 12:58 Сейчас в теме
+(10) Чуть не забыл, скрипт расчитан на формат даты, выдаваемой командой DIR в виде DD/MM/YYYY.
В строке
findstr /B /C:"11/%%i" %FLIST% | tail -n2 >>%NoDEL%
нужно 11 заменить на 01. Это у меня больше тестовых файлов на 11 число валялось. :-)
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация