Windows Script Host
Select messages from
# through # FAQ
[/[Print]\]
Goto page Previous  1, 2, 3 ... 25, 26, 27  :| |:
Total Commander -> Автоматизация Total Commander

#391:  Author: ingerard PostPosted: Mon Sep 28, 2020 21:45
    —
Перестали работать некоторые скрипты. Выяснил что команда 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

#392:  Author: l3xrom PostPosted: Sun Mar 07, 2021 22:03
    —
Здравствуйте!
Помогите пожалуйста разобраться, как объединить папки с одинаковым началом имени. Чтобы степень похожести имён определялась по количеству первых символов и была возможность регулировать это количество в параметрах.

из вот такого состояния:
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

#393:  Author: BatyaLocation: Москва, Россия PostPosted: Thu May 06, 2021 12:30
    —
l3xrom wrote:
Помогите пожалуйста разобраться, как объединить папки с одинаковым началом имени. Чтобы степень похожести имён определялась по количеству первых символов и была возможность регулировать это количество в параметрах.

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

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

Здесь также используется ИГП. Для выделенных файлов нужно применить маску "..\[N]".

#394:  Author: Baltazar PostPosted: Thu Jul 29, 2021 10:14
    —
Нашёл на форуме скрипт который идеально подошёл под мой прошлый запрос



Total Commander -> Автоматизация Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2, 3 ... 25, 26, 27  :| |:
Page 27 of 27

Powered by phpBB © 2001, 2005 phpBB Group