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