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 

Windows Script Host
Goto page Previous  1, 2, 3 ... 25, 26, 27
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
ingerard



Joined: 04 Dec 2016
Posts: 128

Post (Separately) Posted: Mon Sep 28, 2020 21:45    Post subject: Reply with quote

Перестали работать некоторые скрипты. Выяснил что команда GetSrcSelectedFiles нормально не работает. Возможно из-за обновленной системы. Что подскажете делать?

TCScript.dll 1.0.0.15
wscript.exe 5.8.7601.18283
Windows 10 Professional (Build 18363) 1909, Fall 2019
TC 32bit


Один из скриптов.
Code:

'=========================== VBS ============================
' Выделение в другой панели одноимённых с выбранными объектов
' Условие: требуется компонент TCScript.dll
'============================================================
With CreateObject("TCScript.Helper")
  .Pause = 0 : .Wait = True : Clip = .GetTextFromClip
  .LockTC True : .NoArrayReturn = True: If .GetInfo("TP") = "" Then _
  .SetTextToClip .GetSrcSelectedFiles(1) Else _
  .SetTextToClip Replace(.GetSrcSelectedFiles(1), .GetInfo("SP"), "")
  .SendCommand 4006, True : .SendCommand 2033, True
  .SendCommand 4006, True : .LockTC False : .SetTextToClip Clip
End With


Как временную замену команде - сделал так:
Code:
  .SendCommand 2018, True
  .Sleep(10)
  Sel = .GetTextFromClip
Back to top
View user's profile Send private message
l3xrom



Joined: 07 Mar 2021
Posts: 1

Post (Separately) Posted: Sun Mar 07, 2021 22:03    Post subject: Reply with quote

Здравствуйте!
Помогите пожалуйста разобраться, как объединить папки с одинаковым началом имени. Чтобы степень похожести имён определялась по количеству первых символов и была возможность регулировать это количество в параметрах.

из вот такого состояния:
Code:
\[...] 
   \Black
   \Black001
   \Black Grey
   \Black_ghweyw
   \White
   \WhiteCloud
   \White paper
   \White_kytltdte
они перешли в такое:
Code:
\[...]
   \Black
      \Black001
      \Black Grey
      \Black_ghweyw
   \White
      \WhiteCloud
      \White paper
      \White_kytltdte

Пробовал групповое переименование в надежде, что они схлопнутся, как в Проводнике Windows, но нет. Я что-то даже начал вручную, но после 2-х часов такого экшена, сдался.

А в идеале, сделать ещё 2-ую реализацию с добавлением к предыдущему того, чтобы после объединения, все файлы из дочерних папок переместились в корневую. При совпадении имён файлов - не заменять.
из вот такого состояния:
Code:
\[...] 
   \Black
   ..\gdsg.jpg
   ..\tjytk.jpg
      \Black001
      ..\here2.jpg
      ..\рр11.jpg
      \Black Grey
      ..\ерьл1.jpg
      ..\оекл.jpg
      \Black_ghweyw
      ..\hfeh.jpg
      ..\kylku.jpg
они перешли в такое:
Code:
\[...]
   \Black
   ..\gdsg.jpg
   ..\tjytk.jpg
   ..\here2.jpg
   ..\рр11.jpg
   ..\here2.jpg
   ..\рр11.jpg
   ..\ерьл1.jpg
   ..\оекл.jpg
   ..\hfeh.jpg
   ..\kylku.jpg
      \Black001
      \Black Grey
      \Black_ghweyw
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2204
Location: Москва, Россия

Post (Separately) Posted: Thu May 06, 2021 12:30    Post subject: Reply with quote

l3xrom wrote:
Помогите пожалуйста разобраться, как объединить папки с одинаковым началом имени. Чтобы степень похожести имён определялась по количеству первых символов и была возможность регулировать это количество в параметрах.

Хм... Что-то тухло стало на форуме. За 2 месяца никто не ответил.
Требуемое можно выполнить не скриптом, а через инструмент группового переименования.
Выделить все папки -> Открыть ИГП -> Ввести маску "[N1-5]\[N]" -> Выполнить
Если перед запуском ИГП будут выделены базовые папки (Black, White), переименование в ИГП по ним выдаст ошибку. Но это как раз и нужно, чтобы по ним ничего не выполнялось.

l3xrom wrote:
А в идеале, сделать ещё 2-ую реализацию с добавлением к предыдущему того, чтобы после объединения, все файлы из дочерних папок переместились в корневую.

Здесь также используется ИГП. Для выделенных файлов нужно применить маску "..\[N]".
_________________
Нет, я не сплю. Я просто медленно моргаю.
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 ... 25, 26, 27
Page 27 of 27

 
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