Windows Script Host

[Volniy]

Т.е. в следующей строке List=Split(TCS.GetTextFromClip,vbNewLine) TCS.Pause=1000 не влияет на Split (но влияет на TCS.GetTextFromClip) ?

На Split, конечно же, не влияет. Ибо не мое. А вот на TCS.GetTextFromClip должно бы по идее влиять, но... не влияет. Я тут просмотрел свой код и обнаружил ошибочку: пауза в этом методе вызывалась только в случае повторного (после неудачного) доступа к буферу обмена, а значит практически никогда. Надо пересмотреть и другие места, где есть влияние свойства Pause и, наверное, все-таки установить вызов этой задержки после выполнения команды, это сейчас мне кажется более логичным.

ЗЫ А Sleep на одну секунду, это не слишком?

[Tol!k]

на одну секунду, это не слишком?

Да это только для экспериментального выяснения, где-же там нужна задержка.

[AgereS]

а можно выложить готовый результат с вашими корректировками которые обсуждали
а то честно говоря я уже запутался

[Volniy]

Так ведь нет еще полностью готового-то. Рассуждаем мы покамест. Как лично для меня, так последний Зебра-3, он вполне рабочий, не считая проблемы с неанглийскими именами файлов. Да и та уже решена, только мне нужно выложить слегка откорректированный файл хелпера. Может сегодня вечером выложу, если успею.

[Tol!k]

AgereS

лично для меня, так последний Зебра-3, он вполне рабочий, не считая проблемы с неанглийскими именами файлов

Для меня полностью рабочий, проблемы с неанглийскими именами у меня нет.

[sa]

проблемы с неанглийскими именами у меня нет

Правленый реестр?

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

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1252"="c_1251.nls"

[Tol!k]

Правленый реестр?

Да.

[aLexx]

Что-то в скрипте "Зебра-3" не совсем понял, для чего введена переменная CurDir?
Вижу, что присваивается, но где используется?

[Volniy]

Для получения относительных путей вместо полных:

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

Buf = Buf & Mid(List(Cnt), Len(CurDir) +2) & vbNewLine

Банально для вычисления сколько символов в начале пути нужно отсечь.

[aLexx]

Дак а в самом скрипте строка:

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

      Buf = Buf & List(Cnt) & vbNewLine 

Надо исправить?!

[Volniy]

Ты куда смотришь-то? На предыдущей странице скрипт, из которого я эту строку только что и скопировал. У тебя какой-то старый вариант, наверное. Видимо тот, который еще не работал с BranchView.

[aLexx]

Блин, счас глянул, всё правильно... Видать, и вправду, не обновилась страничка.
Прошу пардона!

[Volniy]

Вот и обещанный ранее файл с изменениями, сделанными для нормальной работы с русскими именами файлов в Буфере обмена
tcwshelp_b11Plus.rar
Реализовано принудительным заданием локали в Буфере обмена. Можно было бы, конечно, зафиксировать ее на 1049 (Russian), но на всякий ("интернациональный") случай сделал иначе - с помощью дополнительного необязательного параметра.

SetTextToClip(Text,[LCID]) помещает Text в буфер обмена Windows, LCID - идентификатор локали для конвертации в Unicode, по умолчанию подставляется системный (GetSystemDefaultLCID)

Тоесть скорее всего сейчас будет работать и без этого дополнительного параметра, но если нет - попробуйте подставить туда 1049

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

SetTextToClip("c:\папка\файл.ext",1049) 

[aLexx]

А без регистрации можно скачать???

[Avada]

aLexx
У меня скачивается без всякой регистрации. Проверено в IE и в Опере.