Что нового

[Сеть, интернет] Поиск слова в ссылке.

Ranos1982

Новичок
Сообщения
130
Репутация
1
Доброго времени суток.
Пожалуйста,подскажите в чем ошибка тут...

Код:
Func searchHref($o_object, $substring)

	Local $oLink, $oLinks, $iAllLinks

	Dim $oLinks = _IELinkGetCollection($o_object)
	Dim $iAllLinks = @extended
	For $counter = 0 To $iAllLinks
		$oLink = _IETagNameAllGetCollection($o_object)
		If StringInStr($oLink.href, $substring) <> 0 Then
			Return $oLink.href
			ExitLoop
		EndIf
	Next

EndFunc   ;==>searchHref
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 472
Репутация
2 401
Код:
..
        $oLink = _IETagNameAllGetCollection($oLinks)
...


?
:scratch:
 
Автор
R

Ranos1982

Новичок
Сообщения
130
Репутация
1
Пробелему решил через пару секунд :laugh:

Код:
_IETagNameGetCollection($o_object, "a", $counter)


НО можно ли сделать универсально,тоесть если мы не знаем атрибут/тег 'a' ?
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 472
Репутация
2 401
Код:
#include <IE.au3>

$oIE = _IECreate("http://www.autoitscript.com/site/")

ConsoleWrite(searchHref($oIE, "down") & @CRLF)

Func searchHref($o_object, $substring)
	Local $oLink, $oLinks
	
	$oLinks = _IELinkGetCollection($o_object)
	
	For $oLink In $oLinks
		If StringInStr($oLink.href, $substring) Then
			Return $oLink.href
		EndIf
	Next
EndFunc
 
Автор
R

Ranos1982

Новичок
Сообщения
130
Репутация
1
спасибо.. пьем пиво :beer:
 
Верх