Мастерская Саши/Актуальные таблицы после сбоев

[zxxxa 80]

Только что, darkest secret сказал:

стата то хорошая, но может быть такое, что в старых датах статы обновились и числа поменялись, например 12 числа у этих команд был рейтинг 35, а сегодня после обновления предыдущих игр упал до 15. владелец таблицы, это так работает?

Я ЭТИ ДАННЫЕ ЗАГРУЗИЛ 11

[darkest secret 4]

2 минуты назад, zxxxa сказал:

Я ЭТИ ДАННЫЕ ЗАГРУЗИЛ 11

понял

[The Iron Wizard 1 436]

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

стата то хорошая, но может быть такое, что в старых датах статы обновились и числа поменялись, например 12 числа у этих команд был рейтинг 35, а сегодня после обновления предыдущих игр упал до 15. владелец таблицы, это так работает?

Эти данные берутся за последние 5 матчей(не важно где играли) одной и второй команды. 

[The Iron Wizard 1 436]

4 минуты назад, zxxxa сказал:

Я ЭТИ ДАННЫЕ ЗАГРУЗИЛ 11

Можете хоть сегодня, они не изменятся.

[darkest secret 4]

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

Можете хоть сегодня, они не изменятся.

а вот за эту функцию респект! так работает со всеми показателями в таблице? в некоторых таблицах просто нет смысла проверять резы задним числом, потому что все значения меняются. я когда впервые попробовал скачать таблицу, помню по каким то критериям у меня выходило +160 флетов вроде за выходные, а потом я сидел и думал че не так то.

[The Iron Wizard 1 436]

Только что, darkest secret сказал:

а вот за эту функцию респект! так работает со всеми показателями в таблице? в некоторых таблицах просто нет смысла проверять резы задним числом, потому что все значения меняются. я когда впервые попробовал скачать таблицу, помню по каким то критериям у меня выходило +160 флетов вроде за выходные, а потом я сидел и думал че не так то.

Если в алгоритме не участвует турнирная таблица. 

[darkest secret 4]

Только что, The Iron Wizard сказал:

Если в алгоритме не участвует турнирная таблица. 

понял, спасибо. и вправду, менются кфы и 1 алгоритм так точно

 

[The Iron Wizard 1 436]

3 часа назад, The Iron Wizard сказал:

Маленькое обновление от меня. Настраивал под себя, если что, не пинайте. Добавил возможность BACK TEST на 1 и 4 алгоритм и еще пару плюшек. На валуи берутся кэфы открытия. 

KALKULATOR_OZ_FIX(TIW)_16.08.25.xlsb 1.45 MB · 13 загрузок

По BACK TEST на 1 и 4 алгоритм будьте внимательны, нужно брать максимум за 4 дня.

[Druskoking777 627]

В 12.08.2025 в 22:12, Shurik91 сказал:

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

Ну, я не знаю, верны ли загруженные мной данные.

Но с помощью файла Betalone, опубликованного на этом форуме, я провел тест по загрузке данных с 11 января этого года.

Я остановил загрузку, поскольку она была очень медленной, но, хотя были загружены данные только о 5 матчах, я думаю, что данные о загрузке верны.

Я подтвердил, что на сегодняшний день команды сыграли столько матчей, сколько указано в столбце I оранжевым цветом и в красной рамке.

Я также проверил, что коэффициенты на матчи в эту дату в январе соответствуют указанным на изображении.

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

 

Betalone (2024)_mod_RedStar_public (1).xlsb

[The Iron Wizard 1 436]

5 часов назад, Druskoking777 сказал:

Ну, я не знаю, верны ли загруженные мной данные.

Но с помощью файла Betalone, опубликованного на этом форуме, я провел тест по загрузке данных с 11 января этого года.

Я остановил загрузку, поскольку она была очень медленной, но, хотя были загружены данные только о 5 матчах, я думаю, что данные о загрузке верны.

Я подтвердил, что на сегодняшний день команды сыграли столько матчей, сколько указано в столбце I оранжевым цветом и в красной рамке.

Я также проверил, что коэффициенты на матчи в эту дату в январе соответствуют указанным на изображении.

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

 

Betalone (2024)_mod_RedStar_public (1).xlsb 4.3 MB · 2 загрузки

Не сравнивайте Беталоне и Калькулятор, они парсят совсем разные сайты. Даже Беталоны парсят разные сайты. 

[Druskoking777 627]

2 часа назад, The Iron Wizard сказал:

Не сравнивайте Беталоне и Калькулятор, они парсят совсем разные сайты. Даже Беталоны парсят разные сайты. 

Я ничего не сравниваю.

Они сказали мне, что не было файлов, которые могли бы анализировать более 7 дней до текущей даты.

Они сказали мне, что не было общедоступного файла, который мог бы проанализировать совпадения и данные о дате нескольких месяцев

Я имел в виду, что действительно существуют файлы, которые могут анализировать даты многомесячной давности. Интернет очень большой, и в нём может быть множество файлов, даже общедоступных, о существовании которых мы даже не подозреваем.

Изменено 17 августа пользователем Druskoking777

[The Iron Wizard 1 436]

2 минуты назад, Druskoking777 сказал:

Я ничего не сравниваю.

Они сказали мне, что не было файлов, которые могли бы анализировать более 7 дней до текущей даты.

Они сказали мне, что не было общедоступного файла, который мог бы проанализировать совпадения и данные о дате нескольких месяцев

 

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

[Farel 1 117]

Сделай доброе дело, прикрути пожалуйста архив. Может это как раз тот показатель, которого не хватает к моей программе, для определения блефа букмекеров при прогрузе кэфа от расчетных.

Arbworld(CS).xlsx

Изменено 17 августа пользователем Farel

[Jahongir Gayiberdiyev 8]

При анализе встречи между командами, перешедшими из одной лиги в другую.  
Например: ИСПАНИЯ: Сегунда    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

 

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

[The Iron Wizard 1 436]

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

 

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

[Jahongir Gayiberdiyev 8]

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

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

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

 

[Jahongir Gayiberdiyev 8]

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

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

 

[Shurik91 1 435]

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

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

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

[Shurik91 1 435]

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

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

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

[Jahongir Gayiberdiyev 8]

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

[Jahongir Gayiberdiyev 8]

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

 

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

[Shurik91 1 435]

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

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

 

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

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

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

[Denis221 102]

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

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

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

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

[Denis221 102]

в KALKULATOR_OZ_FIX_11.08.25

[Denis221 102]

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