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

[Вахмурка]

В том числе и для обработки кавычек я написал скрипт.

[Flasher]

В том числе и для обработки кавычек я написал скрипт.

Спасибо, Вахмурка, интересовался раньше. Только вот на портабельной на чужом компе работать не будет. И что-то у меня установщик PowerPro запускаться не желает при нажатии ОК.
Вахмурка, а ваш скрипт делает в буфере пути списком из выделенных? С этим всё в порядке?
Хотелось бы всё таки этот VBS доработать, если можно.

[Вахмурка]

Странно, что PowerPro не ставится. Там обеспечена совместимость до W7 включительно. Перезагружаться пробовал?
Вопрос при список не понял. В буфере получаются имена файлов, разделенные переводом строки. Вот так, например

Код: Выделить всё

Scripts/ABLV.txt
Scripts/Any2Clip.htm
Scripts/AnyFile2Clip.txt
Scripts/AnyPath2Clip.txt

Это результат выполнения скрипта ClipFileList("%L", "f", 1, "/").

[Lev]

На моём компе почему-то барахлят и WScript.Arguments и TCS.GetSrcSelectedFiles, поэтому я накидал свою вариацию скрипта.

Код: Выделить всё

Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand 2018, 100 '"cm_CopyFullNamesToClip"
ss=Split(TCS.GetTextFromClip,vbCrLf)
FileNames = ""
For Each s In ss
  If InStr(s, " ")  Then
    s = Chr(34) & s & Chr(34)
  End If
  FileNames = FileNames & s & vbCrLf
Next
TCS.SetTextToClip(Trim(FileNames))
Set TCS = Nothing

[Flasher]

Странно, что PowerPro не ставится. Там обеспечена совместимость до W7 включительно. Перезагружаться пробовал?

Дык по нажатию ОК у меня вообще ничего не происходит и папка, куда я его ставлю пустует.

Вопрос при список не понял. В буфере получаются имена файлов, разделенные переводом строки. Вот так, например

Код: Выделить всё

Scripts/ABLV.txt
Scripts/Any2Clip.htm
Scripts/AnyFile2Clip.txt
Scripts/AnyPath2Clip.txt

Это результат выполнения скрипта ClipFileList("%L", "f", 1, "/").

Про список я писал выше. Стандартно, как при копировании путей выделенных файлов самим Тоталом - друг под другом, каждый путь в кавычках.
А параметр "q" куда подевался? Без него поставленной задачи не выполнить..

[Вахмурка]

Права админские? Если да, то не знаю. Попробуй указать другую целевую директорию. Или скачай одну из старых версий. Все это очень странно...
С кавычками мы потом разбираться будем. Пока PowerPro не встал, скрипт точно не зафурычит

[Flasher]

Lev
Вот другой разговор. Спасибо!

Вахмурка
Вообщем получилось наоборот, помогла последняя версия, предыдущая не коннектила.
Только пока не выходит скрипт запустить.
Кнопка такая:

Код: Выделить всё

TOTALCMD#BAR#DATA
"c:\Program Files\PowerPro\powerpro.exe"
runfile.ClipFileList("%L", "f", 1, "/","q")

Файл скрипта: c:\Program Files\PowerPro\scripts\ClipFileList.txt

[Вахмурка]

По-моему, все верно. А что значит "не получилось"? Предполагается, что после отработки скрипта в текстовом редакторе выполняется команда "вставить". Что получается? Что кладется в буфер?

[Flasher]

Предполагается, что после отработки скрипта в текстовом редакторе выполняется команда "вставить".

Вахмурка, это проверка меня на уровень IQ? Я конечно не спец в PP, но уж с буфером обмена ещё лет 12 назад как разобрался. Задача-то изначально ясна вроде как..

Что получается? Что кладется в буфер?

Если бы клалось хоть что-то, то написал что на выходе, а так только "ошибку плагина" выдаёт и "файл не открывается".

[Вахмурка]

Извини, если обидел. Просто иногда в письмах (мне по поводу скриптов) или здесь, на форуме (всем) такое пишут, что думаешь: он что, в подготовительной группе детского сада на второй год остался?

Теперь к делу. Писать то, что ты пишешь, мои скрипты не могут в принципе: нет в них таких сообщений. Хотелось бы дословно узнать, что выдается.

На всякий случай проверь: плагины file, ini, vec, clip в c:\Program Files\PowerPro\plugins точно присутствуют? Файл Sub_ParsePath.txt в c:\Program Files\PowerPro\scripts тоже есть?

[Batya]

Да, сработало, только если копировать несколько, получается так
"Путь/Name1.*"КВАДРАТ"Путь/Name2.*"

Переделал скрипт.
Теперь разделитель можно задать самостоятельно, присвоив нужное значение переменной Delimiter.

[Flasher]

Извини, если обидел. Просто иногда в письмах (мне по поводу скриптов) или здесь, на форуме (всем) такое пишут, что думаешь: он что, в подготовительной группе детского сада на второй год остался?

Да всё в порядке. Понимаю.)

Теперь к делу. Писать то, что ты пишешь, мои скрипты не могут в принципе: нет в них таких сообщений. Хотелось бы дословно узнать, что выдается.

Я так понимаю это предусмотрено оболочкой PP, а не твоими скриптами.

На всякий случай проверь: плагины file, ini, vec, clip в c:\Program Files\PowerPro\plugins точно присутствуют? Файл Sub_ParsePath.txt в c:\Program Files\PowerPro\scripts тоже есть?

Да, имеются. ini качал отсюда: http://www.pcrei.com/ppro/files/PPlugins.zip

[Flasher]

Переделал скрипт.
Теперь разделитель можно задать самостоятельно, присвоив нужное значение переменной Delimiter.

не понял. где его в коде присваивать? В том виде, что сейчас, выдает синтаксич. ошибку.
Batya, IMHO, было бы объективным заменить на RU.TCKB ваш скрипт скиптом Lev-a (вдвое меньше и работает на ура).

[Вахмурка]

Я так понимаю это предусмотрено оболочкой PP, а не твоими скриптами.

Не предполагал, что программа, написанная американцем, выдает сообщения на русском.

[Flasher]

Не предполагал, что программа, написанная американцем, выдает сообщения на русском.

А что, перевод уже грех в нашем деле?