Total Commander :: Копировать в буфер обмена полные имена с прямым слэшем

Копировать в буфер обмена полные имена с прямым слэшем

through

[^/[Print]\]

Total Commander -> Автоматизация Total Commander

#1: Копировать в буфер обмена полные имена с прямым слэшем Author: Cherubic,

Posted: Thu Mar 21, 2019 13:31
—
В TC есть стандартная кнопка cm_CopyFullNamesToClip, возможно ли её как-то настроить или использовать другую, чтобы при копировании пути до файла обратный слеш (\) менялся на прямой (/)?

PS: искал решение на форуме, того что нужно не нашел...

#2: Author: Avada, Location: Россия, Саратов

Posted: Thu Mar 21, 2019 13:55
—
Cherubic
Ни настроек у этой команды нет, ни других команд для этого нет. Решать задачу можно только через средства автоматизации. Но прежде хорошо бы пояснить, зачем это нужно.

#3: Author: Cherubic,

Posted: Thu Mar 21, 2019 14:03
—
В ветке про автоматизацию я видел несколько похожих решений, но там другие задачи, более сложные. Мне же просто нужна автозамена \ на / в пути.
Суть в чём, сам TC отображает пути через \ и соответственно копирует их так же, но для других программ или сред мне нужны пути через /.
Возможно не стоит искать замену кнопки, а нужно поменять общее отображение пути к файлу, но как это сделать я тоже не знаю Smile

#4: Author: Flasher, Location: Москва

Posted: Thu Mar 21, 2019 14:22
—

Code:

'=================== VBS =================
' Скопировать полные имена с прямым слэшем
' Параметры: %Z%WL
'=========================================
If WSH.Arguments.Count Then List = WSH.Arguments(0) Else WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
All = Replace(FSO.OpenTextFile(List,,,-1).ReadAll, "\", "/")
With CreateObject("SAPI.SpFileStream")
.Format.Type = 1 : .Open List, 3 : .Write All : .Close
End With
CreateObject("WScript.Shell").Run "%ComSpec% /c clip<" & List, 0

#5: Author: Avada, Location: Россия, Саратов

Posted: Thu Mar 21, 2019 14:29
—
Тема переносится в "Автоматизацию". Заголовок заменён на отвечающий сути задачи.

#6: Author: Cherubic,

Posted: Thu Mar 21, 2019 15:29
—
Flasher огромное спасибо!

#7: Author: Sadyrbaev,

Posted: Wed Jul 06, 2022 12:23
—

Flasher wrote:

Code:

'=================== VBS =================
' Скопировать полные имена с прямым слэшем
' Параметры: %Z%WL
'=========================================
If WSH.Arguments.Count Then List = WSH.Arguments(0) Else WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
All = Replace(FSO.OpenTextFile(List,,,-1).ReadAll, "\", "/")
With CreateObject("SAPI.SpFileStream")
.Format.Type = 1 : .Open List, 3 : .Write All : .Close
End With
CreateObject("WScript.Shell").Run "%ComSpec% /c clip<" & List, 0

Не подскажите новичку в тотале что с этим кодом делать? мне нужно то же самое, прямой слеш.

#8: Author: Avada, Location: Россия, Саратов

Posted: Wed Jul 06, 2022 14:55
—
Sadyrbaev
К подфоруму по автоматизации специально прилеплена памятка. Все ответы на подобные вопросы — там.

#9: Author: Вахмурка, Location: Большая деревня Москва

Posted: Thu Jul 07, 2022 09:31
—
Два скрипта PowerPro:
ClipFile
ClipListDialog

Total Commander -> Автоматизация Total Commander

output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Page 1 of 1