Как найти однокоренные слова на странице

Слова divergence на сайте https://www.forexfactory.com/ не нашел, сделал для корня «Germ» (Germany)

$str = InetRead("https://www.forexfactory.com/") ;читаем страницу
$find = StringRegExp(BinaryToString($str, 4), "(Germ[^h]*)h", 3) ;ищем слова, начинающиеся на "Germ" и записываем их в массив
If IsArray($find) And UBound($find) >= 3 Then ;если найдено 3 и более слов
	For $i in $find
		FileWriteLine(@ScriptDir & "foundedwords.txt", $i) ;записываем слова в файл foundedwords.txt
	Next
EndIf

hedji
Спасибо, однако считает только на первой странице. Как посчитать на всех страницах сайта?

Добавлено:

Слово необязательно должно начинаться на «Divergence». Возможные варианты: «WPR_Divergence.mq4», «Divergence~!@#$%^&*()_» «RSI_Divergence_v2».

Собираю сторонним софтом ссылки в файл. Из скрипта читаю и перехожу по ним.
Но как сделать чтобы сохранялись слова перед которыми есть символы например ищу «pai» находит «pairs»,
«pair..» нужно чтобы находил ещё и «multipair». Как это сделать?

#include <File.au3>
$oFile = FileOpen("lin.txt")
While 1
    $oURL = FileReadLine($oFile)
    If @error Then ExitLoop
$str = InetRead($oURL) ;читаем страницу https://www.forexfactory.com/showthread.php?t=526638
$find = StringRegExp(BinaryToString($str, 4), "(pai[^h]*)h", 3) ;ищем слова
If IsArray($find) And UBound($find) >= 3 Then ;если найдено 3 и более слов
    For $i in $find
        FileWriteLine(@ScriptDir & "foundedwords1.txt", $i) ;записываем слова в файл foundedwords.txt
    Next
EndIf
Sleep(1000)
WEnd
FileClose($hFile)

$word = "pai"
$find = StringRegExp(BinaryToString($str, 4), "(?i)S*" & $word & "S*", 3) ;ищем слова

InnI, Спасибо.
Не считает если есть спец. символы,
не видит «Divergence~!@#$%^&*()_» или «~!@#$%^&*()_Divergence»
Как сделать чтобы считал все?

$word = "divergence"
$str = InetRead("http://autoit-script.ru/index.php?topic=26002.msg145122#msg145122") ;
$find = StringRegExp(BinaryToString($str, 4), "(?i)S*" & $word & "S*", 3) ;ищем слова
If IsArray($find) And UBound($find) >= 1 Then ;
    For $i in $find
        FileWriteLine(@ScriptDir & "foundedwords1.txt", $i) ;записываем слова в файл foundedwords.txt
    Next
EndIf

Alofa
Вероятно я не правильно выразилась.
скрипт находит и пишет в файл всё как мне нужно

"Divergence".
"WPR_Divergence.mq4",
"RSI_Divergence_v2"
"divergence"

должно быть ещё словечко «Divergence~!@#$%^&*()_» после WPR_Divergence.mq4

Вот в этом сообщении оно есть

Anna сказал(а):

Слово необязательно должно начинаться на «Divergence». Возможные варианты: «WPR_Divergence.mq4», «Divergence~!@#$%^&*()_» «RSI_Divergence_v2».

Anna [?]

не видит «Divergence~!@#$%^&*()_» или «~!@#$%^&*()_Divergence»

InetRead скачивает страницу для незарегистрированного пользователя. К тому же на странице есть скрипты. В результате страница выглядит так (см. вложение). Поэтому и не находит.

InnI [?]

Что же делать? Нельзя ли добавить условие: если встретился [email protected] то заменить на значок «@»

Anna [?]

Вы собираетесь искать слова на этом форуме или на forexfactory.com?

Поймите, что код страницы и то, что отображает браузер — это совсем не одно и то же. Если вам нужно обрабатывать результаты работы браузера, то нужно загружать страницу в браузер и получать содержимое страницы из браузера. Alofa сделал для вас пример — пользуйтесь. Если нужен поиск между пробелами, то скопируйте шаблон RegExp из моего скрипта.

InnI
Искать буду на forexfactory.com, но в чём разница?
InnI [?]

Если вам нужно обрабатывать результаты работы браузера

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

Работает неоправданно медленно.

Anna [?]

В коде страниц.

Вы ошибаетесь. Современные страницы — это не только html-разметка, но и скрипты. Браузер, фактически, является интерпретатором: читает, разбирает, выполняет и выводит результат. Код страницы может содержать всего одну ссылку на скрипт, а браузер выполнит этот скрипт и покажет результат. Поэтому, скачав код страницы, вы можете не найти нужных данных, а получив результат работы браузера — найдёте всё необходимое.

Работает неоправданно медленно

Sleep(1000) уберите — будет на [количество_ссылок] секунд быстрее

И в последней строке опечатка — вместо $hFile нужно $oFile

Anna [?]

Не будет быстрее если уже выполнили _IECreate, то сделать _IEnavigte?

Зачем спрашивать? Попробуйте и узнаете. Заодно нам расскажете.

Как искать 2 слова за один проход?

Добавлено:

InnI [?]

_IENavigate быстрее

Anna [?]

"(?i)S*(?:" & $sWord & "|" & $sWord_1 & ")S*"

Только в вашем коде она не работает, т.к. _IEQuit уничтожает объект.

InnI
Спасибо.
InnI [?]

Только в вашем коде она не работает, т.к. _IEQuit уничтожает объект.

А если так

If IsObj($oIE) Then
  _IENavigate($oIE, $oURL)
Else
  $oIE = _IECreate($oURL, 0, 0)
EndIf
$sText = _IEBodyReadText($oIE) ;
;_IEQuit($oIE)

то когда уничтожать?

Набить Ага…

а самое прикольное в том что и это еще не всё)) там еще пару страниц можно с конем «бег» написать.. типа — ПРОбегал, ПЕРЕбегал, НАбегал.. и т.д.))