Страница 27 из 27
Добавлено: Пн сен 28, 2020 20:45
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
Добавлено: Вс мар 07, 2021 21:03
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
Добавлено: Чт май 06, 2021 11:30
Batya
l3xrom писал(а):Помогите пожалуйста разобраться, как объединить папки с одинаковым началом имени. Чтобы степень похожести имён определялась по количеству первых символов и была возможность регулировать это количество в параметрах.
Хм... Что-то тухло стало на форуме. За 2 месяца никто не ответил.
Требуемое можно выполнить не скриптом, а через инструмент группового переименования.
Выделить все папки -> Открыть ИГП -> Ввести маску "[N1-5]\[N]" -> Выполнить
Если перед запуском ИГП будут выделены базовые папки (Black, White), переименование в ИГП по ним выдаст ошибку. Но это как раз и нужно, чтобы по ним ничего не выполнялось.
l3xrom писал(а):А в идеале, сделать ещё 2-ую реализацию с добавлением к предыдущему того, чтобы после объединения, все файлы из дочерних папок переместились в корневую.
Здесь также используется ИГП. Для выделенных файлов нужно применить маску "..\[N]".
Добавлено: Чт июл 29, 2021 09:14
Baltazar
Добавлено: Чт мар 05, 2026 07:21
Baltazar
А есть исходники tcwshelp/ScriptHelper и более расширенная документация по используемым методам, нежели та, что описана в ReadMe ? Или в ReadMe описаны все методы, что есть ? Хочу скормить всё это нейронке, дабы она помогала в написании костылей (ветка увы практически мертва), но без нормального контекста она мелет чушь на vbs. А такое я и сам могу
Добавлено: Ср май 06, 2026 11:32
Orion9
Baltazar
А скриптовый язык плагина Autorun можно скормить нейронке для анализа? Тогда не только костыли можно будет делать, а костыли-ракеты для покорения дальнего космоса
Пример