Windows Script Host

[ingerard]

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

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


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

Код: Выделить всё

'=========================== 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

Как временную замену команде - сделал так:

Код: Выделить всё

  .SendCommand 2018, True
  .Sleep(10)
  Sel = .GetTextFromClip

[l3xrom]

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

из вот такого состояния:

Код: Выделить всё

\[...]  
   \Black
   \Black001
   \Black Grey
   \Black_ghweyw
   \White
   \WhiteCloud
   \White paper
   \White_kytltdte

они перешли в такое:

Код: Выделить всё

\[...]
   \Black
      \Black001
      \Black Grey
      \Black_ghweyw
   \White
      \WhiteCloud
      \White paper
      \White_kytltdte

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

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

Код: Выделить всё

\[...]  
   \Black
   ..\gdsg.jpg
   ..\tjytk.jpg
      \Black001
      ..\here2.jpg
      ..\рр11.jpg
      \Black Grey
      ..\ерьл1.jpg
      ..\оекл.jpg
      \Black_ghweyw
      ..\hfeh.jpg
      ..\kylku.jpg

они перешли в такое:

Код: Выделить всё

\[...]
   \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

[Batya]

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

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

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

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

[Baltazar]

Нашёл на форуме скрипт который идеально подошёл под мой прошлый запрос

[Baltazar]

А есть исходники tcwshelp/ScriptHelper и более расширенная документация по используемым методам, нежели та, что описана в ReadMe ? Или в ReadMe описаны все методы, что есть ? Хочу скормить всё это нейронке, дабы она помогала в написании костылей (ветка увы практически мертва), но без нормального контекста она мелет чушь на vbs. А такое я и сам могу

[Orion9]

Baltazar
А скриптовый язык плагина Autorun можно скормить нейронке для анализа? Тогда не только костыли можно будет делать, а костыли-ракеты для покорения дальнего космоса Пример