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

02.12.09

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

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

Файлы

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

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

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

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

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

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

Задача была поставлена так: сохранять 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    70088    365    170    

316
Infostart Toolkit Air: Инструменты разработки в 1С:8.3 и 8.5

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

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

16500 руб.

02.09.2020    261089    1351    421    

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

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

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

22570 руб.

06.10.2023    38725    107    46    

122
Infostart MCP: готовые MCP серверы для вайбкодинга в 1С

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

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

15250 руб.

25.08.2025    57166    114    32    

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

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

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

6000 руб.

25.02.2026    4038    13    1    

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

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

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

17000 руб.

10.11.2023    25625    93    46    

102
Analyzer 1C — веб-инструмент для анализа зависимостей конфигураций 1С

Инструментарий разработчика Разработка Администрирование веб-серверов Системный администратор Программист Бизнес-аналитик Руководитель проекта 1С 8.3 Платные (руб)

В крупных внедрениях 1С типовая почти всегда дополнена расширениями, а конфигуратор показывает их раздельно. «Поиск ссылок на объект» в ERP — минуты ожидания, и даже после него неясно: типовое поведение, дополнение из расширения или переопределённый обработчик. Analyzer 1C — веб-инструмент, который парсит выгрузку (основную плюс все расширения) и собирает единый граф знаний в ArangoDB. Любой межсущностный запрос — за доли секунды. Внутри: — Сквозные пометки «Доб.» / «Заимств.» / переопределения во всём UI — Импакт-анализ через подписки, регламентные задания и переопределения — Анализ запросов BSL: кто читает и пишет объект — модули, формы, СКД — Роли: матрица «роль × объект × право», RLS, программные РольДоступна, PRIV — Конструктор профилей, граф функций, обработчики обновления, XDTO, функциональные опции — Мгновенный поиск по конфигурации Разворачивается за минуту через Docker, без интернета. Любая 1С:Предприятие 8.3+.

12200 руб.

17.04.2026    6655    28    34    

43
Отладчик кода 1С в режиме «Предприятия»: OneDebugger

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

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

9500 руб.

17.05.2024    53416    185    63    

217
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
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 2385 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 число валялось. :-)
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация