Групповое редактирование .LNK файлов

[vadimn]

Разобрался. Спасибо! Очень сегодня пригодилось на работе, когда основную папку с документами перенес на другой комп и нужно было перебить все пути ярлыков.

[Strek]

Батя, ты как всегда на высоте.

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

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

[Flasher]

Strek
Какая интересная реакция на скрипт 7-летней давности.

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

[Strek]

Strek
Какая итересная реакция на скрипт 7-летней давности.

Семилетней-то семилетней, а более элегантного решения не встречал (хотя возможно они и есть)

Strek
либо в текстовый редактор текст передавать.

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

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

[Flasher]

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

В текстовый проще пареной. Но давай сперва с hta протестируй. Для элегантности в 39, 40 строки вставь:

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 строку замени на:

Код: Выделить всё

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.

[Strek]

Flasher, то, что нужно, только прокручивается немного и обрезание происходит и непонятно сколько там ещё.
http://savepic.ru/11275068.png


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

[Flasher]

Strek
Смотрю на скриншот и не вижу отступ. Сейчас код забирал?

[Strek]

Flasher, да, то бишь по времени сообщения.

[Flasher]

Strek
Чьего сообщения?
Конца можно достичь клавишей End. Перемещаться по клавишам Вниз/PgDn.
Твоя проблема в отсутствии кнопки с нижней стрелкой на скроллбаре. Что за тема? (У меня то они вообще отключены.) И IE какой версии?

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

[Strek]

Моего сообщения.
Плохо, что клавишами, а не мышкой.
IE - 8
Как его можно оформить? Если не затруднит

[Flasher]

Strek
Мышкой можно скроллить, что ещё удобней.
Так какая тема?

[Strek]

Ну дык я и говорю, что не до конца прокручивается, можно ли мышкой, а ты говоришь, что мол клавишами?
И как разукрасить цвета текста, указанного выше?

[Flasher]

Скроллинг колесом не всегда подвязан к примыканию бегунка к низу.
Не надо отвечать вопросом на вопрос. Решение (в т.ч. с раскраской) придёт позже после получения всех ответов. Жду ссылку на твою тему.

[Strek]

Что-то ты меня запутал, какая тема? Какие ответы?
На всё, что ты спрашивал я ответл.

[Flasher]

Strek
Ты не ответил, какая у тебя тема из списка.