Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Копирование базовых имён выбранных объектов в буфер обмена

 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Dimsok



Joined: 17 Aug 2014
Posts: 578

Post (Separately) Posted: Wed May 02, 2018 01:10    Post subject: Копирование базовых имён выбранных объектов в буфер обмена Reply with quote

Имеется нужда в скрипте для копирования имён выделенных элементов в буфер обмена, т.е аналогично cm_CopyNamesToClip, но без расширений.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12849
Location: Москва

Post (Separately) Posted: Wed May 02, 2018 01:20    Post subject: Reply with quote

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
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 578

Post (Separately) Posted: Wed May 02, 2018 01:28    Post subject: Reply with quote

Спасибо.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12849
Location: Москва

Post (Separately) Posted: Sun May 20, 2018 04:29    Post subject: Reply with quote

Dimsok
Поправил один косяк. Имена без расширений вырезались.

И ещё вопрос, который я, откровенно говоря, продинамил. Имена папок копируются с \ на конце. Это же условие для восстановление из буфера. Получается, если мы отрезаем .ext\, то остаются базовые имена без \. Так как в данном случае верно поступать? Заботиться о восстановлении выделения папок без .ext или оставить как есть, подразумевая, что это могут быть имена файлов?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 578

Post (Separately) Posted: Wed May 23, 2018 02:46    Post subject: Reply with quote

Опять же в зависимости от нужд. Можно иметь 2 варианта, либо добавить опцию в один скрипт. Команда TC "Копировать имена файлов в буфер" тоже копирует имена папок с "\".
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12849
Location: Москва

Post (Separately) Posted: Wed May 23, 2018 14:40    Post subject: Reply with quote

Dimsok
Она именно поэтому и копирует, чтобы можно было восстановить выделение папок.
Но вопрос в том, когда это вообще может понадобиться? Где требуется восстанавливать выделение папок без расширений?
С другой стороны, вариант c удалением .ext\ оставляет \ у папок, не имевших '.ext'. Получается ни то ни сё.
Ключ я добавил, но вопросы остались открытыми.

P.S.: Сразу не мог ответить. На форуме антиспам-сбой произошёл, посты не отправлялись.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
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