View previous topic :: View next topic |
Author |
Message |
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Wed May 02, 2018 01:10 Post subject: Копирование базовых имён выбранных объектов в буфер обмена |
|
|
Имеется нужда в скрипте для копирования имён выделенных элементов в буфер обмена, т.е аналогично cm_CopyNamesToClip, но без расширений. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed May 02, 2018 01:20 Post subject: |
|
|
Code: | '==================== VBS ==================
' Скопировать выбранные имена без расширений
' Параметры: %Z%WF
' Ключ /n оставляет "\" на конце имён папок
'===========================================
If WSH.Arguments.Count Then List = WSH.Arguments(0) Else WSH.Quit
Ex = "]+$" : Set FSO = CreateObject("Scripting.FileSystemObject")
If WSH.Arguments.Named.Exists("n") Then Ex = "\\]+(?=\\|$)"
With New RegExp
.Global = True : .MultiLine = True : .Pattern = "\n$|\.[^.\n" & Ex
All = .Replace(FSO.OpenTextFile(List,,,-1).ReadAll, "")
End With
With CreateObject("SAPI.SpFileStream")
.Format.Type = 1 : .Open List, 3 : .Write All : .Close
End With
CreateObject("WScript.Shell").Run "%ComSpec% /c clip<" & List, 0 |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Wed May 23, 2018 19:34; edited 3 times in total |
|
Back to top |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Wed May 02, 2018 01:28 Post subject: |
|
|
Спасибо. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun May 20, 2018 04:29 Post subject: |
|
|
Dimsok
Поправил один косяк. Имена без расширений вырезались.
И ещё вопрос, который я, откровенно говоря, продинамил. Имена папок копируются с \ на конце. Это же условие для восстановление из буфера. Получается, если мы отрезаем .ext\, то остаются базовые имена без \. Так как в данном случае верно поступать? Заботиться о восстановлении выделения папок без .ext или оставить как есть, подразумевая, что это могут быть имена файлов? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Wed May 23, 2018 02:46 Post subject: |
|
|
Опять же в зависимости от нужд. Можно иметь 2 варианта, либо добавить опцию в один скрипт. Команда TC "Копировать имена файлов в буфер" тоже копирует имена папок с "\". |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed May 23, 2018 14:40 Post subject: |
|
|
Dimsok
Она именно поэтому и копирует, чтобы можно было восстановить выделение папок.
Но вопрос в том, когда это вообще может понадобиться? Где требуется восстанавливать выделение папок без расширений?
С другой стороны, вариант c удалением .ext\ оставляет \ у папок, не имевших '.ext'. Получается ни то ни сё.
Ключ я добавил, но вопросы остались открытыми.
P.S.: Сразу не мог ответить. На форуме антиспам-сбой произошёл, посты не отправлялись. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
|