Получение данных со скрипта вебстраницы - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день!
Пишу парсер для сайта rusprofile. Возникла сложность на этапе перехода к странице организации
В перечне тегов данной страницы нет тега с URL страницы организации ("www.rusprofile.ru/id/4539245"), при этом в структуре DOM тег с таким содержанием отображается. Из всего перечисленного делаю вывод, что данный текст является результатом выполнения скрипта.
Вопрос: можно ли каким-либо образом обработать скрипт средствами VBA, чтобы в результате получить искомый URL?

Решение задачи: «Получение данных со скрипта вебстраницы»

textual
Листинг программы
Private Sub Form_Load()
Dim doc As HTMLDocument, iframe As HTMLDocument
Dim a As HTMLAnchorElement
    Set DocumentFactory = New HTMLDocument
    Set doc = GetWebPage("http://www.rusprofile.ru/support/search.html?cx=partner-pub-2023889461799885:1217393034&cof=FORID:10&ie=UTF-8&q=7825045809")
    'в результате работы скрипта фрейм создается, но его содержимое не загружается. 
    'нужно получить адрес, который он грузит, и запросить уже его через GetWebPage.
    Set iframe = GetWebPage(doc.querySelector("#cse-search-results iframe").src)
    Do  'глючит MSHTML. говорит, что complete, а ссылка еще не готова. c фреймом, считай, повезло.
        'будем долбить, пока не отдаст
        Set a = iframe.querySelector(".gsc-table-result tbody tr td div a")
        DoEvents
    Loop Until Not a Is Nothing
    MsgBox a.href
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы