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 

Кнопка вкл\выкл "внутренние ассоциации"
Goto page Previous  1, 2, 3 ... 6, 7, 8, 9, 10, 11  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Thu Jun 16, 2011 15:58    Post subject: Reply with quote

ask-rus wrote:
Скрипт жмем, открывается Wincmd.ini.
А вот так тоже открывается?:
Code:
CreateObject("Scripting.FileSystemObject").OpenTextFile(CreateObject("WScript.Shell")_
.ExpandEnvironmentStrings("%COMMANDER_PATH%\Wincmd.ini"), 1).ReadAll
Back to top
View user's profile Send private message
ask-rus



Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation

Post (Separately) Posted: Thu Jun 16, 2011 19:20    Post subject: Reply with quote

Flasher wrote:
А вот так тоже открывается?:

Я не знаю, что этим заменить. Попробовал вместо:
Code:
INI = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%\Wincmd.ini")
Text = FSO.OpenTextFile(INI, 1).ReadAll

Выдает ошибку.
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Thu Jun 16, 2011 19:25    Post subject: Reply with quote

Я не писал, что надо что-то менять. Это отдельный скрипт.
Back to top
View user's profile Send private message
ask-rus



Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation

Post (Separately) Posted: Fri Jun 17, 2011 09:01    Post subject: Reply with quote

Flasher wrote:
А вот так тоже открывается?:

Так не открывается.

Добавлено спустя 13 минут:

Flasher wrote:
WScript.Sleep 10 - вместо единицы пробуй 6, 5, 4, 3, 2.

WScript.Sleep 60 - заработал:
Flasher wrote:
Окно мелькает очень быстро.

А я по-прежнему на своем варианте.
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2597

Post (Separately) Posted: Fri Jun 17, 2011 11:43    Post subject: Reply with quote

Flasher wrote:
+ Окно мелькает очень быстро.
А ради чего оно мелькает?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jun 17, 2011 11:48    Post subject: Reply with quote

ask-rus wrote:
Так не открывается.
Я вообще понятия не имею, за счёт чего он у тебя открывается.
ask-rus wrote:
WScript.Sleep 60 - заработал:
А с меньшими нет?
ask-rus wrote:
А я по-прежнему на своем варианте.
Ну, если открывается файл, то я бы тоже на нём оставался. Потом ещё с регекспами попробую, может, с ними реплейс не глючит.

sa wrote:
А ради чего оно мелькает?
Для того, чтобы сразу переключение происходило.
Back to top
View user's profile Send private message
ask-rus



Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation

Post (Separately) Posted: Fri Jun 17, 2011 11:56    Post subject: Reply with quote

Flasher wrote:
А с меньшими нет?

2, 3, 4 - нет, 5 не проверял.
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2597

Post (Separately) Posted: Fri Jun 17, 2011 11:56    Post subject: Reply with quote

Flasher wrote:
чтобы сразу переключение происходило.
Вроде бы и без вызова диалога внутренних ассоциаций переключение сразу происходит..?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jun 17, 2011 12:00    Post subject: Reply with quote

sa
Посмотри в папке с ассоциированными в ТС файлами как меняются значки при вызове.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2597

Post (Separately) Posted: Fri Jun 17, 2011 12:10    Post subject: Reply with quote

Flasher wrote:
как меняются значки
Понял теперь. Замечу для ясности, что фактическое переключение внутренних ассоциаций (за вычетом изменения ассоциированных значков) происходит и без мелькающего диалога.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jun 17, 2011 14:16    Post subject: Reply with quote

sa wrote:
фактическое переключение внутренних ассоциаций (за вычетом изменения ассоциированных значков) происходит и без мелькающего диалога.
Но кому оно такое, спрашивается, надо? Это было понятно, поэтому я и написал в своё время.
Ты-то в итоге какой вариант выбрал?
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2597

Post (Separately) Posted: Fri Jun 17, 2011 14:29    Post subject: Reply with quote

Flasher wrote:
Ты-то в итоге какой вариант выбрал?

Пока, чтобы избавиться от задвоения [Associations] вместо твоих мельканий использую свои: Smile
Code:
WSH.Exec("%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe /ef tcm(494)")
WScript.Sleep 60
WSH.SendKeys "+{TAB 5} {TAB 5}{ENTER}+{TAB 5} {ENTER}{TAB 2}"
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jun 17, 2011 14:43    Post subject: Reply with quote

sa wrote:
Code:
WSH.SendKeys "+{TAB 5} {TAB 5}{ENTER}+{TAB 5} {ENTER}{TAB 2}"
Спасибо, посмешил. Very Happy
Тогда уж
Code:
WSH.SendKeys "+{TAB 5}  ~"
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2597

Post (Separately) Posted: Fri Jun 17, 2011 15:07    Post subject: Reply with quote

Flasher wrote:
Тогда уж

Нет, надо вернуть прежнее состояние цветов для типов файлов.
А вот последние {TAB 2} действительно для данного случая избыточны.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jun 17, 2011 15:08    Post subject: Reply with quote

sa wrote:
Нет, надо вернуть прежнее состояние цветов для типов файлов.
Не нет, а да, там два пробела. Избыточно там вообще всё, начиная с вызова настроек, которые из-за громоздкого файла конфигурации долго открываются (тут 60 мс явно мало), заканчивая набором ненужных переходов и применений.
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 ... 6, 7, 8, 9, 10, 11  Next
Page 7 of 11

 
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