Как создать ярлык для URL?
Select messages from
# through # FAQ
[/[Print]\]
Goto page Previous  1, 2, 3, 4  Next  :| |:
Total Commander -> Автоматизация Total Commander

#16:  Author: AvadaLocation: Россия, Саратов PostPosted: Sun Aug 07, 2016 11:55
    —
Flasher
С первой проблемой, да, помогло. После чего и на 32-битном TC вылезла вторая проблема. А URL произвольный — хоть, http://wincmd.ru/, например. хотя текущая страница на форуме. Иногда отображается правильное предупреждение, но гораздо чаще вот это самое.

#17:  Author: FlasherLocation: Москва PostPosted: Sun Aug 07, 2016 12:02
    —
Вахмурка
Не проще. У тебя по-прежнему имя ручками вводится.

Avada
Ты же писал, что "в буфере нет искомой информации", а не то, что URL произвольный. Как копируешь его?

#18:  Author: AvadaLocation: Россия, Саратов PostPosted: Sun Aug 07, 2016 12:16
    —
Flasher
Когда URL есть (любой), всё теперь вставляется. Когда буфер пуст, происходит вышеописанное.

#19:  Author: FlasherLocation: Москва PostPosted: Sun Aug 07, 2016 12:24
    —
Avada
Удивительно. А если в буфере не ссылка, а что-то иное?

#20:  Author: AvadaLocation: Россия, Саратов PostPosted: Sun Aug 07, 2016 12:26
    —
Flasher
Выводится нормальное предупреждение, что буфер не содержит гиперссылки.

#21:  Author: FlasherLocation: Москва PostPosted: Sun Aug 07, 2016 12:29
    —
Avada
Не понимаю тогда. Такой скрипт выведет истину?:
Code:
Test = Left("", 4)
If Test <> "www." And Test <> "http" Then MsgBox True

#22:  Author: AvadaLocation: Россия, Саратов PostPosted: Sun Aug 07, 2016 12:31
    —
Flasher
Истина.

#23:  Author: FlasherLocation: Москва PostPosted: Sun Aug 07, 2016 12:40
    —
Avada
Тогда описанное для скрипта поведение совсем неординарное. Это со всеми комбинациями битностей ТС и системы так?
Попробуй ещё заменить 12,13 строки на эти:
Code:
If Test = "" Or (Test <> "www." And Test <> "http") Then MsgBox "Буфер " &_
"обмена не содержит гиперссылки!", 4144, " Создание URL-ярлыка" : WScript.Quit

#24:  Author: AvadaLocation: Россия, Саратов PostPosted: Sun Aug 07, 2016 12:50
    —
Flasher
Вот теперь везде при пустом буфере правильное сообщение. Все битности TС на указанных ранее версий на Win7 x64 (другой у меня ближайшие две недели не будет).

#25:  Author: FlasherLocation: Москва PostPosted: Sun Aug 07, 2016 12:55
    —
Avada
ОК. Внёс обе правки в скрипт.

#26:  Author: ВахмуркаLocation: Большая деревня Москва PostPosted: Sun Aug 07, 2016 14:13
    —
Flasher wrote:
Не проще. У тебя по-прежнему имя ручками вводится
Ну, это вообще не проблема:
Code:
args Path
local Name = browserDomain

if(not Name)
   quit

local Target = "http://" ++ browserDomain

local fh = file.open(Path ++ "\" ++ Name ++ ".url", "w")

if(fh <= 0) do
   messagebox("ok error", "File not opened", "FILE plugin error #1")
   quit
endif   

fh.writeline("[InternetShortcut]")
fh.writeline("URL=" ++ Target)
fh.close


Last edited by Вахмурка on Sun Aug 07, 2016 14:32; edited 1 time in total

#27:  Author: Skif_off PostPosted: Sun Aug 07, 2016 14:19
    —
Flasher wrote:
Не проще. У тебя по-прежнему имя ручками вводится.

Имя не может оказаться слишком длинным?

#28:  Author: ВахмуркаLocation: Большая деревня Москва PostPosted: Sun Aug 07, 2016 14:30
    —
Skif_off wrote:
Имя не может оказаться слишком длинным?
file plugin help wrote:
The plugin can handle long lines of text. You specify the maximum line length with file.setmaxline; the default starting maximum line length is 4K characters
Так что со стороны PowerPro засады ждать не стоит. А ограничения ОСи известны; если нужно, пользуемся строковыми функциями.
Поставленная задача (вытаскивание адреса из браузера) лично мне неинтересна и непонятна - ведь есть закладки (с комментариями, иерархией, частотой доступа и прочим). Просто хотел показать, что эта задача решаема. А вот скриптом для локальных путей, глядишь, и воспользуюсь как-нибудь

#29:  Author: FlasherLocation: Москва PostPosted: Sun Aug 07, 2016 15:14
    —
Skif_off wrote:
Имя не может оказаться слишком длинным?
Может. Могу, в принципе, через скрытый cmd обойти, если кому надо.

Вахмурка wrote:
Ну, это вообще не проблема:
Так это домен, а не заголовок страницы. И откуда он его тащит? Браузеров разных может быть сколько угодно открыто или не открыто вообще.
Вахмурка wrote:
Поставленная задача (вытаскивание адреса из браузера)
Адрес - это не заголовок. В поставленной задаче он не фигурировал.

#30:  Author: Skif_off PostPosted: Sun Aug 07, 2016 15:17
    —
Вахмурка
Я вот про это:
Code:
WSH.CreateShortcut(FN)

где FN = Title & ".url". Длина Title вроде не контролируется.

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

Flasher
Не знаю, нужно ли, я бы подстраховался. Может быть, Len() + предупреждение?



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


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

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

Powered by phpBB © 2001, 2005 phpBB Group