[TC] скрипты Джоза: поиск и учёт слова в веб-документе
Здравствуйте, господа подписчики.
Не могу понять, какую функцию использовать для поиска и учёта повторяющихся слов
на Интернет-странице.
К примеру, есть документ, в котором слово "вечер" может встречаться как 0, так
и 1, и 3, и 4 раза. Лазить по всему тексту вручную - не вариант.
Можно ли поиск и учёт данного слова реализовать автоматически в скрипте? Т. е.
при нажатии на гор.клавишу скрипт должен говорить "вечер 5 раз" или "слова "вечер"
не найдено".
Доброго времени суток, Игорь.
Из сообщения от 27.12.2009 4:12:
1. Работает в обоих браузерах.
2. Содержимое больших страниц может быть обрезано
до максимальной длины строковой переменной jaws.
int Function GetItemCount (string sSearchText)
Var
int iCount,
object oRegExp,
object oNull,
string sAllText
SpeechOff ()
If GetSelectedText (0) Then
PerformScript SelectAll()
EndIf
PerformScript SelectAll()
Let sAllText = GetSelectedText (0)
PerformScript SelectAll()
SpeechOn ()
Let oRegExp = CreateObject("VBScript.RegExp")
Let oRegExp.Pattern = sSearchText
Let oRegExp.Global = True
Let oRegExp.IgnoreCase = True
Let oRegExp.Multiline = True
Let iCount = oRegExp.Execute(sAllText).Count
Let oRegExp = oNull
Return iCount
EndFunction
Script TmpScript ()
; На странице WWW.Tiflocomp.ru возвращает 3
SayInteger(GetItemCount("TifloComp"))
EndScript
С уважением, Руслан Усачев