- Сообщения
- 3,999
- Репутация
- 967
Gealut [?]
На самом деле я из этих html буду еще keywords вытаскивать, это то, что между <a x_shutterstock_keyword=" и " href= . Их в каждом файле от10 до 30-40.
Код:
#include "IE.au3"
Dim $descript
$file = "http://www.shutterstock.com/pic-1097173.html"
$oIE = _IECreate($file)
$oLinks = _IETagNameGetCollection ($oIE, "a")
For $oLink In $oLinks
If $oLink.className <> "0" Then
If ($oLink.className = "middlelink") Then
MsgBox(0,"keywords: " & $oLink.getAttribute("x_shutterstock_keyword"), "Links: " & $oLink.getAttribute("href") )
EndIf
EndIf
Next