Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Windows Script Host
Goto page Previous  1, 2, 3 ... 11, 12, 13 ... 25, 26, 27  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Wed Mar 31, 2010 03:06    Post subject: Reply with quote

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

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

ЗЫ А Sleep на одну секунду, это не слишком?
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Wed Mar 31, 2010 06:26    Post subject: Reply with quote

Volniy wrote:
на одну секунду, это не слишком?
Да это только для экспериментального выяснения, где-же там нужна задержка.
Back to top
View user's profile Send private message
AgereS



Joined: 25 Mar 2010
Posts: 6

Post (Separately) Posted: Thu Apr 01, 2010 10:49    Post subject: Reply with quote

а можно выложить готовый результат с вашими корректировками которые обсуждали
а то честно говоря я уже запутался Sad
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Thu Apr 01, 2010 15:12    Post subject: Reply with quote

Так ведь нет еще полностью готового-то. Рассуждаем мы покамест. Как лично для меня, так последний Зебра-3, он вполне рабочий, не считая проблемы с неанглийскими именами файлов. Да и та уже решена, только мне нужно выложить слегка откорректированный файл хелпера. Может сегодня вечером выложу, если успею.
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Thu Apr 01, 2010 17:00    Post subject: Reply with quote

AgereS
Quote:
лично для меня, так последний Зебра-3, он вполне рабочий, не считая проблемы с неанглийскими именами файлов
Для меня полностью рабочий, проблемы с неанглийскими именами у меня нет.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2563

Post (Separately) Posted: Thu Apr 01, 2010 17:15    Post subject: Reply with quote

Tol!k wrote:
проблемы с неанглийскими именами у меня нет

Правленый реестр?
Code:
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1252"="c_1251.nls"
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Thu Apr 01, 2010 19:08    Post subject: Reply with quote

sa wrote:
Правленый реестр?
Да.
Back to top
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Sat Apr 03, 2010 03:03    Post subject: Reply with quote

Что-то в скрипте "Зебра-3" не совсем понял, для чего введена переменная CurDir?
Вижу, что присваивается, но где используется?
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sat Apr 03, 2010 03:10    Post subject: Reply with quote

Для получения относительных путей вместо полных:
Code:
Buf = Buf & Mid(List(Cnt), Len(CurDir) +2) & vbNewLine

Банально для вычисления сколько символов в начале пути нужно отсечь.
Back to top
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Sat Apr 03, 2010 03:18    Post subject: Reply with quote

Дак а в самом скрипте строка:
Code:
      Buf = Buf & List(Cnt) & vbNewLine


Надо исправить?!
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sat Apr 03, 2010 03:31    Post subject: Reply with quote

Ты куда смотришь-то? На предыдущей странице скрипт, из которого я эту строку только что и скопировал. У тебя какой-то старый вариант, наверное. Видимо тот, который еще не работал с BranchView.
Back to top
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Sat Apr 03, 2010 03:43    Post subject: Reply with quote

Блин, счас глянул, всё правильно... Видать, и вправду, не обновилась страничка.
Прошу пардона!
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sat Apr 03, 2010 04:55    Post subject: Reply with quote

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

Тоесть скорее всего сейчас будет работать и без этого дополнительного параметра, но если нет - попробуйте подставить туда 1049
Code:
SetTextToClip("c:\папка\файл.ext",1049)
Back to top
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Sat Apr 03, 2010 05:02    Post subject: Reply with quote

А без регистрации можно скачать???
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10236
Location: Россия, Саратов

Post (Separately) Posted: Sat Apr 03, 2010 09:14    Post subject: Reply with quote

aLexx
У меня скачивается без всякой регистрации. Проверено в IE и в Опере.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 11, 12, 13 ... 25, 26, 27  Next
Page 12 of 27

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group