View previous topic :: View next topic |
Author |
Message |
Avada
Joined: 01 Aug 2008 Posts: 10263 Location: Россия, Саратов
|
(Separately) Posted: Fri Feb 05, 2010 20:48 Post subject: |
|
|
Господа, либо заканчивайте оффтоп (тем более, что всё существенное вроде бы уже сказано), либо я буду вынужден перенести эту часть дискуссии во Флейм. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Feb 03, 2019 20:06 Post subject: |
|
|
Некто Baltazar500 поднял тему проблемной lst2multi:
Может, устроит:
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 |
|
Back to top |
|
|
imig73
Joined: 18 Jun 2013 Posts: 280 Location: г. Иркутск
|
(Separately) Posted: Sun Feb 03, 2019 20:49 Post subject: |
|
|
Flasher
Очень нужно и полезно для батников, спасибо. Можно добавить в свою рабочую сборку?
Попробую доделать так, чтобы AcelPad открывался со скопированным содержимым, а то %F и %L кавычки игнорируют.
Кнопка копирует всё в одну строку, не удобно. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Feb 03, 2019 21:02 Post subject: |
|
|
imig73
Я где-то запрещал добавлять что-то в сборки?
imig73 wrote: | Попробую доделать так, чтобы AcelPad открывался со скопированным содержимым | Хм. Ожидать окно редактора и вставлять туда? Было такое в отношении буфера. Но это уже немного из другой оперы. Да и зачем?
У кнопки есть подсказка. Слово "строчный" (он же инлайновый) за себя говорит. Это альтернатива скрипту (она идёт отдельно), где берётся вертикальный список.
Строчные списки тоже нередко приходится формировать в различных комстроках. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
imig73
Joined: 18 Jun 2013 Posts: 280 Location: г. Иркутск
|
(Separately) Posted: Sun Feb 03, 2019 21:13 Post subject: |
|
|
Flasher
Для приличия надо спросить |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Feb 03, 2019 21:20 Post subject: |
|
|
imig73
Не надо. Даже для приличия, т.к. это уже совсем неприлично. )) Я же не в приват коды выложил.
Со скриптом разобрались? Там всё удобно?
А по части вставки из буфера в окно редактора могу скинуть решение (на другом форуме есть), но в иной теме. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
imig73
Joined: 18 Jun 2013 Posts: 280 Location: г. Иркутск
|
(Separately) Posted: Sun Feb 03, 2019 21:35 Post subject: |
|
|
Flasher
В общем с именами файлов всё чётко, а у имён папок смущает взятый в кавычки "\".
Пример всавки:
"Папка обмена Bluetooth\"
"Агентский договор.doc"
Хотя нет, это даже логично и означает папку.
Если есть где то решение открыть AkelPad с содержимым буфера после скрипта, то хотелось бы посмотреть. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Feb 03, 2019 22:06 Post subject: |
|
|
imig73
Касаемо \ я было подумал, так как этот момент затрагивался, а потом забил, просто выложив свой скрипт.
Что касаемо содержимого, то сперва советую ознакомиться с недавним пояснением в рамках создания списка. Если нужно без создания, то создание темы таки потребуется. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
imig73
Joined: 18 Jun 2013 Posts: 280 Location: г. Иркутск
|
(Separately) Posted: Sun Feb 03, 2019 22:29 Post subject: |
|
|
Flasher
Нет, создавать списки не нужно. Я попробую подумать позже как дописать ваш скрипт, чтобы его результаты сразу передались в редактор.
К примеру как сейчас у меня работает в [User], но конечно без кавычек.
menu38=Открыть список выделенного с полными путями
cmd38=%COMMANDER_PATH%\Utility\AkelPad\AkelPad.exe
param38=%L
Я пользуюсь этим как заготовкой для будущего cmd. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Feb 03, 2019 22:49 Post subject: |
|
|
imig73 wrote: | Я попробую подумать позже как дописать ваш скрипт | Чтобы долго не думалось, последнюю строку меняем на:
Code: | With CreateObject("WScript.Shell")
.Run "%ComSpec% /c clip<" & List, 0, 1
.Exec "%COMMANDER_PATH%\Utils\Akelpad\AkelPad.exe /Command(4101) /Command(4155)"
End With |
imig73 wrote: | К примеру как сейчас у меня работает в [User] | Тут то же самое создание, только без копии. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Sun Feb 03, 2019 23:13; edited 2 times in total |
|
Back to top |
|
|
imig73
Joined: 18 Jun 2013 Posts: 280 Location: г. Иркутск
|
(Separately) Posted: Sun Feb 03, 2019 22:56 Post subject: |
|
|
Flasher
Спасибо, класс!
Только надо ещё одну /Command() вставить чтобы новый документ создавал, а то если что-то уже открыто, то вставляется прямо туда где курсор
А вот это как раз /Command(4101), теперь норма.
Last edited by imig73 on Sun Feb 03, 2019 23:01; edited 1 time in total |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Feb 03, 2019 23:00 Post subject: |
|
|
imig73 wrote: | чтобы новый документ создавал |
imig73 wrote: | создавать списки не нужно | И где правда? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
imig73
Joined: 18 Jun 2013 Posts: 280 Location: г. Иркутск
|
(Separately) Posted: Sun Feb 03, 2019 23:04 Post subject: |
|
|
Flasher
Ну чтоб текущий документ не портил... ужо дописал.
Отлично, теперь у меня будет два варианта. С текущим окном редактирования и новым
Last edited by imig73 on Sun Feb 03, 2019 23:12; edited 1 time in total |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Feb 03, 2019 23:06 Post subject: |
|
|
imig73
Ну, тогда я тоже дописал (окно редактирования — не документ).
ЗЫ: Последнюю команду тоже убрал, из другой кнопки случайно вырезал.
Добавлено спустя 11 минут:
imig73 wrote: | теперь у меня будет два варианта. | Для этого можно ключ ввести. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
ZZZAlexZZZ
Joined: 08 Mar 2014 Posts: 68
|
(Separately) Posted: Mon Feb 04, 2019 00:16 Post subject: |
|
|
Flasher
Может с кнопкой не разобрался, но похоже теряется первая и последняя кавычка.
См. для примера:
...\total comand.log
...\Total Commander - Все команды.pdf
В буфере:
total comand.log" "Total Commander - Все команды.pdf |
|
Back to top |
|
|
|