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: 577

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: 12427
Location: Москва

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

Code:
'==================== VBS ==================
' Скопировать выбранные имена без расширений
' Параметры: %Z%WF
'===========================================
If WSH.Arguments.Count Then List = WSH.Arguments(0) Else WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
With New RegExp
  .Global = True : .MultiLine = True : .Pattern = "\.[^.\n]+$"
  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 Sun May 20, 2018 04:20; edited 1 time in total
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 577

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: 12427
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
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