Имя: Пароль:
1C
 
Архивирование данных через bat-файл.
0 User63
 
27.07.04
14:27
Помнится, на форуме была статья по поводу архивирования данных через bat-файл, где имя архивного файла содержит дату создания архива. Так вот, дата у меня формируется вместе с днем недели, символы которого нечитабельны под Windows. У кого-то была такая же ситуация. Кто сталкивался с этой проблемой, не скажете, как разрешить эту ситуацию?
Спасибо.
1 anton-orsk2
 
27.07.04
14:46
А просто убрать день недели слабо. Даты помойму достаточно.
2 User63
 
27.07.04
14:55
(1) А как в bat-файле вырезать первые три символа из %DATE%?
3 Diter
 
27.07.04
15:05
Этот код из работающей обработки :
Процедура Архивирование()
   Состояние("Сжатие данных");
   Если ФС.СуществуетФайл(СокрЛП(КаталогАрхиватора)+"rar.exe")=1 Тогда
       СправочникПолучатели=СоздатьОбъект("Справочник.Адресаты");
       Пол=Получатели.ПолучитьЗначение(Получатели.ТекущаяСтрока());
       СправочникПолучатели.НайтиЭлемент(Пол);
       Получатель=СправочникПолучатели.ТекущийЭлемент();
       Адрес=СокрЛП(Получатель.Адрес);
       ТД=Строка(ТекущаяДата());
       ТД=Сред(ТД,1,2)+Сред(ТД,4,2)+Сред(ТД,7,2);
       Если (Адрес="") и (УдалятьАрхив=1) Тогда
           Предупреждение("Вы пытаетесь удалить архив без отправки"+РазделительСтрок+
           " его по электронной почте! ОДУМАЙТЕСЬ!!!");
           Стр=""""+СокрЛП(КаталогАрхиватора)+"winrar.exe"""+" m -ep "+""""+Каталог+ТД+".rar "+""""+""""+Каталог+"*.dbf"+"""";  
       ИначеЕсли (Адрес="") и (УдалятьАрхив=0) Тогда                                                      
           Стр=""""+СокрЛП(КаталогАрхиватора)+"winrar.exe"""+" m -ep "+""""+Каталог+ТД+".rar "+""""+""""+Каталог+"*.dbf"+"""";  
       ИначеЕсли (Адрес<>"") и (УдалятьАрхив=1) Тогда                                                          
           Стр=""""+СокрЛП(КаталогАрхиватора)+"winrar.exe"""+" m -ep -ieml."+Адрес+" "+""""+Каталог+ТД+".rar "+""""+""""+Каталог+"*.dbf"+"""";
       ИначеЕсли (Адрес<>"") и (УдалятьАрхив=0) Тогда
           Стр=""""+СокрЛП(КаталогАрхиватора)+"winrar.exe"""+" m -ep -ieml"+Адрес+" "+""""+Каталог+ТД+".rar "+""""+""""+Каталог+"*.dbf"+"""";
       КонецЕсли;
       ЗапуститьПриложение(Стр);
       ЛогФайл.ДобавитьСтроку(Строка(ТекущаяДата())+" "+Строка(ТекущееВремя())+" Архивирование данных");
   Иначе    
       Предупреждение("В указанном каталоге не обнаружен архиватор WinRAR."+РазделительСтрок+
       "Проверьте правильность пути и повторите попытку выгрузки");    
       СтатусВозврата(0);
       Возврат;
   КонецЕсли;    
КонецПроцедуры
Кроме этого у архиватора есть ключик, который в качестве имени файла ставит "ДДММГГ.rar"
4 Diter
 
27.07.04
15:08
Строку "Стр" пишешь в файл *.bat из 1С и потом его запускаешь. (если речь идёт конечно о работе из 1С, иначе бы стоял ОФФ)
5 lexa
 
27.07.04
15:13
echo off
xcopy /y /e D:\1c\ATC D:\backup\1c\ATC\
xcopy /y /e D:\1c\ATCDemo D:\backup\1c\ATCDemo\
del /q D:\backup\1c\ATC\*.cdx D:\backup\1c\ATC\*.zip
del /q D:\backup\1c\ATCDemo\*.cdx D:\backup\1c\ATCDemo\*.zip
start winrar.exe m -agDD_MM_YY -sfx -r D:\backup\1c\1c D:\backup\1c\*.*
создает файл 1с26_07_04.exe
6 fez
 
27.07.04
15:13
(0) rar умеет сам создавать архивы с нужным тебе именем.
7 User63
 
27.07.04
15:19
Всем спасибо! Понял.
8 Gary
 
27.07.04
16:27
Народ, че маетесь ? А.Кочуров давно уж все придумал :-) v7backup и архив сделает и обработку запустит и тупых юзеров от базы откинет !