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

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 –

См. также

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

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

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

16500 руб.

02.09.2020    263928    1472    421    

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

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

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

24900 руб.

20.08.2024    72448    369    170    

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

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

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

22570 руб.

06.10.2023    39214    110    46    

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

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

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

15250 руб.

25.08.2025    59442    122    36    

132
Analyzer 1C — единый граф типовой и расширений плюс инструмент обновления поставки

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

Analyzer 1C сводит выгрузку 1С — основную конфигурацию и все расширения — в единый граф знаний. Любой запрос по связям за доли секунды, с пометками «Доб.» / «Заимств.» / «Переопределено». Новое в 2.0 — обновление поставки: сравнение и объединение версий деревом «как в Конфигураторе» с выгрузкой плана решений; поиск конфликтов из-за перехватов расширений и висячих ссылок; загрузка из бинарных .cf/.cfe; циклические зависимости. Плюс анализ влияния, запросы BSL, роли и RLS, граф вызовов. Минута на развёртывание через Docker без необходимости подключения к Интернет. Любая 1С:Предприятие 8.3+.

14000 руб.

17.04.2026    7157    31    42    

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

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

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

6000 руб.

25.02.2026    4275    14    1    

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

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

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

17000 руб.

10.11.2023    25950    97    46    

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

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

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

9500 руб.

17.05.2024    53999    186    63    

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