РЕМОНТ ТАБЛИЦ

[red_star 231]

15 минут назад, Grey Cardinal сказал:

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

Сама ссылка работает правильно Когда идет разборка основной строки правильно определяется чемпионат, команды и id матча. А вот дальше что -то идет не так.

[Grey Cardinal 236]

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

Сама ссылка работает правильно Когда идет разборка основной строки правильно определяется чемпионат, команды и id матча. А вот дальше что -то идет не так.

Надо профессионалов, а то у меня получается гадания на кофейной гуще

[alegg 77]

Я в этом плохо понимаю, получается что меняется что-то на одном сайте и сразу за ним на всех остальных? Просто в таблице сайтов пять, не грузит ни с одного

[Nazarnineangels 7 103]

То самое, грузит пустыми ячейками. Кто сможет, посмотрите.

OG.xlsb

[red_star 231]

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

Я в этом плохо понимаю, получается что меняется что-то на одном сайте и сразу за ним на всех остальных? Просто в таблице сайтов пять, не грузит ни с одного

Это все клоны.

[Shurik91 1 589]

всем привет, в таблицах перестали работать url отвечающие за загрузку, рейтинговых таблиц (Overall, Form, Over 2.5), без них, таблицы не могут работать.
Есть url новые, но простой заменной, copy-paste отремонтировать не получится. Нужно будет немного поработать, самостоятельно, не спеша руками и исправить ошибку.

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

[alegg 77]

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

всем привет, в таблицах перестали работать url отвечающие за загрузку, рейтинговых таблиц (Overall, Form, Over 2.5), без них, таблицы не могут работать.
Есть url новые, но простой заменной, copy-paste отремонтировать не получится. Нужно будет немного поработать, самостоятельно, не спеша руками и исправить ошибку.

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

Спасибо! Ждем

[Burn Marlon 290]

Эх, вы....А вот, если бы, пользовались API от пользователя форму @noname, проблем бы не было .

[alegg 77]

11 минут назад, Burn Marlon сказал:

Эх, вы....А вот, если бы, пользовались API от пользователя форму @noname, проблем бы не было .

Тут бы разобраться с ремонтом таблиц, в принципе по инструкции поменять несколько строчек/букв/цифр не сложно, с api же, вообще темный лес

[Burn Marlon 290]

ВСЕ ТАБЛИЦЫ ЗАРАБОТАЛИ БЕЗ РЕМОНТА! ИНФА 100! 

Изменено 1 августа, 2024 пользователем Burn Marlon

[MARYAN 3]

не работает таблицы

[Valera 53]

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

ВСЕ ТАБЛИЦЫ ЗАРАБОТАЛИ БЕЗ РЕМОНТА! ИНФА 100! 

Нет, только что проверил )

[Burn Marlon 290]

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

Нет, только что проверил )

Потыкаите источники разные

Изменено 1 августа, 2024 пользователем Burn Marlon

[Nazarnineangels 7 103]

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

Потыкаите истоничники разные

Не работает.

[YuriyNM 14]

18 минут назад, Valera сказал:

Нет, только что проверил )

Зачем вреш,ничего не работает

[alegg 77]

Не работает, с flashscore.com грузит один матч в 20 секунд, пустые, с остальных быстро, тоже пустые

[Valera 53]

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

Зачем вреш,ничего не работает

Ты дятел? Я и написал что нет, не работает 

[Jahongir Gayiberdiyev 8]

Уважаемые программисты пожалуйста, отремонтируйте таблицы.

[alegg 77]

1 час назад, Burn Marlon сказал:

Эх, вы....А вот, если бы, пользовались API от пользователя форму @noname, проблем бы не было .

Нашел только что таблицу, которая у меня перестала работать, с api от noname, тоже не работает, в чем заключается "проблем бы не было"?

[Nazarnineangels 7 103]

Можно спросить в нейросети, но человек выше писал, что сделает. Думаю у него лучше получится.

[majestic14 2]

6 часов назад, Nazarnineangels сказал:

Aynı şey, boş hücrelerle yüklenir. İmkanı olan herkes bir baksın.

OG.xlsb 7,32MB · 3 indirme

hiçbir tahmin yüklemiyor

[Nazarnineangels 7 103]

6 минут назад, majestic14 сказал:

hiçbir tahmin yüklemiyor

Я знаю, що нема.

[Terrybla 20]

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

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

С нетерпением ждем инструкцию! Заранее спасибо!

[Shurik91 1 589]

Итак, ПОЧТИ УНИВЕРСАЛЬНАЯ ИНСТРУКЦИЯ v. 01.08.2024. Чтобы отремонтировать свою любимую таблицу.

В 70%, она должна сработать. Но бывают случаи, когда кто-то уже побывал в таблице или таблица, написана с некоторыми отличиями.

Тогда нужно, повнимательнее быть и проверять, что меняете и где?

Думаю, кто не справится сам. Сможет здесь попросить, кого-то помочь или подсказать.

РЕШЕНИЕ оцениваю как СЛОЖНО, но возможно, главное захотеть

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

ПОЕХАЛИ

1.       В отдельный новый модуль.

2.       Скопируй и вставь, функцию getTable. Внутри ничего не меняй. Она универсальная.

Мы будем вызывать её далее, для загрузки нужных таблиц.

3.       Обязательно удали строку Option Explicit. Которая появится в новом модуле.

Код функции getTable:

Function getTable(id, sourcer, table_name)
    Dim table(35) As Variant
    Dim game(25) As Variant
    
    Select Case table_name:
        Case "table_overall": table_index = 1: my_temper = "0"
        Case "table_home": table_index = 2: my_temper = "0"
        Case "table_away": table_index = 3: my_temper = "0"
        Case "form_overall": table_index = 5: my_temper = "0"
        Case "form_home": table_index = 8: my_temper = "0"
        Case "form_away": table_index = 9: my_temper = "0"
        Case "over_under_overall": table_index = 6: my_temper = "2.5"
        Case "over_under_home": table_index = 17: my_temper = "2.5"
        Case "over_under_away": table_index = 18: my_temper = "2.5"
    End Select
    
    t = 0
    Set objHttp = CreateObject("MSXML2.XMLHTTP")
    objHttp.Open "GET", "https://d." & sourcer & "x/feed/df_to_1_" & id & "_" & table_index, False
    objHttp.setRequestHeader "X-Fsign", "SW9D1eZo"
    objHttp.send
    fs_input = objHttp.responseText
    fs_rows = Split(fs_input, "¬~")
    fs_rows_len = UBound(fs_rows) - LBound(fs_rows)
    For i = 0 To fs_rows_len - 1
        fs_row = Split(fs_rows(i), "¬")
        fs_row_len = UBound(fs_row) - LBound(fs_row)
        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 = "TR" And temper = True Then
            Erase game
            For j = 0 To fs_row_len
                fs_row_parts = Split(fs_row(j), ChrW(&HF7))
                Select Case fs_row_parts(0):
                    Case "TR": game(0) = fs_row_parts(1)
                    Case "TN": game(3) = fs_row_parts(1)
                    Case "TM":
                        f = fs_row_parts(1)
                        game(6) = f
                    Case "TWR", "OUO": game(9) = fs_row_parts(1)
                    Case "TDR", "OUU": game(12) = fs_row_parts(1)
                    Case "TLR": If IsEmpty(game(15)) Then game(15) = fs_row_parts(1)
                    Case "TG":
                        gols = Split(fs_row_parts(1), ":")
                        If IsEmpty(game(15)) Then game(15) = gols(0)
                        game(16) = gols(1)
                        game(18) = gols(0)
                        game(19) = gols(1)
                    Case "TP": game(25) = fs_row_parts(1)
                End Select
                    
            Next j
            If table_index = 5 And f < 5 Then GoTo next_item
            If t > 35 Then GoTo return_table
            table(t) = game
            t = t + 1
        ElseIf fs_index_name = "ETI" Then
            temper = False
            If fs_index_value = my_temper Then temper = True
        End If
next_item:
    Next i
return_table:
    getTable = table
End Function

       

4.       Далее, нужно найти модуль в твоей таблице, в котором находятся участки кода с ошибками

Они все, включают в себя ссылку, с приставкой ss_1

Можно в поиск вбить, это ключевое слово и поискать по модулям.

Приблизительно, они выглядят так. Блоки с кодом. Кто пользовался старыми инструкциями по ремонту от меня, должен их знать и помнить.

 

 

6.    Когда ты обнаружил строку ss_1. Убедись, что она ПЕРВАЯ! Их может быть несколько (2, 3, 6)

Мы будем исправлять все ss_1. Начиная с ПЕРВОЙ.

Не ссылки исправлять, а добавлять новый рабочий код. В этих местах.

7.       Если ты сюда добрался, то ты в НАЧАЛЕ ПУТИ

8.       Теперь из ПЕРВОЙ ссылки ss_1. В твоей таблице. Нам нужно узнать, имена переменных для запуска функции getTable.

Приблизительно ссылка ss_1, выглядит так:

https://d." & sourcer & "x/feed/ss_1_" & tournamentEncodedId & "_" & tournamentStageEncodedId & "_table_overall?hp1=" & participantEncodedIds1 & "&hp2=" & participantEncodedIds2 & "&e=" & id

 

Переменные (параметры) для getTable, которые тебе нужны. Берутся из ссылки ss_1

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

Запиши или запомни его название.

Если переменной нет, а просто написано flashscore.com/ или ru/ Тогда запиши его название.

9.2   Имя турнирной таблицы. Которую мы восстанавливаем. Например здесь, в этом блоке, мы ремонтируем table_overall

9.3   Переменная, которая хранит в себе, ID текущего матча. Смотри в самый конец ссылки --->

Может быть имя id или match_id. Или другое, как у тебя.

10.   Всё запомнил или записал.

 

11. Исправляем первый ss_1

Каждый блок ss_1. Имеет своё НАЧАЛО и КОНЕЦ.

Начало - это наличие ссылки ss_1

Конец, это слово End If. Или Начало следующего блока ss_1.

Тебе нужно найти разрыв между ними.

 

12. И в конце каждого ss_1. Вызвать getTable. И передать ей переменные (параметры) 9.1, 9.2, 9.3

getTable(   ID матча,     название флешскора,     название турнирной таблицы   )

ранее, ты их записал. Поэтому проблем с поиском не будет.

Вызов getTable. Копируешь код целиком и вставляешь между концом и началом следующего ss_1

Это нужно вставить в разрыв.

b1 = 2
table_overall = getTable(id, sourcer, "table_overall")
For Each submatches In table_overall
        If IsEmpty(submatches) Then Exit For
        ThisWorkbook.Sheets("имя твоего листа").Range("имя ячейки" & b1).Value = submatches(0)
        ThisWorkbook.Sheets("имя твоего листа").Range("имя ячейки" & b1).Value = submatches(3)
        ThisWorkbook.Sheets("имя твоего листа").Range("имя ячейки" & b1).Value = submatches(6)
        ThisWorkbook.Sheets("имя твоего листа").Range("имя ячейки" & b1).Value = submatches(9)
        ThisWorkbook.Sheets("имя твоего листа").Range("имя ячейки" & b1).Value = submatches(12)
        ThisWorkbook.Sheets("имя твоего листа").Range("имя ячейки" & b1).Value = submatches(15)
        ThisWorkbook.Sheets("имя твоего листа").Range("имя ячейки" & b1).Value = submatches(18)
        ThisWorkbook.Sheets("имя твоего листа").Range("имя ячейки" & b1).Value = submatches(19)
        ThisWorkbook.Sheets("имя твоего листа").Range("имя ячейки" & b1).Value = submatches(25)
        b1 = b1 + 1
Next submatches

Вот так, должно, выглядеть:

 

13. СМОТРИ внимательно! На скрине, я отметил, что должно совпадать с оригиналом. В точности, как в старом коде, который там есть.

1. Имя листа.

2. Имя ячеек.

3. Индексы.

Всё, должно совпадать на 100%

Ты сам, смотришь и проверяешь.

Если Имя листа другое у тебя. Ты меняешь на своё имя.

Если Индексов, меньше, лишние убираешь.

14. Первый блок ss_1 ты починил. МОЛОДЕЦ

15. Далее, все остальные ss_1. Ремонтируются аналогично. Первому.

Например, ты идёшь дальше.

И встретил такой блок ss_1. Он отвечает за загрузку таблицы ТБ 2,5. Для домашней команды. Имя over_under_home.

Здесь, имя листа, имя ячеек и индексы другие и их меньше. Как быть?

Ваш новый код, должен быть таким!

Количество индексов, уменьшаем. Пишем другое имя листа. И ячейки тоже меняем.

В вызове меняем имя таблицы на over_under_home.

Вроде бы ВСЁ! Для людей опытных напишу, коротко. Наша задача убрать полностью старый код и заменить на новый. А так как ячейки и имя листа, остаются теми же. То в новом коде, нам нужно. Просто прописать их имена и всё. Я оставил, новичкам старый код, чтобы им было легче, а то если, ещё и удалять просить... То можно совсем потеряться и запутаться Кто умеет смотреть скрытые листы и ставить на стоп код, проверьте обязательно, заполнение таблиц на правильность. Мало ли...

 

 

[red_star 231]

Большое спасибо!!!

Более менее понятно. Будем разбираться по месту.