Страница 2 из 6

Добавлено: Ср фев 03, 2010 16:32
Вахмурка
В том числе и для обработки кавычек я написал скрипт.

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

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

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

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

Добавлено: Ср фев 03, 2010 19:13
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

Добавлено: Ср фев 03, 2010 19:20
Flasher
Вахмурка писал(а):Странно, что PowerPro не ставится. Там обеспечена совместимость до W7 включительно. Перезагружаться пробовал?
Дык по нажатию ОК у меня вообще ничего не происходит и папка, куда я его ставлю пустует. :(
Вопрос при список не понял. В буфере получаются имена файлов, разделенные переводом строки. Вот так, например

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

Scripts/ABLV.txt
Scripts/Any2Clip.htm
Scripts/AnyFile2Clip.txt
Scripts/AnyPath2Clip.txt
Это результат выполнения скрипта ClipFileList("%L", "f", 1, "/").
Про список я писал выше. Стандартно, как при копировании путей выделенных файлов самим Тоталом - друг под другом, каждый путь в кавычках.
А параметр "q" куда подевался? Без него поставленной задачи не выполнить..

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

Добавлено: Ср фев 03, 2010 20:39
Flasher
Lev
Вот другой разговор. Спасибо!

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

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

TOTALCMD#BAR#DATA
"c:\Program Files\PowerPro\powerpro.exe"
runfile.ClipFileList("%L", "f", 1, "/","q")
Файл скрипта: c:\Program Files\PowerPro\scripts\ClipFileList.txt

Добавлено: Ср фев 03, 2010 22:47
Вахмурка
По-моему, все верно. А что значит "не получилось"? Предполагается, что после отработки скрипта в текстовом редакторе выполняется команда "вставить". Что получается? Что кладется в буфер?

Добавлено: Чт фев 04, 2010 11:30
Flasher
Вахмурка писал(а):Предполагается, что после отработки скрипта в текстовом редакторе выполняется команда "вставить".
Вахмурка, это проверка меня на уровень IQ? :D Я конечно не спец в PP, но уж с буфером обмена ещё лет 12 назад как разобрался. :wink: Задача-то изначально ясна вроде как..
Вахмурка писал(а):Что получается? Что кладется в буфер?
Если бы клалось хоть что-то, то написал что на выходе, а так только "ошибку плагина" выдаёт и "файл не открывается".

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

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

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

Добавлено: Чт фев 04, 2010 12:48
Batya
Flasher писал(а):Да, сработало, только если копировать несколько, получается так
"Путь/Name1.*"КВАДРАТ"Путь/Name2.*"
Переделал скрипт.
Теперь разделитель можно задать самостоятельно, присвоив нужное значение переменной Delimiter.

Добавлено: Чт фев 04, 2010 13:24
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

Добавлено: Чт фев 04, 2010 13:46
Flasher
Batya писал(а):Переделал скрипт.
Теперь разделитель можно задать самостоятельно, присвоив нужное значение переменной Delimiter.
не понял. где его в коде присваивать? В том виде, что сейчас, выдает синтаксич. ошибку.
Batya, IMHO, было бы объективным заменить на RU.TCKB ваш скрипт скиптом Lev-a (вдвое меньше и работает на ура).

Добавлено: Чт фев 04, 2010 14:01
Вахмурка
Я так понимаю это предусмотрено оболочкой PP, а не твоими скриптами.
Не предполагал, что программа, написанная американцем, выдает сообщения на русском.

Добавлено: Чт фев 04, 2010 14:14
Flasher
Вахмурка писал(а):Не предполагал, что программа, написанная американцем, выдает сообщения на русском.
А что, перевод уже грех в нашем деле? :wink: