View previous topic :: View next topic |
Author |
Message |
vadimn
Joined: 17 Apr 2016 Posts: 2
|
(Separately) Posted: Mon Apr 18, 2016 15:57 Post subject: |
|
|
Разобрался. Спасибо! Очень сегодня пригодилось на работе, когда основную папку с документами перенес на другой комп и нужно было перебить все пути ярлыков. |
|
Back to top |
|
|
Strek
Joined: 17 Oct 2010 Posts: 195
|
(Separately) Posted: Sun Sep 04, 2016 16:43 Post subject: ОТЛИЧНО! |
|
|
Батя, ты как всегда на высоте.
БЛАГОДАРСТВУЮ!!!!!
ПС. А можно как-то оформить окошко с результатами, а то сильно большое оно и без прокрутки? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Sep 05, 2016 01:36 Post subject: |
|
|
Strek
Какая интересная реакция на скрипт 7-летней давности.
Тут окошко со скроллбарами разве только на hta рисовать (если без сторонних компонентов) либо в текстовый редактор текст передавать.
Проблему высоты можно решить также выводом нескольких окон. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Tue Sep 06, 2016 03:47; edited 1 time in total |
|
Back to top |
|
|
Strek
Joined: 17 Oct 2010 Posts: 195
|
(Separately) Posted: Mon Sep 05, 2016 02:58 Post subject: |
|
|
Flasher wrote: | Strek
Какая итересная реакция на скрипт 7-летней давности.
|
Семилетней-то семилетней, а более элегантного решения не встречал (хотя возможно они и есть)
Flasher wrote: | Strek
либо в текстовый редактор текст передавать.
|
Можешь помочь? Или в hta (что такое?)
ПС. Пользуюсь Sublime Text 3 |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Sep 05, 2016 10:50 Post subject: |
|
|
Strek wrote: | Можешь помочь? Или в hta (что такое?) | В текстовый проще пареной. Но давай сперва с hta протестируй. Для элегантности в 39, 40 строки вставь:
Quote: | FindStr = InputBox(String(5, vbCr) & Mess(3), Mess(0)):If FindStr = "" Then Quit 0
ReplStr = InputBox(String(5, vbCr) & Mess(4), Mess(0)):If ReplStr = "" Then Quit 0 | И 26 строку замени на:
Code: | Dim HTA: HTA = GetPath("%Temp%\" & FSO.GetTempName)
FSO.CreateTextFile(HTA).Write "<html><head><title>" & Mess(0) &_
"</title><meta http-equiv=X-UA-Compatible content=IE=11/><HTA:APPLICATION" &_
" icon=FXSRESM.dll BorderStyle=raised InnerBorder=no SingleInstance=yes/>" &_
"<style type=text/css> * {margin:0;padding:2;border:solid 0px menu;}body{" &_
"overflow:hidden;}textarea {background-color:transparent;resize:inherit;" &_
"position:absolute;overflow-x:hidden;overflow-y:auto;width:100%;height:100"&_
"%;}</style><script type=text/jscript language=JScript>W=self.screen.avail"&_
"Width;H=self.screen.availHeight;self.moveTo(W*3/16,H*3/16);self.resizeTo" &_
"(W*5/8,H*5/8);document.onkeydown=function(){if(event.keyCode==27)self." &_
"close();if(event.keyCode==13){if(window.screenX==0){self.moveTo(W*3/16,H" &_
"*3/16);self.resizeTo(W*5/8,H*5/8);}else{self.moveTo(0,0);self.resizeTo(W" &_
",H);}}}</script></head><body bgcolor=menu><textarea rows=30 cols=60 wrap" &_
"=hard autofocus readonly>" & Mess(9) & Msg & "</textarea></body></html>"
WSH.Run "%WINDIR%\SYSTEM32\mshta.exe " & HTA,, True : FSO.GetFile(HTA).Delete | Центрирование, закрытие по Esc, переключение с развёрнутым по Enter. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Strek
Joined: 17 Oct 2010 Posts: 195
|
(Separately) Posted: Sat Sep 10, 2016 17:23 Post subject: |
|
|
Flasher, то, что нужно, только прокручивается немного и обрезание происходит и непонятно сколько там ещё.
http://savepic.ru/11275068.png
ПС. Если не сложно, то можно ли выделить текст другим цветом и жирности добавить? Например
IconLocation
TargetPath
WorkingDirectory |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Sep 10, 2016 21:10 Post subject: |
|
|
Strek
Смотрю на скриншот и не вижу отступ. Сейчас код забирал? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Strek
Joined: 17 Oct 2010 Posts: 195
|
(Separately) Posted: Sat Sep 10, 2016 21:17 Post subject: |
|
|
Flasher, да, то бишь по времени сообщения. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Sep 11, 2016 03:29 Post subject: |
|
|
Strek
Чьего сообщения?
Конца можно достичь клавишей End. Перемещаться по клавишам Вниз/PgDn.
Твоя проблема в отсутствии кнопки с нижней стрелкой на скроллбаре. Что за тема? (У меня то они вообще отключены.) И IE какой версии?
Что касается текста, то я бы его вообще несколько иначе оформил. Скажем, " - Выполнена замена:" считаю вообще лишним. А пути можно выровнять по горизонтали и выделить разным цветом. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Strek
Joined: 17 Oct 2010 Posts: 195
|
(Separately) Posted: Sun Sep 11, 2016 11:21 Post subject: |
|
|
Моего сообщения.
Плохо, что клавишами, а не мышкой.
IE - 8
Как его можно оформить? Если не затруднит
Last edited by Strek on Sun Sep 11, 2016 22:17; edited 1 time in total |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Sep 11, 2016 18:20 Post subject: |
|
|
Strek
Мышкой можно скроллить, что ещё удобней.
Так какая тема? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Strek
Joined: 17 Oct 2010 Posts: 195
|
(Separately) Posted: Sun Sep 11, 2016 18:23 Post subject: |
|
|
Ну дык я и говорю, что не до конца прокручивается, можно ли мышкой, а ты говоришь, что мол клавишами?
И как разукрасить цвета текста, указанного выше?
Last edited by Strek on Sun Sep 11, 2016 22:17; edited 1 time in total |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Sep 11, 2016 18:32 Post subject: |
|
|
Скроллинг колесом не всегда подвязан к примыканию бегунка к низу.
Не надо отвечать вопросом на вопрос. Решение (в т.ч. с раскраской) придёт позже после получения всех ответов. Жду ссылку на твою тему. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Strek
Joined: 17 Oct 2010 Posts: 195
|
(Separately) Posted: Sun Sep 11, 2016 21:55 Post subject: |
|
|
Что-то ты меня запутал, какая тема? Какие ответы?
На всё, что ты спрашивал я ответл. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Sep 11, 2016 22:18 Post subject: |
|
|
Strek
Ты не ответил, какая у тебя тема из списка. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
|