Групповое редактирование .LNK файлов
Select messages from
# through # FAQ
[/[Print]\]
Goto page Previous  1, 2, 3, 4, 5  Next  :| |:
Total Commander -> Автоматизация Total Commander

#16:  Author: vadimn PostPosted: Mon Apr 18, 2016 15:57
    —
Разобрался. Спасибо! Очень сегодня пригодилось на работе, когда основную папку с документами перенес на другой комп и нужно было перебить все пути ярлыков. Very Happy

#17: ОТЛИЧНО! Author: Strek PostPosted: Sun Sep 04, 2016 16:43
    —
Батя, ты как всегда на высоте. Very Happy

БЛАГОДАРСТВУЮ!!!!!

ПС. А можно как-то оформить окошко с результатами, а то сильно большое оно и без прокрутки?

#18:  Author: FlasherLocation: Москва PostPosted: Mon Sep 05, 2016 01:36
    —
Strek
Very Happy Какая интересная реакция на скрипт 7-летней давности.

Тут окошко со скроллбарами разве только на hta рисовать (если без сторонних компонентов) либо в текстовый редактор текст передавать.
Проблему высоты можно решить также выводом нескольких окон.


Last edited by Flasher on Tue Sep 06, 2016 03:47; edited 1 time in total

#19:  Author: Strek PostPosted: Mon Sep 05, 2016 02:58
    —
Flasher wrote:
Strek
Very Happy Какая итересная реакция на скрипт 7-летней давности.

Семилетней-то семилетней, а более элегантного решения не встречал (хотя возможно они и есть) Very Happy
Flasher wrote:
Strek
либо в текстовый редактор текст передавать.

Можешь помочь? Или в hta (что такое?)

ПС. Пользуюсь Sublime Text 3

#20:  Author: FlasherLocation: Москва PostPosted: Mon Sep 05, 2016 10:50
    —
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.

#21:  Author: Strek PostPosted: Sat Sep 10, 2016 17:23
    —
Flasher, то, что нужно, только прокручивается немного и обрезание происходит и непонятно сколько там ещё.
http://savepic.ru/11275068.png


ПС. Если не сложно, то можно ли выделить текст другим цветом и жирности добавить? Например
IconLocation
TargetPath
WorkingDirectory

#22:  Author: FlasherLocation: Москва PostPosted: Sat Sep 10, 2016 21:10
    —
Strek
Смотрю на скриншот и не вижу отступ. Сейчас код забирал?

#23:  Author: Strek PostPosted: Sat Sep 10, 2016 21:17
    —
Flasher, да, то бишь по времени сообщения.

#24:  Author: FlasherLocation: Москва PostPosted: Sun Sep 11, 2016 03:29
    —
Strek
Чьего сообщения?
Конца можно достичь клавишей End. Перемещаться по клавишам Вниз/PgDn.
Твоя проблема в отсутствии кнопки с нижней стрелкой на скроллбаре. Что за тема? (У меня то они вообще отключены.) И IE какой версии?

Что касается текста, то я бы его вообще несколько иначе оформил. Скажем, " - Выполнена замена:" считаю вообще лишним. А пути можно выровнять по горизонтали и выделить разным цветом.

#25:  Author: Strek PostPosted: Sun Sep 11, 2016 11:21
    —
Моего сообщения.
Плохо, что клавишами, а не мышкой.
IE - 8
Как его можно оформить? Если не затруднит Smile


Last edited by Strek on Sun Sep 11, 2016 22:17; edited 1 time in total

#26:  Author: FlasherLocation: Москва PostPosted: Sun Sep 11, 2016 18:20
    —
Strek
Мышкой можно скроллить, что ещё удобней.
Так какая тема?

#27:  Author: Strek PostPosted: Sun Sep 11, 2016 18:23
    —
Ну дык я и говорю, что не до конца прокручивается, можно ли мышкой, а ты говоришь, что мол клавишами?
И как разукрасить цвета текста, указанного выше?


Last edited by Strek on Sun Sep 11, 2016 22:17; edited 1 time in total

#28:  Author: FlasherLocation: Москва PostPosted: Sun Sep 11, 2016 18:32
    —
Скроллинг колесом не всегда подвязан к примыканию бегунка к низу.
Не надо отвечать вопросом на вопрос. Решение (в т.ч. с раскраской) придёт позже после получения всех ответов. Жду ссылку на твою тему.

#29:  Author: Strek PostPosted: Sun Sep 11, 2016 21:55
    —
Что-то ты меня запутал, какая тема? Какие ответы?
На всё, что ты спрашивал я ответл.

#30:  Author: FlasherLocation: Москва PostPosted: Sun Sep 11, 2016 22:18
    —
Strek
Ты не ответил, какая у тебя тема из списка.



Total Commander -> Автоматизация Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2, 3, 4, 5  Next  :| |:
Page 2 of 5

Powered by phpBB © 2001, 2005 phpBB Group