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

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 –

См. также

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

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

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

16500 руб.

02.09.2020    245117    1344    419    

1124

SALE! %

PowerTools

Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Бизнес-аналитик 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    209146    1218    0    

959
Многопоточность в 1С. Универсальный "Менеджер потоков"

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

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

6100 руб.

07.02.2018    111015    251    104    

316
Обработка для 1С: выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

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

В процессе работы в 1С часто возникает потребность получить данные из другой базы. Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение для 1С, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

5084 руб.

24.09.2019    27635    23    16    

41
Менеджер конфигураций 1С

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

Менеджер конфигураций 1С — альтернативный стартер информационных баз 1С:Предприятие.

6100 руб.

21.02.2023    11502    8    38    

24
Программное формирование существующих печатных форм

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

Получение списка печатных форм, формирование выбранной печатной формы и сохранение ее в файл.

1 стартмани

17.12.2021    24590    75    RocKeR_13    10    

59
Бустер Конвертации данных 3 (Infostart Toolkit)

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

Расширение для конфигурации “Конвертация данных 3”. Добавляет подсветку синтаксиса, детальную контекстную подсказку, глобальный поиск по коду.

20000 руб.

07.10.2021    22636    8    34    

44
Универсальный редактор данных (УРД)

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

Универсальный редактор данных (УРД) - это лучший инструмент в своем классе, который позволяет редактировать реквизиты и движения объектов

1 стартмани

27.08.2021    23320    352    Adeptus    59    

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