Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Автоматическое создание папок
Goto page Previous  1, 2, 3 ... 11, 12, 13, 14, 15  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Cobblestone-TLT



Joined: 01 Feb 2014
Posts: 34

Post (Separately) Posted: Sun Feb 09, 2014 13:19    Post subject: Reply with quote

Flasher wrote:
Папка открывается в любом случае в текущей панели, а именно в той панели, куда распаковывается. Исключение, когда с двух сторон был открыт один и тот же каталог. Исправить можно с пом. TCFS2.

Странно, у меня папка открывается в соседней панели (даже если с двух сторон открыты разные каталоги). Т.е. после операции имею в активной панели исходную папку, в соседней - папку назначения (автоматически созданную).
Flasher wrote:
Нет. Потому что Тоталу нужно находиться в той панели из которой берутся элементы.

Печально. Ну тогда на практике станет ясно что удобнее, автоматически создавать папку, но потом клацать по каждому совпадающему файлу, или как раньше, самому создавать папку, потом самому же её искать и перемещать внутренней командой Тотала, используя все её преимущества.

Спасибо!

Posted after 4 minutes:

Flasher wrote:
P.S. Я сегодня отлучаюсь до вечера, можно попросить MVV, sa - они при желании сделают кнопку.


Скрипт же есть! Если под "сделать кнопку" понимается перетащить его на панель и прописать параметы, так это я уже сделал (как-то ведь я протестировал все это дело). Если появилась какая-то идея, как изменить функционал скрипта или еще что-то - то я не тороплюсь, до вечера мне это не горит Smile
Back to top
View user's profile Send private message
Cobblestone-TLT



Joined: 01 Feb 2014
Posts: 34

Post (Separately) Posted: Sun Feb 09, 2014 21:55    Post subject: Reply with quote

p.s.

Опытным путем обнаружил, что чтобы папка открывалась в текущей панели, не трогая при этом вкладки соседней, строку кода:
Flasher wrote:
Code:
If Path = .CurrentDirectory & "\" Then P = "L" Else P = "R"


нужно изменить таким образом:

Code:
If Path = .CurrentDirectory & "\" Then P = "R" Else P = "L"
[/quote]

Исправьте пожалуйста в своем сообщении Smile
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11870
Location: Москва

Post (Separately) Posted: Mon Feb 10, 2014 00:10    Post subject: Reply with quote

Cobblestone-TLT
Как же? R - это получатель, L - это источник. При совпадении активного каталога и каталога получателя открываем нужное, оставаясь на месте, в ином случае открываем нужно в другой панели и переходим в неё. У меня всё верно.

Cobblestone-TLT wrote:
Если под "сделать кнопку" понимается перетащить его на панель и прописать параметы
Нет, кнопка - это кнопка с функционалом cmd/nircmd + TCFS2 без прибегания к сценариям.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Cobblestone-TLT



Joined: 01 Feb 2014
Posts: 34

Post (Separately) Posted: Mon Feb 10, 2014 07:22    Post subject: Reply with quote

Flasher wrote:
Как же? R - это получатель, L - это источник.

Прямо мистика какая-то, но у меня необходима такая вот "инверсия" этих значений, чтобы все происходило в рамках только активной панели.. Confused

Flasher wrote:
Нет, кнопка - это кнопка с функционалом cmd/nircmd + TCFS2 без прибегания к сценариям.


Интересно было бы попробовать такой вариант Smile
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2126

Post (Separately) Posted: Mon Feb 10, 2014 14:35    Post subject: Reply with quote

Cobblestone-TLT wrote:
Интересно было бы попробовать такой вариант

Не такой, но с TCFS2:
Code:
'===============================================
' Описание: Переместить в папку с текущей датой
' Параметры: %L
' Требования: Необходима утилита TCFS2
'===============================================
Dim TCFS2, S
'===============================================
TCFS2 = "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"
'===============================================
If WScript.Arguments.Count > 0 Then
  S = "tcm(1005,1) delay(200) send(`~(" & Right(Year(Date),4) & "." & Right("0" & Month(date), 2)_
  & "." & Right("0" & Day(date), 2) & "\{TAB}{Enter})`, findwnd(`TInpComboDlg`))"
  S = " /ef """ & S & """"
  CreateObject("WScript.Shell").Exec TCFS2 & S
End If
Wscript.Quit
Back to top
View user's profile Send private message
Cobblestone-TLT



Joined: 01 Feb 2014
Posts: 34

Post (Separately) Posted: Mon Feb 10, 2014 15:28    Post subject: Reply with quote

sa wrote:
Не такой, но с TCFS2:

Отлично, теперь перемещение идет внутренними средствами Тотала! А с авто-входом в папку вопрос решаем? Smile
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2126

Post (Separately) Posted: Mon Feb 10, 2014 16:12    Post subject: Reply with quote

Cobblestone-TLT wrote:
А с авто-входом в папку вопрос решаем?

Наверное - да, попробуй! Пугают проблемы с возможностью открытия кучи дополнительных окон в диалоге перезаписи и необходимостью ожидания их закрытия до входа в папку.
А можешь просто сделать отдельную кнопку для входа в папку с текущей датой. Строка для скрипта наподобие такой:
Code:
S = "tcm(4003,1) send( `~(cd " & Right(Year(Date),4) & "." & Right("0" & Month(date), 2) & "." & Right("0" & Day(date), 2) & "\{Enter})`, findwnd(`TTOTAL_CMD`))"
Back to top
View user's profile Send private message
Cobblestone-TLT



Joined: 01 Feb 2014
Posts: 34

Post (Separately) Posted: Mon Feb 10, 2014 17:57    Post subject: Reply with quote

Спасибо большое! Буду пробовать пока оба предложенных варианта, со временем решу какой мне удобнее!
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11870
Location: Москва

Post (Separately) Posted: Sun Feb 16, 2014 03:08    Post subject: Reply with quote

Cobblestone-TLT
А разве перемещать и переходить надо не в целевой, а в активной панели? Почему об этом нельзя было сразу написать?

Cobblestone-TLT wrote:
Интересно было бы попробовать такой вариант
Ну, допустим (со всякими возникающими окнами не гарантирую безошибочного перехода):
Code:
TOTALCMD#BAR#DATA
%ComSpec% /c ""%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe" /ef "tcm(1005,1) eval(send_wait(`%date:~6%~.%date:~3,2%~.%date:~0,2%\ {ENTER}`, findwnd(`TInpComboDlg`))" && "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe" /ef
"tcd(`%P%%date:~6%%.%%date:~3,2%%.%%date:~0,2%%\`,,S,1)""
ieframe.dll,62
Переместить выбранное в папку с именем текущей даты и перейти в неё

1
У команды send_wait в TCFS2.ini стоит поменять 1000 на 50 или 100.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2126

Post (Separately) Posted: Mon Feb 17, 2014 09:29    Post subject: Reply with quote

Flasher wrote:
У команды send_wait в TCFS2.ini стоит поменять 1000 на 50 или 100.

1000 в макросе нет. А зачем менять в нём что-то?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11870
Location: Москва

Post (Separately) Posted: Mon Feb 17, 2014 13:15    Post subject: Reply with quote

Ага, с wait_for спутал. Менять для того, чтобы уменьшить задержку между опросами.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2126

Post (Separately) Posted: Mon Feb 17, 2014 13:58    Post subject: Reply with quote

Flasher wrote:
чтобы уменьшить задержку между опросами.

Сейчас она уже 0,1 сек. Если всё-таки надо меньше, то надо менять два числа.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11870
Location: Москва

Post (Separately) Posted: Mon Feb 17, 2014 14:12    Post subject: Reply with quote

sa wrote:
надо менять два числа.
Второе - какое?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2126

Post (Separately) Posted: Mon Feb 17, 2014 14:17    Post subject: Reply with quote

Flasher
*10
Back to top
View user's profile Send private message
Vasyugan



Joined: 27 Feb 2014
Posts: 1

Post (Separately) Posted: Thu Feb 27, 2014 17:47    Post subject: Reply with quote

Здравствуйте. Скопировал этот скрипт в файл autodir.vbs, добавил кнопку на панель инструментов. При попытке использования пишет "Файл не найден".

Кнопка
Quote:
TOTALCMD#BAR#DATA
Autodirectory
%L
C:\totalcmd\TOTALCMD64.EXE,5
Создает папку с именем файла и копирует туда файл
с:\autodir.vbs
0
-1


Что я сделал не так?

 !  Avada:
Читаем правила текущего подфорума! Текст скрипта заменён ссылкой. Код кнопки нормально оформлен.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 11, 12, 13, 14, 15  Next
Page 12 of 15

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group