View previous topic :: View next topic |
Author |
Message |
ingerard
Joined: 04 Dec 2016 Posts: 128
|
(Separately) Posted: Mon Sep 28, 2020 21:45 Post subject: |
|
|
Перестали работать некоторые скрипты. Выяснил что команда 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 |
|
|
l3xrom
Joined: 07 Mar 2021 Posts: 1
|
(Separately) Posted: Sun Mar 07, 2021 22:03 Post subject: |
|
|
Здравствуйте!
Помогите пожалуйста разобраться, как объединить папки с одинаковым началом имени. Чтобы степень похожести имён определялась по количеству первых символов и была возможность регулировать это количество в параметрах.
из вот такого состояния:
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 |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2219 Location: Москва, Россия
|
(Separately) Posted: Thu May 06, 2021 12:30 Post subject: |
|
|
l3xrom wrote: | Помогите пожалуйста разобраться, как объединить папки с одинаковым началом имени. Чтобы степень похожести имён определялась по количеству первых символов и была возможность регулировать это количество в параметрах. |
Хм... Что-то тухло стало на форуме. За 2 месяца никто не ответил.
Требуемое можно выполнить не скриптом, а через инструмент группового переименования.
Выделить все папки -> Открыть ИГП -> Ввести маску "[N1-5]\[N]" -> Выполнить
Если перед запуском ИГП будут выделены базовые папки (Black, White), переименование в ИГП по ним выдаст ошибку. Но это как раз и нужно, чтобы по ним ничего не выполнялось.
l3xrom wrote: | А в идеале, сделать ещё 2-ую реализацию с добавлением к предыдущему того, чтобы после объединения, все файлы из дочерних папок переместились в корневую. |
Здесь также используется ИГП. Для выделенных файлов нужно применить маску "..\[N]". _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Baltazar
Joined: 01 Oct 2015 Posts: 54
|
|
Back to top |
|
|
|
|
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
|