| View previous topic :: View next topic |
| Author |
Message |
ask-rus
Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation
|
 (Separately) Posted: Tue Mar 19, 2013 12:04 Post subject: Упаковка TC с присвоением текущей даты в имени |
 |
|
Необходим скрипт, выполняющий последовательность действий:
/На каталоге с TC под курсором/
1. Вызов диалога Упаковка файлов (Alt+F5);
/Собственно, открывается диалог, где выделенным является:
| Quote: | | zip:C:\TotalCmd8.zip |
с чем и нужно провести некоторые действия/
2. Добавить к имени текущую дату. Должно получиться так:
| Quote: | | zip:C:\TotalCmd8(19.03.2013).zip |
Вот и всё. Подтверждение уже на мне.
P.s. Необходимость большая, архивов с именами от балды уже достаточно.
P.s. Упаковывать приходится часто, нередко возращаю затёртые иконки, т.к. новые не прижились.
P.s. Упаковываю через стандартный диалог, чтобы файлы, вошедшие в список исключений, не попали в архив.
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
| Back to top |
|
 |
jentoso
Joined: 20 Dec 2007
Posts: 358
|
| (Separately) Posted: Tue Mar 19, 2013 12:43 Post subject: |
|
|
ask-rus, а почему именно скрипт, ведь есть тема ARC-RAR.
_________________
TC 11.03 combo, Windows 10 x64 |
|
| Back to top |
|
|
Avada
Joined: 01 Aug 2008
Posts: 10286
Location: Россия, Саратов
|
| (Separately) Posted: Tue Mar 19, 2013 12:54 Post subject: |
|
|
jentoso
Вообще-то запрос на ZIP-архивацию (надо полагать, встроенную), а в указанной теме рассматривается создание RAR-архивов (причём, естественно, внешним архиватором).
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
jentoso
Joined: 20 Dec 2007
Posts: 358
|
| (Separately) Posted: Tue Mar 19, 2013 12:58 Post subject: |
|
|
Avada, я это видел. Просто предложил другой вариант решения, тем более WinRAR умеет упаковывать в ZIP. А подойдет он ему или нет, уже решит и озвучит
_________________
TC 11.03 combo, Windows 10 x64 |
|
| Back to top |
|
|
Avada
Joined: 01 Aug 2008
Posts: 10286
Location: Россия, Саратов
|
| (Separately) Posted: Tue Mar 19, 2013 13:06 Post subject: |
|
|
jentoso
А я ещё вот это видел.
| ask-rus wrote: | | Упаковываю через стандартный диалог, чтобы файлы, вошедшие в список исключений, не попали в архив. |
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Mar 19, 2013 13:11 Post subject: |
|
|
| ask-rus wrote: | | Подтверждение уже на мне. |
Это обязательно? Есть же скрипты со счётчиком. Чем не годятся?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
jentoso
Joined: 20 Dec 2007
Posts: 358
|
| (Separately) Posted: Tue Mar 19, 2013 13:14 Post subject: |
|
|
Avada, так WinRAR можно указать -x@tcignore.txt
ask-rus, здесь можно посмотреть такие скрипты
_________________
TC 11.03 combo, Windows 10 x64 |
|
| Back to top |
|
|
Avada
Joined: 01 Aug 2008
Posts: 10286
Location: Россия, Саратов
|
| (Separately) Posted: Tue Mar 19, 2013 13:26 Post subject: |
|
|
jentoso
В списке исключений TC объекты могут быть как с путями, так и без. Так вот с указанным параметром при RAR-упаковке исключаются только объекты с путями, а объекты без путей прекрасным образом попадают в архив.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
ask-rus
Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation
|
| (Separately) Posted: Tue Mar 19, 2013 13:31 Post subject: |
|
|
| Flasher wrote: | | Это обязательно? |
Ага. Мелькание окна портит впечатление.
| Flasher wrote: | | Есть же скрипты со счётчиком. Чем не годятся? |
Список исключений TC должен быть учтён.
jentoso
Я упаковываю в *.ZIP, но ведь здесь не суть, просто нужно к имени добавить дату.
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
| Back to top |
|
|
sa
Joined: 29 Apr 2009
Posts: 2608
|
| (Separately) Posted: Tue Mar 19, 2013 14:42 Post subject: |
|
|
| Code: | '=============================================================================
' Описание: Упаковка с добавлением текущей даты и времени к имени файла архива
' Параметры: %L%Z
'=============================================================================
If WScript.Arguments.Count > 0 Then WScript.CreateObject("WScript.Shell").SendKeys "%{F5}{F5}{RIGHT}" _
& "{(}" & Right("0" & Day(date), 2) & "_" & Right("0" & Month(date), 2) & "_" & Year(date) _
& "_" & Right("0" & Hour(NOW), 2) & "-" & Right("0" & Minute(NOW), 2) & "-" & Right("0" & Second(NOW), 2) _
& "{)}{HOME}+{END}" _
'& "{ENTER}"
|
Add
Из-за проблемы с нажатием вместо точки буквы ю при русской раскладке, заменил точку на символ подчёркивания (дабы не заморачиваться со сменой регистра).
Last edited by sa on Wed Mar 20, 2013 17:43; edited 4 times in total |
|
| Back to top |
|
|
Avada
Joined: 01 Aug 2008
Posts: 10286
Location: Россия, Саратов
|
| (Separately) Posted: Tue Mar 19, 2013 14:47 Post subject: |
|
|
sa
Тут выше было про мелькание окна, которое портит впечатление. 
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
ask-rus
Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation
|
| (Separately) Posted: Tue Mar 19, 2013 14:50 Post subject: |
|
|
sa
А не 4 {LEFT}-а должно быть?
| Avada wrote: | | Тут выше было про мелькание окна, которое портит впечатление. |
Ага.
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
| Back to top |
|
|
sa
Joined: 29 Apr 2009
Posts: 2608
|
| (Separately) Posted: Tue Mar 19, 2013 14:58 Post subject: |
|
|
| Avada wrote: | | Тут выше было про мелькание окна, которое портит впечатление. |
А если последнюю строку (с ENTER) заремить? |
|
| Back to top |
|
|
ask-rus
Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation
|
| (Separately) Posted: Tue Mar 19, 2013 15:03 Post subject: |
|
|
| sa wrote: | | А если последнюю строку (с ENTER) заремить? |
Впечатление не испортится. 
| Quote: | ---------------------------
Ошибка создания ZIP-архива.
---------------------------
Не удаётся записать новый ZIP-архив! Возможно, нет места на диске.
---------------------------
ОК
---------------------------
|
T:\1\ на X:\
| Quote: | | zip:X(19.03.2013_17-08-36):\1.ZIP |
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
| Back to top |
|
|
sa
Joined: 29 Apr 2009
Posts: 2608
|
| (Separately) Posted: Tue Mar 19, 2013 15:19 Post subject: |
|
|
| ask-rus wrote: | | А не 4 {LEFT}-а должно быть? |
Нет. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
