View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 16, 2011 15:58 Post subject: |
|
|
ask-rus wrote: | Скрипт жмем, открывается Wincmd.ini. | А вот так тоже открывается?:
Code: | CreateObject("Scripting.FileSystemObject").OpenTextFile(CreateObject("WScript.Shell")_
.ExpandEnvironmentStrings("%COMMANDER_PATH%\Wincmd.ini"), 1).ReadAll |
|
|
Back to top |
|
|
ask-rus
Joined: 10 Nov 2009 Posts: 2076 Location: Russian Federation
|
(Separately) Posted: Thu Jun 16, 2011 19:20 Post subject: |
|
|
Flasher wrote: | А вот так тоже открывается?: |
Я не знаю, что этим заменить. Попробовал вместо:
Code: | INI = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%\Wincmd.ini")
Text = FSO.OpenTextFile(INI, 1).ReadAll |
Выдает ошибку. _________________ «Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 16, 2011 19:25 Post subject: |
|
|
Я не писал, что надо что-то менять. Это отдельный скрипт. |
|
Back to top |
|
|
ask-rus
Joined: 10 Nov 2009 Posts: 2076 Location: Russian Federation
|
(Separately) Posted: Fri Jun 17, 2011 09:01 Post subject: |
|
|
Flasher wrote: | А вот так тоже открывается?: |
Так не открывается.
Добавлено спустя 13 минут:
Flasher wrote: | WScript.Sleep 10 - вместо единицы пробуй 6, 5, 4, 3, 2. |
WScript.Sleep 60 - заработал:
Flasher wrote: | Окно мелькает очень быстро. |
А я по-прежнему на своем варианте. _________________ «Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2597
|
(Separately) Posted: Fri Jun 17, 2011 11:43 Post subject: |
|
|
Flasher wrote: | + Окно мелькает очень быстро. | А ради чего оно мелькает? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jun 17, 2011 11:48 Post subject: |
|
|
ask-rus wrote: | Так не открывается. | Я вообще понятия не имею, за счёт чего он у тебя открывается.
ask-rus wrote: | WScript.Sleep 60 - заработал: | А с меньшими нет?
ask-rus wrote: | А я по-прежнему на своем варианте. | Ну, если открывается файл, то я бы тоже на нём оставался. Потом ещё с регекспами попробую, может, с ними реплейс не глючит.
sa wrote: | А ради чего оно мелькает? | Для того, чтобы сразу переключение происходило. |
|
Back to top |
|
|
ask-rus
Joined: 10 Nov 2009 Posts: 2076 Location: Russian Federation
|
(Separately) Posted: Fri Jun 17, 2011 11:56 Post subject: |
|
|
Flasher wrote: | А с меньшими нет? |
2, 3, 4 - нет, 5 не проверял. _________________ «Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2597
|
(Separately) Posted: Fri Jun 17, 2011 11:56 Post subject: |
|
|
Flasher wrote: | чтобы сразу переключение происходило. | Вроде бы и без вызова диалога внутренних ассоциаций переключение сразу происходит..? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jun 17, 2011 12:00 Post subject: |
|
|
sa
Посмотри в папке с ассоциированными в ТС файлами как меняются значки при вызове. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2597
|
(Separately) Posted: Fri Jun 17, 2011 12:10 Post subject: |
|
|
Flasher wrote: | как меняются значки | Понял теперь. Замечу для ясности, что фактическое переключение внутренних ассоциаций (за вычетом изменения ассоциированных значков) происходит и без мелькающего диалога. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jun 17, 2011 14:16 Post subject: |
|
|
sa wrote: | фактическое переключение внутренних ассоциаций (за вычетом изменения ассоциированных значков) происходит и без мелькающего диалога. | Но кому оно такое, спрашивается, надо? Это было понятно, поэтому я и написал в своё время.
Ты-то в итоге какой вариант выбрал? |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2597
|
(Separately) Posted: Fri Jun 17, 2011 14:29 Post subject: |
|
|
Flasher wrote: | Ты-то в итоге какой вариант выбрал? |
Пока, чтобы избавиться от задвоения [Associations] вместо твоих мельканий использую свои:
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 |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jun 17, 2011 14:43 Post subject: |
|
|
sa wrote: | Code: | WSH.SendKeys "+{TAB 5} {TAB 5}{ENTER}+{TAB 5} {ENTER}{TAB 2}" |
| Спасибо, посмешил.
Тогда уж Code: | WSH.SendKeys "+{TAB 5} ~" |
|
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2597
|
(Separately) Posted: Fri Jun 17, 2011 15:07 Post subject: |
|
|
Нет, надо вернуть прежнее состояние цветов для типов файлов.
А вот последние {TAB 2} действительно для данного случая избыточны. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jun 17, 2011 15:08 Post subject: |
|
|
sa wrote: | Нет, надо вернуть прежнее состояние цветов для типов файлов. | Не нет, а да, там два пробела. Избыточно там вообще всё, начиная с вызова настроек, которые из-за громоздкого файла конфигурации долго открываются (тут 60 мс явно мало), заканчивая набором ненужных переходов и применений. |
|
Back to top |
|
|
|