Автор Тема: Парсер страниц  (Прочитано 472 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн sense1 [?]

  • Новичок
  • *
  • Сообщений: 4
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Парсер страниц
« Создано: Апрель 08, 2017, 21:38:22 »
Привет. Столкнулся с проблемой, есть парсер ссылок с сайта по искомому значению,только он парсит первую страницу поиска,а нужно всё.

Как это прописать?

Код: AutoIt [Выделить]
$form1 = GUICreate("Find in",150,150)
$find = GUICtrlCreateInput("Find",45,45,75)
$but = GUICtrlCreateButton("Find",52,84,60)
GUICtrlSetBkColor(-1, 0x0)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        CASE $GUI_EVENT_CLOSE
            ExitLoop
        Case $but

$oIE = _IECreate($url,0,1,1,1)
_IELoadWait ($oIE)
$a = GUICtrlRead($find)
$oSubmit = _IEGetObjById($oIE, "search-btn")
$oSet = _IEGetObjById($oIE, "masthead-search-term")
_IEFormElementSetValue ($oSet,$a)
_IEAction($oSubmit, "click")


Sleep(1000)

$oLinks = $oIE.document.getElementsByClassName('yt-uix-sessionlink spf-link')

Local $file = FileOpen($f,1)
For $oLink in $oLinks
    If StringInStr($oLink.href,"watch") And  Not StringInStr($oLink.href,"list") Then

    FileWrite($f,$oLink.href & @CRLF)
    EndIf
Next
FileClose($file)

$sFileName = $f
$sFilePath = @ScriptDir & "\"
$sFile = $sFilePath & $sFileName

$iRet = _FileDeleteDuplicateLines($sFile, 0)
$iExtended = @extended

If $iRet = 1 And $iExtended > 0 Then
    MsgBox(64, "Results", StringFormat("Find in file <%s> mount of doubles: %i", $sFileName, $iExtended))
ElseIf $iExtended = 0 Then
    MsgBox(64, "Results", StringFormat("In file <%s> no doubles", $sFileName))
ElseIf @error = 1 Then
    MsgBox(48, "Results", StringFormat("File<%s> not found ", $sFileName))
ElseIf @error = 2 Then
    MsgBox(48, "Results", StringFormat("Error", $sFileName))
EndIf

    ExitLoop
    EndSwitch
    WEnd

 


Русское сообщество AutoIt

Парсер страниц
« Отправлен: Апрель 08, 2017, 21:38:22 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
0 Ответов
4824 Просмотров
Последний ответ Сентябрь 12, 2010, 11:08:09
от damien2008
2 Ответов
1839 Просмотров
Последний ответ Апрель 02, 2012, 14:57:31
от CreatoR
71 Ответов
35498 Просмотров
Последний ответ Апрель 22, 2017, 18:31:43
от CreatoR
0 Ответов
636 Просмотров
Последний ответ Июль 24, 2014, 19:17:23
от e.belykh
6 Ответов
1600 Просмотров
Последний ответ Февраль 05, 2015, 11:44:42
от darkwhite
8 Ответов
2577 Просмотров
Последний ответ Март 06, 2015, 21:17:45
от Nosfer_x
30 Ответов
13359 Просмотров
Последний ответ Апрель 26, 2015, 11:54:58
от Garrett
0 Ответов
788 Просмотров
Последний ответ Апрель 22, 2015, 17:49:49
от madmasles
3 Ответов
1049 Просмотров
Последний ответ Июль 07, 2015, 13:41:06
от DeeKeiD
2 Ответов
683 Просмотров
Последний ответ Январь 13, 2016, 13:14:54
от akoulev