[TC] Скрипт для ДЖОЗ сравнения 2 кусков текста, если кому надо.
Здравствуйте, уважаемые подписчики листа.
Мне понадобилось посимвольно сравнить 2 длинные мудрёные ссылки, на
случая если возникнет похожая задача опять, написал скрипт. Если надо,
пробуйте, ссылки я успешно сравнил, для других задач пока не пробовал.
Использование на свой страх и риск, никаких претензий. Добавьте текст
ниже в .JSS файл нужного приложения, или дефолтный (только не забудьте
совет Руфата про открывание оного в J 18 с рабочего стола!),
скомпилируйте изменения, добавьте вызов скрипта горячими клавишами и
пользуйтесь.
;Начало скрипта сравнения строк
Globals
String sTxt1,
Int iST1On
Script MyCompareTxt ()
Var
String sTxt2,
Int iNumItem
SaveCursor ()
If !iST1On Then
Let sTxt1
=StringReplaceChars(StringTrimTrailingBlanks(GetSpeechHistory()),"\13","")
Let sTxt1 =StringSegment(sTxt1,"\10",-1)
Let iNumItem = DlgSelectItemInList ("Строка под курсором|Текст из
клипборда|Последняя сказанная фраза", "Выбор текста 1 для сравнения", 0)
If iNumItem == 0 Then
RestoreCursor ()
Return
ElIf iNumItem == 1 Then
Let sTxt1 = GetLine ()
ElIf iNumItem == 2 Then
Let sTxt1 = GetClipboardText ()
EndIf
Let iST1On = 1
If StringLength (sTxt1) == 0 Then
Say ("Текст пуст", 0)
Let iST1On = 0
Else
Say("Текст 1 запомнен", 0)
EndIf
RestoreCursor ()
Return
Else
Let sTxt2
=StringReplaceChars(StringTrimTrailingBlanks(GetSpeechHistory()),"\13","")
Let sTxt2 =StringSegment(sTxt2,"\10",-1)
Let iNumItem = DlgSelectItemInList ("Строка под курсором|Текст из
клипборда|Последняя сказанная фраза", "Выбор текста 2 для сравнения", 0)
If iNumItem == 0 Then
RestoreCursor ()
Return
ElIf iNumItem == 1 Then
Let sTxt2 = GetLine ()
ElIf iNumItem == 2 Then
Let sTxt2 = GetClipboardText ()
EndIf
If StringLength (sTxt2) == 0 Then
Say ("Текст пуст", 0)
Else
Say("Текст 2 запомнен", 0)
EndIf
EndIf
If StringCompare (sTxt1, sTxt2, 1) == 0 && StringContains (sTxt1, sTxt2)
==1 Then
Say ("Тексты одинаковы", 0)
Let iST1On = 0
RestoreCursor ()
Return
endIf
Say ("Тексты разные", 0)
Let iST1On = 0
RestoreCursor ()
EndScript
;Конец скрипта
Всего доброго.
Привет всем!
Озвучивание переключения языка клавиатуры в JAWS частичное (первое
переключение не озвучивается, а все последующие озвучиваются нормально),
а в NVDA полностью отсутствует.
Возможно, что JAWS первым переключением пробуждает отображение языка, а
NVDA - нет.
Где находится отображение языка и как его можно настроить?
Или это всплывающее сообщение, которое потом пропадает?
С уважением, Николай Гичун.
nikolaystud***@g*****.com