Что нового

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

Trans

Знающий
Сообщения
257
Репутация
6
Суть такова, через функцию _IEBodyReadText() берём текс страницы, затем нам надо на этой странице найти нужный текст (он всегда меняется, но есть полный список "фраз")
Список все фразы для удобства нужно засунуть в переменную
Код:
$Text[4]=["вечер","день","утро","ночь"]

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

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


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


Добавлено:
Сообщение автоматически объединено:

Попытался сделать так:
Код:
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

Продвинутый
Сообщения
319
Репутация
84
Код:
#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
 
Автор
T

Trans

Знающий
Сообщения
257
Репутация
6
ivsatel, почему-то как пример работает, а в скрипте не хочет((
 

ivsatel

Продвинутый
Сообщения
319
Репутация
84
Trans
Тогда нужно конкретный пример скрипта.
 
Верх