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
Cherubic



Joined: 21 Mar 2019
Posts: 3

Post (Separately) Posted: Thu Mar 21, 2019 13:31    Post subject: Копировать в буфер обмена полные имена с прямым слэшем Reply with quote

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

PS: искал решение на форуме, того что нужно не нашел...
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10236
Location: Россия, Саратов

Post (Separately) Posted: Thu Mar 21, 2019 13:55    Post subject: Reply with quote

Cherubic
Ни настроек у этой команды нет, ни других команд для этого нет. Решать задачу можно только через средства автоматизации. Но прежде хорошо бы пояснить, зачем это нужно.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Cherubic



Joined: 21 Mar 2019
Posts: 3

Post (Separately) Posted: Thu Mar 21, 2019 14:03    Post subject: Reply with quote

В ветке про автоматизацию я видел несколько похожих решений, но там другие задачи, более сложные. Мне же просто нужна автозамена \ на / в пути.
Суть в чём, сам TC отображает пути через \ и соответственно копирует их так же, но для других программ или сред мне нужны пути через /.
Возможно не стоит искать замену кнопки, а нужно поменять общее отображение пути к файлу, но как это сделать я тоже не знаю Smile
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Thu Mar 21, 2019 14:22    Post subject: Reply with quote

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

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10236
Location: Россия, Саратов

Post (Separately) Posted: Thu Mar 21, 2019 14:29    Post subject: Reply with quote

Тема переносится в "Автоматизацию". Заголовок заменён на отвечающий сути задачи.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Cherubic



Joined: 21 Mar 2019
Posts: 3

Post (Separately) Posted: Thu Mar 21, 2019 15:29    Post subject: Reply with quote

Flasher огромное спасибо!
Back to top
View user's profile Send private message
Sadyrbaev



Joined: 27 Jun 2021
Posts: 5

Post (Separately) Posted: Wed Jul 06, 2022 12:23    Post subject: Reply with quote

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


Не подскажите новичку в тотале что с этим кодом делать? мне нужно то же самое, прямой слеш.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10236
Location: Россия, Саратов

Post (Separately) Posted: Wed Jul 06, 2022 14:55    Post subject: Reply with quote

Sadyrbaev
К подфоруму по автоматизации специально прилеплена памятка. Все ответы на подобные вопросы — там.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Вахмурка



Joined: 27 Dec 2004
Posts: 2584
Location: Большая деревня Москва

Post (Separately) Posted: Thu Jul 07, 2022 09:31    Post subject: Reply with quote

Два скрипта PowerPro:
ClipFile
ClipListDialog
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон)
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