Добрый день.
Подскажите, как пройти по всем ссылкам в справочнике, находящихся на нескольких страницах,
и собрать емейл и телефоны с открывшихся сайтов(на странице "Контакты").
Пока у меня, только собираются ссылки в массив с первой страницы, по две одинаковые.
Подскажите, как пройти по всем ссылкам в справочнике, находящихся на нескольких страницах,
и собрать емейл и телефоны с открывшихся сайтов(на странице "Контакты").
Пока у меня, только собираются ссылки в массив с первой страницы, по две одинаковые.
Код:
#include <IE.au3>
#include <Array.au3>
$j = 0
Dim $aLinks[$j + 1][2]
$sUrl = 'http://www.bizspravka.su/%D0%90%D0%BD%D0%B0%D0%BF%D0%B0/search/?what=%D1%81%D0%B0%D0%B9%D0%B4%D0%B8%D0%BD%D0%B3'
$sSearch = '-id/?'
$oIE = _IECreate($sUrl)
For $i = 0 To 40 ;будем искать ссылки на 5-и первых страницах с результатами поиска.
If $i Then ;на первой странице уже искали
$sText = _IEBodyReadText($oIE) ;читаем текст на странице
If StringInStr($sText, 'Следующая') Then ;если на странице есть этот текст
_IELinkClickByText($oIE, 'Следующая') ;кликаем по ссылке, т.е. переходим на следующую страницу
Else ;если на странице нет текста 'следующая'
ExitLoop;выходим из цикла
EndIf
EndIf
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
If StringInStr($oLink.href, $sSearch) Then
$j += 1
ReDim $aLinks[$j + 1][2]
$aLinks[$j][0] = $oLink.innertext
$aLinks[$j][1] = $oLink.href
EndIf
Next
$aLinks[0][0] = $j
_ArrayDisplay($aLinks)
;_IEQuit($oIE)
Next