Запрос используется в таблице DeluX_API-based. Список матчей за выбранный день либо запрос данных конкретного матча. --- #### Список матчей Для запроса списка матчей необходимо указать dayOffset и timeZone. dayOffset - смещение дня относительно текущего дня. -2 — позавчера, -1 — вчера, 0 — сегодня, 1 — завтра, 2 — послезавтра и т.д Пример: `{{host}}/excel/delux?dayoffset=0&timezone=3&apikey={{excel_apikey}}` --- #### Данные конкретного матча Чтобы получить данны по конкретному матчу необходимо передать gameId Пример: `{{host}}/excel/delux?gameid=1180506&apikey={{excel_apikey}}` --- #### Содержание ответа Ответ содержит таблицы, аналогичные тем, что можно получить с сайта Flashscore - Список последних 30 матчей обеих команд между собой - Список последних матчей обеих команд между собой где команда хозяев играла дома а команда гостей в гостях - Список последних 30 матчей команды хозяев - Список последних 30 матчей команды гостей - Список последних 30 матчей команды хозяев, когда они играли дома - Список последних 30 матчей команды хозяев, когда они играли в гостях - Список последних 30 матчей команды гостей, когда они играли дома - Список последних 30 матчей команды гостей, когда они играли в гостях - Турнирные таблицы (общие матчи, матчи дома, матчи в гостях) - Таблица текущей формы команд - Коэффициенты --- #### Формат ответа Ответ представляет собой текстовый набор инструкций, которые разбираются скриптом VBA. Каждая инструкция записывается на отдельной строке. Инструкции могут быть такие как: активировать лист, заполнить ячейку, **Пример:** ``` _ws:Очные A1|Atletico-MG|string B1|Sao Paulo|string ``` `_ws:Очные`\- Лист, к которому будут применятся все последующие строки `A1|Atletico-MG|string`— В ячейку `A1` будет вставлено значение `Atletico-MG` с типом `string` Типы могут быть: string, date, int, float `_calculate_` — Выполнить пересчет таблицы --- **Пример обработки строк ответа** ``` Dim lines() As String lines = Split(response, vbNewLine) Dim sh As Worksheet For Each l In lines If Len(l) < 3 Then Exit For If InStr(l, "_ws:") = 1 Then Set sh = Sheets(Mid(l, 5)) ElseIf l = "_calculate_" Then Application.Calculate ElseIf InStr(l, "_fn:") = 1 Then Dim func As String func = Mid(l, 5) Application.Run func Else Dim parts() As String parts = Split(l, "|") If Len(parts(2)) = 0 Then ElseIf parts(2) = "float" Then sh.Range(parts(0)).value = val(parts(1)) ElseIf parts(2) = "date" Then sh.Range(parts(0)).NumberFormat = "yyyy.mm.dd hh:mm;@" sh.Range(parts(0)).value = val(parts(1)) ElseIf parts(2) = "int" Then sh.Range(parts(0)).value = CLng(parts(1)) Else sh.Range(parts(0)).NumberFormat = "@" sh.Range(parts(0)).value = parts(1) End If End If Next ``` --- #### Примечание Данные по Live-матчам могут быть с задержкой 2-3 минуты Данные по матчам которые были сыграны вчера, сегодня и завтра не расходуют запросы api ключа
|API|Туториал|