View previous topic :: View next topic |
Author |
Message |
Cherubic
Joined: 21 Mar 2019 Posts: 3
|
(Separately) Posted: Thu Mar 21, 2019 13:31 Post subject: Копировать в буфер обмена полные имена с прямым слэшем |
|
|
В TC есть стандартная кнопка cm_CopyFullNamesToClip, возможно ли её как-то настроить или использовать другую, чтобы при копировании пути до файла обратный слеш (\) менялся на прямой (/)?
PS: искал решение на форуме, того что нужно не нашел... |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10275 Location: Россия, Саратов
|
(Separately) Posted: Thu Mar 21, 2019 13:55 Post subject: |
|
|
Cherubic
Ни настроек у этой команды нет, ни других команд для этого нет. Решать задачу можно только через средства автоматизации. Но прежде хорошо бы пояснить, зачем это нужно. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Cherubic
Joined: 21 Mar 2019 Posts: 3
|
(Separately) Posted: Thu Mar 21, 2019 14:03 Post subject: |
|
|
В ветке про автоматизацию я видел несколько похожих решений, но там другие задачи, более сложные. Мне же просто нужна автозамена \ на / в пути.
Суть в чём, сам TC отображает пути через \ и соответственно копирует их так же, но для других программ или сред мне нужны пути через /.
Возможно не стоит искать замену кнопки, а нужно поменять общее отображение пути к файлу, но как это сделать я тоже не знаю |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Mar 21, 2019 14:22 Post subject: |
|
|
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 |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10275 Location: Россия, Саратов
|
(Separately) Posted: Thu Mar 21, 2019 14:29 Post subject: |
|
|
Тема переносится в "Автоматизацию". Заголовок заменён на отвечающий сути задачи. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Cherubic
Joined: 21 Mar 2019 Posts: 3
|
(Separately) Posted: Thu Mar 21, 2019 15:29 Post subject: |
|
|
Flasher огромное спасибо! |
|
Back to top |
|
|
Sadyrbaev
Joined: 27 Jun 2021 Posts: 5
|
(Separately) Posted: Wed Jul 06, 2022 12:23 Post subject: |
|
|
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 |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10275 Location: Россия, Саратов
|
(Separately) Posted: Wed Jul 06, 2022 14:55 Post subject: |
|
|
Sadyrbaev
К подфоруму по автоматизации специально прилеплена памятка. Все ответы на подобные вопросы — там. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004 Posts: 2584 Location: Большая деревня Москва
|
|
Back to top |
|
|
|