Страница 12 из 27
Добавлено: Ср мар 31, 2010 03:06
Volniy
Tol!k писал(а):Т.е. в следующей строке List=Split(TCS.GetTextFromClip,vbNewLine) TCS.Pause=1000 не влияет на Split (но влияет на TCS.GetTextFromClip) ?
На Split, конечно же, не влияет. Ибо не мое. А вот на
TCS.GetTextFromClip должно бы по идее влиять, но... не влияет. Я тут просмотрел свой код и обнаружил ошибочку: пауза в этом методе вызывалась только в случае повторного (после неудачного) доступа к буферу обмена, а значит практически никогда. Надо пересмотреть и другие места, где есть влияние свойства
Pause и, наверное, все-таки установить вызов этой задержки
после выполнения команды, это сейчас мне кажется более логичным.
ЗЫ А
Sleep на одну секунду, это не слишком?
Добавлено: Ср мар 31, 2010 06:26
Tol!k
Volniy писал(а):на одну секунду, это не слишком?
Да это только для экспериментального выяснения, где-же там нужна задержка.
Добавлено: Чт апр 01, 2010 10:49
AgereS
а можно выложить готовый результат с вашими корректировками которые обсуждали
а то честно говоря я уже запутался
Добавлено: Чт апр 01, 2010 15:12
Volniy
Так ведь нет еще полностью готового-то. Рассуждаем мы покамест. Как лично для меня, так последний Зебра-3, он вполне рабочий, не считая проблемы с неанглийскими именами файлов. Да и та уже решена, только мне нужно выложить слегка откорректированный файл хелпера. Может сегодня вечером выложу, если успею.
Добавлено: Чт апр 01, 2010 17:00
Tol!k
AgereS
лично для меня, так последний Зебра-3, он вполне рабочий, не считая проблемы с неанглийскими именами файлов
Для меня полностью рабочий, проблемы с неанглийскими именами у меня нет.
Добавлено: Чт апр 01, 2010 17:15
sa
Tol!k писал(а):проблемы с неанглийскими именами у меня нет
Правленый реестр?
Код: Выделить всё
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1252"="c_1251.nls"
Добавлено: Чт апр 01, 2010 19:08
Tol!k
sa писал(а):Правленый реестр?
Да.
Добавлено: Сб апр 03, 2010 03:03
aLexx
Что-то в скрипте "Зебра-3" не совсем понял, для чего введена переменная CurDir?
Вижу, что присваивается, но где используется?
Добавлено: Сб апр 03, 2010 03:10
Volniy
Для получения
относительных путей вместо полных:
Код: Выделить всё
Buf = Buf & Mid(List(Cnt), Len(CurDir) +2) & vbNewLine
Банально для вычисления сколько символов в начале пути нужно отсечь.
Добавлено: Сб апр 03, 2010 03:18
aLexx
Дак а в самом скрипте строка:
Надо исправить?!
Добавлено: Сб апр 03, 2010 03:31
Volniy
Ты куда смотришь-то? На предыдущей странице скрипт, из которого я эту строку только что и скопировал. У тебя какой-то старый вариант, наверное. Видимо тот, который еще не работал с BranchView.
Добавлено: Сб апр 03, 2010 03:43
aLexx
Блин, счас глянул, всё правильно... Видать, и вправду, не обновилась страничка.
Прошу пардона!
Добавлено: Сб апр 03, 2010 04:55
Volniy
Вот и обещанный ранее файл с изменениями, сделанными для нормальной работы с русскими именами файлов в Буфере обмена
tcwshelp_b11Plus.rar
Реализовано принудительным заданием локали в Буфере обмена. Можно было бы, конечно, зафиксировать ее на
1049 (Russian), но на всякий ("интернациональный") случай сделал иначе - с помощью дополнительного необязательного параметра.
SetTextToClip(Text,[LCID]) помещает Text в буфер обмена Windows, LCID - идентификатор локали для конвертации в Unicode, по умолчанию подставляется системный (GetSystemDefaultLCID)
Тоесть скорее всего сейчас будет работать и без этого дополнительного параметра, но если нет - попробуйте подставить туда 1049
Добавлено: Сб апр 03, 2010 05:02
aLexx
А без регистрации можно скачать???
Добавлено: Сб апр 03, 2010 09:14
Avada
aLexx
У меня скачивается без всякой регистрации. Проверено в IE и в Опере.