Поиск текста из списка на странице браузера

[Trans]

Суть такова, через функцию _IEBodyReadText() берём текс страницы, затем нам надо на этой странице найти нужный текст (он всегда меняется, но есть полный список "фраз")
Список все фразы для удобства нужно засунуть в переменную

$Text[4]=["вечер","день","утро","ночь"]

Получаем примерно такой код:

$HTMLText='Реклама'&@CRLF&'На форуме принято ставить участникам +1 и/или отмечать полезные сообщения отвечающих в теме участников,'&@CRLF&'а также помечать тему решенной после получения ответа на свой вопрос!'&@CRLF&'вечер'

$Text[4]=["вечер","день","утро","ночь"]
;а вот тут должен быть поиск

в принципе сам вопрос, как сделать данный поиск?!


Добавлено:

Сообщение автоматически объединено: 1 Мар 2013

Попытался сделать так:

Local $NameMob=FileRead('Mobs.txt')
Local $ChatHelpText=_IEBodyReadText($oIE)
For $i=0 To UBound($NameMob) - 1
	If StringInStr($ChatHelpText,$NameMob[$i]) Then
		ConsoleWrite($NameMob[$i]&@LF)
	_IELinkClickByText($oIE,'присоединиться')
	EndIf
Next
If Not _IELinkClickByText($oIE,'присоединиться') Then _IELinkClickByText($oIE,'общий')
EndFunc

Но всё равно нажимается на ссылку, даже на странице нету нужного текста

 

[ivsatel]

#include <Array.au3>

$HTMLText='Реклама'&@CRLF&'На форуме принято ставить участникам +1 и/или отмечать полезные сообщения отвечающих в теме участников,'&@CRLF&'а также помечать тему решенной после получения ответа на свой вопрос!'

Dim $Text[6] = ['', 'вопрос!', 'форуме', 'утро', 'ночь', 'отмечать']
;а вот тут должен быть поиск

For $i = 1 To 5
	$NT = _ArrayToString($Text, '', $i, $i)
	$R = StringRegExp($HTMLText, $NT, 3)
		If IsArray($R) Then
			$RT = $R[0]
			MsgBox('','','Попытка №'&$i&' оказалась удачной'&@LF&'Значение совпадения'&@LF&'-=-'&$RT&'-=-')
		Else
			MsgBox('','','Попытка №'&$i&' оказалась неудачной')
		EndIf
Next

 

[Trans]

ivsatel, почему-то как пример работает, а в скрипте не хочет((

 

[ivsatel]

Trans
Тогда нужно конкретный пример скрипта.