View previous topic :: View next topic |
Author |
Message |
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Wed Mar 31, 2010 03:06 Post subject: |
|
|
Tol!k wrote: | Т.е. в следующей строке List=Split(TCS.GetTextFromClip,vbNewLine) TCS.Pause=1000 не влияет на Split (но влияет на TCS.GetTextFromClip) ? |
На Split, конечно же, не влияет. Ибо не мое. А вот на TCS.GetTextFromClip должно бы по идее влиять, но... не влияет. Я тут просмотрел свой код и обнаружил ошибочку: пауза в этом методе вызывалась только в случае повторного (после неудачного) доступа к буферу обмена, а значит практически никогда. Надо пересмотреть и другие места, где есть влияние свойства Pause и, наверное, все-таки установить вызов этой задержки после выполнения команды, это сейчас мне кажется более логичным.
ЗЫ А Sleep на одну секунду, это не слишком? |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Wed Mar 31, 2010 06:26 Post subject: |
|
|
Volniy wrote: | на одну секунду, это не слишком? | Да это только для экспериментального выяснения, где-же там нужна задержка. |
|
Back to top |
|
|
AgereS
Joined: 25 Mar 2010 Posts: 6
|
(Separately) Posted: Thu Apr 01, 2010 10:49 Post subject: |
|
|
а можно выложить готовый результат с вашими корректировками которые обсуждали
а то честно говоря я уже запутался |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Thu Apr 01, 2010 15:12 Post subject: |
|
|
Так ведь нет еще полностью готового-то. Рассуждаем мы покамест. Как лично для меня, так последний Зебра-3, он вполне рабочий, не считая проблемы с неанглийскими именами файлов. Да и та уже решена, только мне нужно выложить слегка откорректированный файл хелпера. Может сегодня вечером выложу, если успею. |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Thu Apr 01, 2010 17:00 Post subject: |
|
|
AgereS
Quote: | лично для меня, так последний Зебра-3, он вполне рабочий, не считая проблемы с неанглийскими именами файлов | Для меня полностью рабочий, проблемы с неанглийскими именами у меня нет. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2571
|
(Separately) Posted: Thu Apr 01, 2010 17:15 Post subject: |
|
|
Tol!k wrote: | проблемы с неанглийскими именами у меня нет |
Правленый реестр?
Code: | [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1252"="c_1251.nls" |
|
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Thu Apr 01, 2010 19:08 Post subject: |
|
|
sa wrote: | Правленый реестр? | Да. |
|
Back to top |
|
|
aLexx
Joined: 14 Mar 2005 Posts: 442 Location: Новокузнецк
|
(Separately) Posted: Sat Apr 03, 2010 03:03 Post subject: |
|
|
Что-то в скрипте "Зебра-3" не совсем понял, для чего введена переменная CurDir?
Вижу, что присваивается, но где используется? |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Sat Apr 03, 2010 03:10 Post subject: |
|
|
Для получения относительных путей вместо полных:
Code: | Buf = Buf & Mid(List(Cnt), Len(CurDir) +2) & vbNewLine |
Банально для вычисления сколько символов в начале пути нужно отсечь. |
|
Back to top |
|
|
aLexx
Joined: 14 Mar 2005 Posts: 442 Location: Новокузнецк
|
(Separately) Posted: Sat Apr 03, 2010 03:18 Post subject: |
|
|
Дак а в самом скрипте строка:
Code: | Buf = Buf & List(Cnt) & vbNewLine |
Надо исправить?! |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Sat Apr 03, 2010 03:31 Post subject: |
|
|
Ты куда смотришь-то? На предыдущей странице скрипт, из которого я эту строку только что и скопировал. У тебя какой-то старый вариант, наверное. Видимо тот, который еще не работал с BranchView. |
|
Back to top |
|
|
aLexx
Joined: 14 Mar 2005 Posts: 442 Location: Новокузнецк
|
(Separately) Posted: Sat Apr 03, 2010 03:43 Post subject: |
|
|
Блин, счас глянул, всё правильно... Видать, и вправду, не обновилась страничка.
Прошу пардона! |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Sat Apr 03, 2010 04:55 Post subject: |
|
|
Вот и обещанный ранее файл с изменениями, сделанными для нормальной работы с русскими именами файлов в Буфере обмена
tcwshelp_b11Plus.rar
Реализовано принудительным заданием локали в Буфере обмена. Можно было бы, конечно, зафиксировать ее на 1049 (Russian), но на всякий ("интернациональный") случай сделал иначе - с помощью дополнительного необязательного параметра.
Quote: | SetTextToClip(Text,[LCID]) помещает Text в буфер обмена Windows, LCID - идентификатор локали для конвертации в Unicode, по умолчанию подставляется системный (GetSystemDefaultLCID) |
Тоесть скорее всего сейчас будет работать и без этого дополнительного параметра, но если нет - попробуйте подставить туда 1049 Code: | SetTextToClip("c:\папка\файл.ext",1049) |
|
|
Back to top |
|
|
aLexx
Joined: 14 Mar 2005 Posts: 442 Location: Новокузнецк
|
(Separately) Posted: Sat Apr 03, 2010 05:02 Post subject: |
|
|
А без регистрации можно скачать??? |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10274 Location: Россия, Саратов
|
(Separately) Posted: Sat Apr 03, 2010 09:14 Post subject: |
|
|
aLexx
У меня скачивается без всякой регистрации. Проверено в IE и в Опере. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
|