Single Post - Копирование полного пути в буфер

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Копирование полного пути в буфер

Author

Message

Flasher

Posted: Sun Feb 03, 2019 20:06 Post subject:

Некто Baltazar500 поднял тему проблемной lst2multi:

Baltazar500 wrote:

он меня за исключением невозможности вкорячить двойные кавычки в префикс и постфикс более чем устраивает (ну да на этот случай у меня есть утянутый из сети vbs-скрипт и плагин по работе с ним, правда работает медленно)

Может, устроит:

Code:

'============================ VBS ============================
' Скопировать выбранные имена в кавычках при наличии пробелов,
' знаков табуляции или амперсандов
' Параметры: %Z%WF (полные имёна) или %Z%WL (полные пути)
'======================================== Автор: Flasher © ===
If WSH.Arguments.Count Then List = WSH.Arguments(0) Else WSH.Quit
With New RegExp
.Global = 1 : .MultiLine = 1 : .Pattern = "^([^\r\n]*[ \t&][^\r\n]*)$"
All = .Replace(CreateObject("Scripting.FileSystemObject")._
OpenTextFile(List,,,-1).ReadAll, """$1""")
.Pattern = "\r\n$" : .MultiLine = 0 : All = .Replace(All, "")
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

Code:

TOTALCMD#BAR#DATA
%ComSpec% /q/c chcp 65001>nul&<nul set
/p="%S"|clip
wcmicons.dll,45
Скопировать строчный список выбранных имён|в активной панели (с пробелами — в кавычках)

1

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.

Last edited by Flasher on Mon Feb 04, 2019 13:47; edited 2 times in total