5 минут назад, Jahongir Gayiberdiyev сказал:

При анализе встречи между командами, перешедшими из одной лиги в другую.  
Например: ИСПАНИЯ: Сегунда    2025.08.16 00:30    матч Вальядолид – Сеута. 

Данные второй команды не записывались на листы "Гости", "ГостиГости", "ГостиДома" — выводились пустые значения.  В код были внесены небольшие изменения. Так будет правильно?  Уважаемые знатоки требуется ваша помощь. 

Sub getHome(ts1 As Long, tour1_name As String, home_id1 As String, away_id1 As String, country_id As String)
    On Error Resume Next
    Dim shGameAll As Worksheet, shGameHome As Worksheet, shGameAway As Worksheet
    Dim wsLiga As Worksheet
    Dim arrLigs As Variant
    Dim r As Long
    Dim matchLeagueFound As Boolean
    Set shGameAll = ThisWorkbook.Sheets("Дома")
    Set shGameHome = ThisWorkbook.Sheets("ДомаДома")
    Set shGameAway = ThisWorkbook.Sheets("ДомаГости")
    Set wsLiga = ThisWorkbook.Sheets("Лига")
    arrLigs = wsLiga.Range("A2", wsLiga.Cells(wsLiga.Rows.Count, "A").End(xlUp)).Value
    b1 = 2
    Set objRegExp = CreateObject("VBScript.RegExp"): objRegExp.Pattern = "\s\(...\)"
    fs_input = getHttp("https://d." & sourcer & "x/feed/pr_1_" & country_id & "_" & home_id1 & "_0_0" & sufx)
    fs_rows = Split(fs_input, "¬~")
    fs_rows_length = UBound(fs_rows) - LBound(fs_rows)
    For i = 0 To fs_rows_length
    fs_row = Split(fs_rows(i), "¬")
    fs_row_length = UBound(fs_row) - LBound(fs_row)
    If fs_row_length < 0 Then GoTo nextpoint
        fs_index = Split(fs_row(0), ChrW(&HF7))
        If IsArray(fs_index) Then
            fs_index_name = fs_index(0)
            fs_index_value = fs_index(1)
        End If
       # --- Проверка названия лиги ---
        If fs_index_name = "ZA" Then
            tour2_name = fs_index_value
            matchLeagueFound = False
            For r = LBound(arrLigs, 1) To UBound(arrLigs, 1)
                If StrComp(Trim(tour2_name), Trim(CStr(arrLigs(r, 1))), vbTextCompare) = 0 Then
                    matchLeagueFound = True
                    Exit For
                End If
            Next r
        End If
        # --- Если есть данные об игре или лига не совпадает, пропускаем---
        If fs_index_name = "AA" Then
            If ligues_mod = 2 And Not matchLeagueFound Then GoTo nextpoint
         #--- Данные об игре ---
            homeFTOT = "": awayFTOT = "": homeFT = "": awayFT = ""
            home1T = "": away1T = "": home2T = "": away2T = ""
            For j = 0 To fs_row_length
                fs_row_parts = Split(fs_row(j), ChrW(&HF7))
                Select Case fs_row_parts(0)
                    Case "AA": match_id = fs_row_parts(1)
                    Case "AD":
                        ts2 = Val(fs_row_parts(1))
                        date_match = DateAdd("s", fs_row_parts(1), "01/01/1970")
                        date_match = DateAdd("h", timezone, date_match)
                        date_match = Format(date_match, "yyyy.mm.dd hh:mm")
                    Case "AB": status_game = fs_row_parts(1)
                    Case "AC": status_game_code = fs_row_parts(1)
                    Case "AE": home_name = fs_row_parts(1)
                    Case "AF": away_name = fs_row_parts(1)
                    Case "AG": homeFTOT = fs_row_parts(1)
                    Case "AH": awayFTOT = fs_row_parts(1)
                    Case "AT": homeFT = fs_row_parts(1)
                    Case "AU": awayFT = fs_row_parts(1)
                    Case "BC": home2T = fs_row_parts(1)
                    Case "BD": away2T = fs_row_parts(1)
                    Case "PX": home_id2 = fs_row_parts(1)
                    Case "PY": away_id2 = fs_row_parts(1)
                End Select
            Next j
            If status_game = "3" And _
               (status_game_code = "3" Or status_game_code = "10" Or status_game_code = "11") And _
               (ts2 < ts1) Then
               If homeFTOT <> "" And home2T <> "" And awayFTOT <> "" And away2T <> "" Then
                    home1T = Val(homeFTOT) - Val(home2T)
                    away1T = Val(awayFTOT) - Val(away2T)
                End If
                home_name = objRegExp.Replace(home_name, "")
                away_name = objRegExp.Replace(away_name, "")
                With shGameAll
                    .Range("A" & b1).Value = tour2_name
                    .Range("B" & b1).Value = date_match
                    .Range("C" & b1).Value = home_name
                    .Range("D" & b1).Value = away_name
                    .Range("E" & b1).Value = home1T
                    .Range("F" & b1).Value = away1T
                    .Range("G" & b1).Value = home2T
                    .Range("H" & b1).Value = away2T
                    If homeFT = "" Or awayFT = "" Then
                        .Range("J" & b1).Value = homeFTOT
                        .Range("K" & b1).Value = awayFTOT
                    Else
                        .Range("J" & b1).Value = homeFT
                        .Range("K" & b1).Value = awayFT
                    End If
                End With
                If home_id2 = home_id1 Then
                    shGameAll.Range("I" & b1).Value = "Дома"
                    shGameHome.Rows(b1 & ":" & b1).Value = shGameAll.Rows(b1 & ":" & b1).Value
                Else
                    shGameAll.Range("I" & b1).Value = "Гости"
                    shGameAway.Rows(b1 & ":" & b1).Value = shGameAll.Rows(b1 & ":" & b1).Value
                End If
                b1 = b1 + 1
                If b1 = 60 Then Exit For
            End If
        End If
nextpoint:
        DoEvents
    Next i
    shGameAll.Range("A:K").Sort Key1:=shGameAll.Columns("B"), Header:=xlYes, Order1:=xlDescending
    shGameHome.Range("A:K").Sort Key1:=shGameHome.Columns("B"), Header:=xlYes, Order1:=xlDescending
    shGameAway.Range("A:K").Sort Key1:=shGameAway.Columns("B"), Header:=xlYes, Order1:=xlDescending
End Sub

 

Так ведь так и должно, наверное, быть. Команда же не играла в этой лиге...

1 минуту назад, The Iron Wizard сказал:

Так ведь так и должно, наверное, быть. Команда же не играла в этой лиге...

Да, я изменил код.  Не загружал другую лигу если текушая лига Испания: Сегунда, таблица загружал результаты игр только этой лиги. Если одна из команд раньше не участвовал в этой лиге его данные вообще не загружались. Я добавил еще один лист: Лига.  Здесь Лист "Лига" — это другой лист, не тот же, что и "Leagues".  "Leagues" — это список для фильтрации текущих игр,  а лист "Лига" — это список для фильтрации завершённых игр между двумя командами.

 

8 минут назад, Jahongir Gayiberdiyev сказал:

Да, я изменил код.  Не загружал другую лигу если текушая лига Испания: Сегунда, таблица загружал результаты игр только этой лиги. Если одна из команд раньше не участвовал в этой лиге его данные вообще не загружались. Я добавил еще один лист: Лига.  Здесь Лист "Лига" — это другой лист, не тот же, что и "Leagues".  "Leagues" — это список для фильтрации текущих игр,  а лист "Лига" — это список для фильтрации завершённых игр между двумя командами.  Сейчас данные загружаются по порядку.  
Товарищеские встречи, кубковые игры и матчи, не относящиеся к лигам, не загружаются.  
Загрузка идёт только по лигам — не только по текущей, но и вместе с результатами прошлых лиг.

 

54 минуты назад, The Iron Wizard сказал:

Так ведь так и должно, наверное, быть. Команда же не играла в этой лиге...

да, оригинал именно так и работает, только та лига, в которой сейчас играют команды. Это можно увидеть на листе DataSheet, он формулами, выбирает только те матчи, которые относятся к текущ лиге.

7 минут назад, Shurik91 сказал:

да, оригинал именно так и работает, только та лига, в которой сейчас играют команды. Это можно увидеть на листе DataSheet, он формулами, выбирает только те матчи, которые относятся к текущ лиге.

кстати, а зачем код менять ? если можно откл ТОЛЬКО ЛИГИ на листе Старт и тогда будет грузить все лиги

1 час назад, Shurik91 сказал: кстати, а зачем код менять ? если можно откл ТОЛЬКО ЛИГИ на листе Старт и тогда будет грузить все лиги При анализе матча ИСПАНИЯ: Сегунда Вальядолид – Сеута вы можете увидеть, почему пришлось изменить код.   Если установить фильтр на "Только лига", то на листы Home, HomeHome, HomeAway, Away, AwayAway, AwayHome вообще не записываются данные.   Если выбрать "Все турниры", то в данные попадают также МИР: Клубные товарищеские матчи, кубковые игры и прочее — всё смешивается.   По моему фильтру данные отбираются строго по лигам, в которых команды ранее участвовали.   Только по лигам — без результатов товарищеских встреч, кубков и международных матчей.

В коде есть ошибки, проверьте их. Фильтр можно применять и при отборе очных встреч,  
так как многие команды в текущей лиге могли встречаться между собой 1 или 2 раза.  
Поэтому даже если взять результаты из другой лиги, это тоже может быть полезно для анализа.

 

Изменено 17 августа, 20251 г. пользователем Jahongir Gayiberdiyev

14 минут назад, Jahongir Gayiberdiyev сказал:

В коде есть ошибки, проверьте их. Фильтр можно применять и при отборе очных встреч,  
так как многие команды в текущей лиге могли встречаться между собой 1 или 2 раза.  
Поэтому даже если взять результаты из другой лиги, это тоже может быть полезно для анализа.

 

таблица считает, как оригинал, только по лиге, текущей, если выставить ТОЛЬКО ЛИГА, таблица выбирает из встреч, только матчи текущей лиги, другую лигу ( прошлую ) не учитывает, а если выставить ВСЕ ТУРНИРЫ, то фильтр пропускает и отображает все встречи.

ТАБЛИЦА всё правильно делает, как в оригинале, Valladolid - Ceuta, играли свой первый матч в LaLiga2, так как матч, прошедший, таблица его отсеивает и проверяет другие матчи, другие игры были в LaLiga, поэтому листы и показывают ПУСТО, так как это другая лига

ТАБЛИЦА и ФОРМУЛЫ учитывают только лигу текущую! Поэтому ждите когда наиграют, достаточное кол-во матчей.

@Shurik91 а вот в correct-score (точный счёт) вариант 0:1 1:0 и 1:1 никак нельзя добавить!

https://www.flashscorekz.com/match/football/OGGqWk5S/#/odds-comparison/correct-score/full-time

Прям вообще не пруха и вчера и сегодня,вроде нормальные матчи.

Пытался в лайве поймать 2 гола,что-то прям не получается. За КФ не успеваю они там в самом низу

в KALKULATOR_OZ_FIX_11.08.25

Вроде разобрался,еще и бк оказывается не ту поставил изначально.От баран,как я так проглядел

8 часов назад, Denis221 сказал:

Вроде разобрался,еще и бк оказывается не ту поставил изначально.От баран,как я так проглядел

точный счёт, смотри внимательно, я его много не тестировал, проскакивали матчи, где коэф не совпадали

14 часов назад, Shurik91 сказал:

точный счёт, смотри внимательно, я его много не тестировал, проскакивали матчи, где коэф не совпадали

1:0 и 0:1 получилось = кф были от 4,0,а вот 2:0 0:2 = там в ячейке 100,хот кф 8,4 и более.Весь день и так и сяк,не получилось.Вернул как было изначально.

Ещё блин ставку поставил Милан-Кремонезе на 28 августа.Думал сегодня,теперь ждать 10 дней.Но тут из-за мозгового перегруза дату сам перепутал.

В 07.06.2025 в 19:33, Shurik91 сказал:

привет😉

решил создать профильную тему, буду сюда выкладывать таблицы, с которыми работал на форуме

давно хотел это сделать, всё в одном месте, чтобы был порядок и не нужно бегать по другим темам

как и обещал, таблички после оживления🪄

если среди этих таблиц, ты не нашёл свою любимую, напиши мне в тг или в лс, отремонтирую и её, за донат в 10$

донат включает в себя (2 ваши таблицы) где поломались коэффициенты, реквизиты для доната можно найти внутри таблицы

AltadarODDS_07.06.25.xlsb 567.05 kB · 92 загрузки MACBETH_v3.2_(3 in 1)_07.06.25.xlsb 336.85 kB · 76 загрузок

вопрос, а коэффициенты можно только на неделю назад загрузить, раньше не получится? 

3 минуты назад, hostmas сказал:

вопрос, а коэффициенты можно только на неделю назад загрузить, раньше не получится? 

Если отключить сверку по дате, то думаю, что получится, но в этом сможет помочи только Shurik91. Есть еще один способ, которым я пользуюсь, это воспользоваться таблицей Macbet.

@shurik91 можно сделать закачку архива кэфов на Алтадар прошлыми датами, месяц назад и т д.? Или это уже платный функционал?)

Изменено 21 августа, 20251 г. пользователем hostmas

15 часов назад, The Iron Wizard сказал:

Если отключить сверку по дате, то думаю, что получится, но в этом сможет помочи только Shurik91. Есть еще один способ, которым я пользуюсь, это воспользоваться таблицей Macbet.

А Макбет и калькулятор с какой БК парсят? Или они средний берут. Средний для анализа непригоден

3 часа назад, hostmas сказал:

А Макбет и калькулятор с какой БК парсят? Или они средний берут. Средний для анализа непригоден

По умолчанию, я поставил 1xBet, но можешь изменить на любой, который доступен в твоей стране.

Изменено 21 августа, 20251 г. пользователем The Iron Wizard

9 часов назад, hostmas сказал:

@shurik91 можно сделать закачку архива кэфов на Алтадар прошлыми датами, месяц назад и т д.? Или это уже платный функционал?)

если речь о флешскоре, то сайт даёт информацию, только за -7 дней и +7 дней, спарсить другие дни можно, только если есть архив по этим дням

В закромах у себя нашел такую таблицу. После выхода следующего релиза от Shurik91, думаю прикрутить к калькулятору, но нужна шапка. Предлагайте свои мысли.  

MyBet_MySkore#v10.11.xlsm - NotProtectionFile.xlsm

@Shurik91 ради интереса вопрос.

По умолчанию в таблице,под ячейкой ТБ 2,5 - под ней идут разные коэффициенты,от 1,2 и выше.

Технически ради интереса,а вообще возможно лм можно вытащить только от 1,70 до 1,99 Больше,а дальше какой  тотал предлагает БК (ТБ,2,5 ТБ2,25, ТБ 2,75 и тд)

Что по итогу допустим получилась связка,но под одной ячейкой

ТБ 2,25 - 1,80

ТБ 2,5 - 1,75

ТБ 3,25 - 1,73

5 минут назад, Denis221 сказал:

@Shurik91 ради интереса вопрос.

По умолчанию в таблице,под ячейкой ТБ 2,5 - под ней идут разные коэффициенты,от 1,2 и выше.

Технически ради интереса,а вообще возможно лм можно вытащить только от 1,70 до 1,99 Больше,а дальше какой  тотал предлагает БК (ТБ,2,5 ТБ2,25, ТБ 2,75 и тд)

Что по итогу допустим получилась связка,но под одной ячейкой

ТБ 2,25 - 1,80

ТБ 2,5 - 1,75

ТБ 3,25 - 1,73

Понимаю, вопрос не ко мне, но можно поподробнее.

51 минуту назад, The Iron Wizard сказал:

Понимаю, вопрос не ко мне, но можно поподробнее.

Допустим сейчас есть так. Ищем ТБ/ТМ 2.5

odds_tot25 = getOddsMarket("OVER_UNDER", "2.5", "FULL_TIME")

А под этой ячейкой (ТБ 2.5) идут коэффициенты

2,06

1,32

1,56

1,49

1,72

 

А что если будет наоборот,искать только в пределах от 1,7 до 1,99

В ячейку А - ПОИСК коэффициенты от 1,70 до 1,99

В ячейку Б - ПОИСК какой ТБ выдаёт.

Потом сцепить 2 ячейки и протянуть или через формулу (макрос)

=СЦЕПИТЬ(А;" - ";Б)

1,81 - ТБ 2.75

1,89 - ТБ 2.25

1,72 - ТБ 2.5

1,94 - ТБ 1.75

Так-то в принципе и через фильтр можно сделать,но мне просто интересно,а вообще такое возможно или нет.Просто я искал "найти кф" пробовал пол дня,пока что не смог.

Не знаю правильно ли объяснил

 

Повторюсь,мне просто ради интереса,такое возможно технически или зря ковыряюсь. А то я намедни вытащить точный счёт и вроде получилось. На 1:0   0:1  2:0  0:2 пошли коэффициенты, а на 2:1 почему-то нет,я всё перепробовал везде 100,хотя в БК там были и 8, и 9 и 10 КФ

В 11.08.2025 в 21:58, The Iron Wizard сказал:

Сори. Поторопился.

KALKULATOR_OZ_FIX_11.08.25.xlsb 928.64 kB · 57 загрузок

Поделитесь архивам, если кто собрал. Спасибо.