Серый форум — VBS: парсинг html-страницы

Re: VBS: парсинг html-страницы

null@example.com (omegastripes) — Sun, 13 May 2018 13:39:31 +0000

В Chrome Developer Tools на вкладке Network видно, что страница перед показом результатов получает AJAX'ом все данные в JSON формате вот по этому URL: https://tickets.fifa.com/API/WCachedL1/ … encyId=RUB. Решил посмотреть, насколько пригоден ответ для парсинга. В массиве Data.Availability приведено наличие билетов для каждого матча и каждой категории зрителя. Каждый элемент масива содержит объект с 3 свойствами:

		{
			"p": "IMT01",
			"c": 37,
			"a": 0
		}

p - это ProductId, его можно найти в другом массиве выше Data.PRODUCTIMT,
c - это категория зрителя, их также можно найти в массиве Data.CATEGORIES,
a - по всей видимости, количество доступных билетов.
Сначала я был удивлен, когда в ответе нашел фрагмент "a":1, но все стало понятно, когда нашел категорию "c":18 - это объект с "CategoryId":18 в массиве Data.CATEGORIES.
Нас же интересуют ненулевые "a" для "c" с 14 по 16. Можно распарсить даже простой регуляркой.

Re: VBS: парсинг html-страницы

null@example.com (The_Immortal) — Tue, 08 May 2018 19:39:05 +0000

Malcev, хм, действительно, так всё работает. Спасибо! Пошел дальше мутить...

Re: VBS: парсинг html-страницы

null@example.com (Malcev) — Tue, 08 May 2018 19:20:38 +0000

Значит замените квадратные на круглые.
Так у меня с вашей ссылкой работает.

WScript.Echo .document.getElementsByClassName("row rowBox rowBoxEven")(0).getElementsByClassName("header")(0).innertext

Re: VBS: парсинг html-страницы

null@example.com (The_Immortal) — Tue, 08 May 2018 19:12:02 +0000

Malcev, да давайте далеко ходить не будем и слегка отпарсим главную страницу форума:

Option Explicit

Const READYSTATE_COMPLETE = 4 
Const TimeOut = 10000
Const link = "http://forum.script-coding.com"

With WScript.CreateObject("InternetExplorer.Application")
	.Visible = False
	.Navigate link
	
	Do
		WScript.Sleep TimeOut	' ожидаем загрузку страницы
	Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
	
	WScript.Echo .document.getElementsByClassName("item-subject")(0).innerText
	'WScript.Echo .document.getElementsByClassName("item-subject")[0].innerText

	.Quit
End With

WScript.Quit 0

Вывелся текст? Ну а теперь уберите комментарий и попробуйте запустить повторно:

Re: VBS: парсинг html-страницы

null@example.com (Malcev) — Tue, 08 May 2018 18:58:44 +0000

Приведите свой код, в котором возникает ошибка.

Re: VBS: парсинг html-страницы

null@example.com (The_Immortal) — Tue, 08 May 2018 18:57:09 +0000

Malcev, в случае с VBS конкретные ноды указываются в круглых скобках, а если указать круглые скобки, то:

The_Immortal пишет:

возникает ошибка

Re: VBS: парсинг html-страницы

null@example.com (Malcev) — Tue, 08 May 2018 18:54:47 +0000

Должны восприниматься.
https://www.w3schools.com/jsref/met_ele … ssname.asp

Re: VBS: парсинг html-страницы

null@example.com (The_Immortal) — Tue, 08 May 2018 18:45:15 +0000

Malcev, не-а - такая строка не воспринимается. Квадратные скобки, как я понял, недопустимы.

P.S. Неужели никто никогда не парсил HTML через VBS?

Re: VBS: парсинг html-страницы

null@example.com (Malcev) — Mon, 07 May 2018 21:56:50 +0000

document.getElementsByClassName("row rowBox rowBoxEven")[0].getElementsByClassName("header")[0].innertext

VBS: парсинг html-страницы

null@example.com (The_Immortal) — Mon, 07 May 2018 13:53:00 +0000

Приветствую!

Возникла необходимость отслеживать на сайте фифы доступность билетов. Есть список интересующих матчей, которые нужно мониторить.

Алгоритм придумал следующий:

1. Формирую массив MatchName, состоящий из названий необходимых для отслеживания матчей:
- Матч 01 - Россия : Саудовская Аравия - Москва «Лужники»
- Матч 07 - Аргентина : Исландия - Москва «Спартак»
- Матч 11 - Германия : Мексика - Москва «Лужники»

2. Поочередно получаю в NodeList дивы с классом "header" (див внутри первого столбец таблицы) и заглядываю внутрь каждого (через innerText), сверяя название текущего матча с первым элементом массива MatchName:

Матч 01 - Россия : Саудовская Аравия - Москва «Лужники»

3. Если название совпало, то каким-то образом перехожу к соседнему диву "col-sm-9 col-xs-12" (второй таблицы) и также каким-то образом изымаю имя класса внутреннго дива для всех 4 квадратов.

Ключевое - это определить класс "class="categoryBox zeroAvailability" - т.е. если этот класс НЕ "zeroAvailability", то далее кидается алерт.

4. Аналогично пройтись по остальным элементам массива MatchName.

Ну в общем, я начал:

Option Explicit

Const READYSTATE_COMPLETE = 4 
Const TimeOut = 10000
Const link = "https://tickets.fifa.com/Services/ADService.html?lang=ru"

Dim objNodeList, i, j

Dim MatchName(2)	' массив из искомых названий матчей 
MatchName(0) = "Матч 01 - Россия : Саудовская Аравия - Москва «Лужники»"
MatchName(1) = "Матч 07 - Аргентина : Исландия - Москва «Спартак»"
MatchName(2) = "Матч 11 - Германия : Мексика - Москва «Лужники»"

With WScript.CreateObject("InternetExplorer.Application")
	.Visible = False
	.Navigate(link)
	
	Do
		WScript.Sleep TimeOut	' ожидаем загрузку страницы
	Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
	
	Set objNodeList = .document.getElementsByClassName("header")	' получаем в NodeList все элементы с указанным классом

	For i = 0 to 2 Step 1
		For j = 0 to objNodeList.length Step 1	
			' ...
		Next		
			
	Next	

	Set objNodeList = Nothing
	
	.Quit
End With

WScript.Quit 0

Вопросы следующие:

1. Вопрос касательно общего алгоритма... Может быть как-то задачу попроще можно решить или логика моя пойдет?

2. Если возможно, то подскажите, пожалуйста, каким образом можно перемещаться по соседним div'ам (из пункта 3. алгоритма)?

Спасибо!

UPD: господа, обрисовываю проблему более узко. Не могли бы вы подсказать каким образом можно сразу по имени класса обратиться к дочерним элементам коллекции NodeList?

К примеру, имеется такая html-структура:


            
                
                    Матч 01 - Россия : Саудовская Аравия - Москва «Лужники»
                
                
                    
                        Матч 1
                    
                    
                        Матчи 1
                    
                    
                         14 ИЮН 18:00
                    
                
            
            
                
                    CAT 1
                

                    CAT 2
                

                    CAT 3
                

                    CAT 4

Моя текущая задача обратится к внутренностям следующих div'ов:

div class="header";
div class="pull-left" (последовательно ко всем 4-ым).

Я понимаю, что плясать я должен от родителя. Т.е. обращаюсь к корневому элементу:

Set objNodeList = .document.getElementsByClassName("row rowBox rowBoxEven")

Далее я хочу сразу прыгнуть на div class="header": div class="row rowBox rowBoxEven" -> div class="col-sm-3 col-xs-12" -> div class="row" -> div class="header". Но вот не могу допендрить как это сделать... Пробовал так:

Set objNodeList = .document.getElementsByClassName("row rowBox rowBoxEven")
Set child = objNodeList.getElementsByClassName("header")

Но возникает ошибка на второй строке...