Что нового

Функция поиска ссылки в сообщении (getLinkPost)

Ranos1982

Новичок
Сообщения
130
Репутация
1
Функция ищет сообщение на форуме с указанным словом,и при нахождении слова (слово есть в содержании сообщения) - выдает ссылку на его редактирование . Так вот,все работает на форумах к примеру vBulletin . А вот в других - не работает...вернее не знаю,как переделать с тегов на DIV/class . тоесть как с ними работать . Функцию писал я , но давно (не очень) .


Код:
getLinkPost($o_object, 'TD','A','Слово из сообщения', 'Слово в нужной ссылке,по которому ее и будем искать')

Func getLinkPost($o_object, $tagA, $tagB, $stringText, $stringLink)
	$resultGetLink = 0
	$oLinks = _IETagNameGetCollection($o_object, $tagA)
	For $oLink In $oLinks
		If StringInStr($oLink.outertext, $stringText) Then
			$oLinks_h = _IETagNameGetCollection($oLink, $tagB)
			For $oLink_h In $oLinks_h
				$resultLink = $oLink_h.href
				If StringInStr($resultLink, $stringLink) Then
					_GUICtrlRichEdit_AppendText($hRichEdit, '    getLinkPost (' & $tagA & ',' & $tagB & ',' & $stringText & ',' & $stringLink & ') -> successfully (' & $resultLink & ')' & @CRLF)
					$resultGetLink = 1
					Return $resultLink
					ExitLoop
				EndIf
			Next
		EndIf
	Next
	If $resultGetLink = 0 Then _GUICtrlRichEdit_AppendText($hRichEdit, '    getLinkPost (' & $tagA & ',' & $tagB & ',' & $stringText & ',' & $stringLink & ') -> error (' & $resultLink & ')' & @CRLF)
EndFunc   ;==>getLinkPost



Вот ссылка на форум,с которым моя ф-ция не работает к сожалению (за форум - извините) :
http://forumadulto.com/forum/viewtopic.php?f=12&t=527803

P.S. На этом форуме тоже DIV.А мне просто нужно этой ф-цией доставать ссылку на редактирование этого сообщения (это что бы было понятно , что мне нужно ))
 
Автор
R

Ranos1982

Новичок
Сообщения
130
Репутация
1
Прошу гуру прокоментировать . Оказывается ...все просто чтоли..))

Код:
$oIE = _IEAttach('adul')

	$oLinks = _IETagNameGetCollection($oIE, 'DIV')
	For $oLink In $oLinks
	MsgBox(16,'$oLink',$oLink.classname)


	If $oLink.classname == 'postbody' Then                          ; ищем нужный класс
		$oLinks_h = _IETagNameGetCollection($oLink,'a')                   ; в следствии чего можем уже икать дальше - текст,ссылки
			For $oLink_h In $oLinks_h
	              MsgBox(16,'$oLinks_h',$oLink_h.href)
			Next
	EndIf

	Next
 
Верх