Здравствуйте, Елена.
Вы писали 23 декабря 2016 г., 4:22:17:
> А можно поделиться этим скриптом и каким-нибудь описанием, как там и чего?
>
Итак, опишу как я это всё пользую.
Первое: создаём в пользовательской папке Jaws подпапку:
например "с наименованием - Избранное"
2. безусловно нам нужно открывать эту папку по горячке, для того, что
бы были быстро доступны в проводнике ярлыки и подпапки даного объекта.
Способов такого быстрого доступа несколько.
я использую вот такой скрипт:
Script OpenFolder (string AdresFolder)
; открывает указанную в default.Jkm папку jaws
PlaySound (FindJAWSSoundFile ("Pop.wav"))
; проверяем наличие и заменяем в адресной строке конструкцию %appdata%
If StringContains (AdresFolder, "%appdata%") Then
AdresFolder = StringReplaceSubstrings (AdresFolder, "%appdata%",
stringChopRight (GetJAWSSettingsDirectory (), 42))
EndIf
; проверяем, что переданный скрипту параметр является папкой и существует
If FileExists (AdresFolder) != TRUE && StringRight (StringLeft
(AdresFolder, 2), 1) == ":" then
PlaySound (GetSharedSettingsDirectory ()+"\\SOUNDS\\Piano1-C.wav")
SayString ("Папка отсутствует")
return
EndIf
run ("\"" + AdresFolder + "\"")
EndScript
В файле default.JKM для этого скрипта прописана вот такая строка:
Control+Shift+Windows+[=OpenFolder("%appdata%\Freedom
Scientific\JAWS\15.0\Settings\rus\Избранное")
Очевидно, что комбинацию горячих клавиш вы можете изменить, так же как
и версию Jaws.
Итак, с быстрым доступом к папке "Избранное" мы всё прорешали, теперь
как эту папку пополнять.
в ней создаём свои подпапки, например "интернет магазин",
"Файлообменники" и так далее и
тому подобное.
С этим тоже всё понятно, мы подготавливаем древовидную структуру для
удобства в дальнейшей эксплуатации.
Теперь непосредственно сам скрипт "Избранное":
Есть как минимум два варианта скрипта, это прежде всего от автора и
мой, точнее изменённый.
К стати, большое спасибо Родиону, что он поделился исходниками своего
скрипта.
Мой это точнее сам скрипт с маленькими моими дополнениями.
Например имя ярлыка по умолчанию является текст заголовка странички.
как вы все знаете часто в таком тексте присутствуют недопустимые знаки
для имени файла, так вот мне лень их заменять и убирать каждый рас,
поэтому я сделал дополнение, что бы такие знаки удалялись из имени и не
мешали созданию ярлыка в папке "Избранное".
дам все варианты скрипта, на сколько я помню у этого скрипта было
продолжение, ибо Родион его дополнял, но текущей версией оригинального
скрипта я не обладаю, поэтому дам, то что сам имею.
итак, откорректированный мной скрипт, тот что текущий для меня:
Сперва горячка:
В default.JKM , а точнее в секцию "[virtual keys]" вставляем вот такую
строку:
JawsKey+Alt+U=SohranitInternetAdresVPsevdoURLFile("C:\Users\admin\AppData\Roaming\Freedom Scientific\JAWS\15.0\Settings\rus\Избранное\")
Если нет такой секции, то в конце файла default.jkm напишите вот такую
строку:
[virtual keys]
и далее саму горячку, согласно образцу выше.
Да, не забудьте строку подкорректировать.
Находясь в окне браузера, а именно на страничке, которую хотите
добавить в папку "Избранное", активируйте эту горячку, в моём случаи я
нажимаю:
JawsKey+Alt+U
Выходит окно с предложением изменить имя ярлыка и делаем правку если
надо, далее enter.
Всё. в папке "Избранное" будет создан ярлык этой страницы с с именем из
редактора,
далее я в ручную этот ярлык по потребности переношу в нужную подпапку.
у Родиона я знаю, что есть новая версия скрипта, что даже предлагает
указать подпапку куда надо поместить ярлык, но я не стал этот скрипт
ставить.
Теперь сам текст скрипта "Избранное" с моими изменениями:
Script SohranitInternetAdresVPsevdoURLFile (string sPapka, string sEbii)
; Сохранение URL адресов в папке "Избранное"
Var object oFSO, int n, string sa, string sn, string s, string ss
let sa=GetDocumentPath (); адрес страницы
if StringLower (StringLeft (sa, 4))!="http" then
SayString ("Не определён интернет адрес!")
return
endif
let sn=GetWindowName (GetAppMainWindow (GetFocus ()))
let n=StringContains (StringReverse (sn), " - ")
if n then
let s=stringRight (sn, n-1); браузер
let sn=stringChopRight (sn, n+2); заголовок страницы
endif
let ss=sn
;Начало блока замен запрещённых символов:
let ss=StringReplaceChars (ss, ":", "_")
let ss=StringReplaceChars (ss, "\\", "_")
let ss=StringReplaceChars (ss, "<", "_")
let ss=StringReplaceChars (ss, ">", "_")
;Конец блока замен запрещённых символов.
let n=InputBox ("Отредактируйте предложенное имя или для подсказки введите
пустую строку или для открытия папки введите пробел: ", "Сохранение
псевдо-URL-файла", ss)
; мой блок на очистку строки отзапрещёных символов
var
int iRet, ; счётчик по набору спец-символов
Int LengthSs,
String ListSymbol ; набор спец-символов
let ListSymbol = "|? '? \"? \\?/" ; набор запрещёных символов, причём
разделяются они символом семь
If StringLength (ss) >= 1 Then
Let LengthSs = StringLength(ss)
Let iRet = 1
While (iRet <= 5) ; проверяем строку URL, причём делаем удаление запрещёных
символов
let ss = StringReplaceSubStrings (ss, StringSegment (ListSymbol, "?", iRet),
" ")
Let iRet = iRet + 1
EndWhile
If LengthSs != StringLength (ss) Then
SpeechOn ()
SayString ("URL содержит спец-символы.Выполнено фильтрование сообщения.")
SpeechOff ()
EndIf
EndIf
; конец проверки на формирование текста уведомления
; конец моего блока на очистку строки от запрещёных символов
SpeechOff ()
Pause ()
if n then
if ss=="" then
Delay (1)
let ss="Подсказка к скрипту SohranitInternetAdresVPsevdoURLFile(...)\nАдрес
страницы:\n"+sa+"\nЗаголовок страницы:\n"+sn+"\n"
let ss=ss+s+", версия "+IntToString (GetProgramVersion (GetAppFilePath
()))+", путь: "+GetAppFilePath ()+".\n"
let ss=ss+"Папка сохранения URL-файлов: "+sPapka+".\n"
let ss=ss+"Добавочная строка-идентификатор к имени URL-файлов:
\""+sEbii+"\".\n\n"
let ss=ss+"Скрипт имеет 2 параметра. Первый - путь к папке сохранения (с
конечным бэкслэшем).\n"
let ss=ss+"Второй - добавка-идентификатор к имени псевдо-URL-файла. "
let ss=ss+"Клавиша должна находиться в секции [virtual keys].\nЗакрыть окно
- нажмите Escape."
UserBufferClear ()
UserBufferAddText (ss)
UserBufferActivate ()
Beep ()
elif ss==" " then; если введён пробел
Run ("explorer.exe \""+sPapka+"\"")
else; если введена непустая строка и не пробел
If sEbii != "" Then
let ss=sPapka+ss+sEbii+".url"
Else
let ss = sPapka + ss + ".url"
EndIf
if FileExists (ss) then
let ss="Файл с таким именем уже существует: "+ss
Beep ()
else
let oFSO=CreateObject ("Scripting.FileSystemObject")
let s="[DEFAULT]\r\nBASEURL="+sa+"\r\n[InternetShortcut]\r\nURL="+sa+"\r\n"
oFSO.CreateTextFile(ss).Write(s)
let oFSO=Null ()
if FileExists (ss) then
let ss="URL файл создан"
PlaySound (GetSharedSettingsDirectory ()+"\\SOUNDS\\StartMenu6.wav")
else
Beep ()
let ss="Внимание! URL файл не создан!"
endif; проверяем создан или нет url
endif; проверяем есть или нет url с введённым именем
endif; введена пустая строка или пробел или имя
else
let ss="Отмена сохранения"
endif; Энтер или Эскейп на предложение скрипта
SpeechOn ()
SayString (ss)
EndScript
всё.
понимаю, что материал вышел немного тяжеловат, но проще рассказать не
смог. :)
Вот ссылка на весь материал , что я имею по этому скрипту:
http://rgho.st/6DkmzmD4r
Удачи.
