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

[k.a.isakov 0]

1 час назад, VikTuk сказал:

Добрый день.

Вот так , похоже.

Спасибо!

[VikTuk 27]

Эххх. Что-то никто не хочет делится отремонтированными плодами своего творчества по инструкции доброго Shurik91 

[Semyon Semyonovich 19]

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

Эххх. Что-то никто не хочет делится отремонтированными плодами своего творчества по инструкции доброго Shurik91 

Они их теперь продают )

[Nazarnineangels 7 103]

39 минут назад, VikTuk сказал:

Эххх. Что-то никто не хочет делится отремонтированными плодами своего творчества по инструкции доброго Shurik91 

Моя прога: 

 

[MARYAN 3]

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

macbeth-v-3.1_08-2021.xlsb

[asdsadas 8]

Кто отремонтировал поделитесь 

[VikTuk 27]

Спасибо.

Вы добрый человек.

[VikTuk 27]

Во вроде сделано все по инструкции. А работать не хочет.

Моет быть кто-то сможет посмотреть?RADARIO BET_(FX2024).xlsm nFile.xlsm

[anjey 2]

Добрый, может кто починить эти две таблицы?

FOOTBALL CALCULATION 2024.xlsb AutoGoL_mod(FX2023).xlsb

[Jahongir Gayiberdiyev 8]

1 час назад, Semyon Semyonovich сказал:

Они их теперь продают )

 

53 минуты назад, asdsadas сказал:

Кто отремонтировал поделитесь 

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

[denmp 2]

Может кто исправит

ElizaBet-DeLuxeGold_V4(KA).xlsm

[k.a.isakov 0]

22 часа назад, Shurik91 сказал:

Итак, ПОЧТИ УНИВЕРСАЛЬНАЯ ИНСТРУКЦИЯ 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.

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

 

 

А может быть такое, что ссылки с приставкой ss1 нет?

[Burn Marlon 290]

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

Эххх. Что-то никто не хочет делится отремонтированными плодами своего творчества по инструкции доброго Shurik91 

Да, бееееда...Никто так мне и не прислал ящик пятничного пива , для починки табличек

[k.a.isakov 0]

Всем добрый вечер! Кто-нибудь может починить таблицу?

GoldeBet V.2 (5).xlsb

[VikTuk 27]

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

Да, бееееда...Никто так мне и не прислал ящик пятничного пива , для починки табличек

Да, пожалуйста.

Нам не жалко. ))

[Валерий Иванович 689]

В 01.08.2024 в 20:20, Shurik91 сказал:

Наша задача убрать полностью старый код и заменить на новый

Это все понятно и полезно. Но касательно изменений со стороны флэшскора - в чем именно они заключаются? )
Что конкретно перестало работать, какая строка, массив, переменная, ссылка, адрес или ячейки? )

Простыми словами если можно, там то там, это это  

[Валерий Иванович 689]

Хотя, все, понял ))
 

[Валерий Иванович 689]

Рабочий, готовый к использованию "модуль" загрузки общей, домашней и гостевой таблицы на базе Shurik91. Для полноценности, добавил запись РГ, может кто пользуется этими значениями.

Грузит так:


table_a - пишем свои, или необходимые.
nmshet - название листа.
frow и lrow - диапазон столбцов для записи данных.

В принципе на этом фсё, пока что )

g_5_Data.bas

Изменено 2 августа, 2024 пользователем Валерий Иванович

[geff 4]

Может кому пригодится. Таблицу грузит. Пристально не тестил.  Ничего не менял. 

DeluX_API-based_v1.0 mod RedStar.xlsm

[cemre 2]

Automatic version of the file. Outosaves the output.  I hope someone repairs the non-working parts
 

Univers_liga_2v (6).xlsm

[Кирилл Клейменов 400]

10 часов назад, Валерий Иванович сказал:

Рабочий, готовый к использованию "модуль" загрузки общей, домашней и гостевой таблицы на базе Shurik91. Для полноценности, добавил запись РГ, может кто пользуется этими значениями.

Грузит так:


table_a - пишем свои, или необходимые.
nmshet - название листа.
frow и lrow - диапазон столбцов для записи данных.

В принципе на этом фсё, пока что )

g_5_Data.bas 2.85 kB · 15 загрузок

Может кому-то (по отдельности) - конечно понадобится... НО - в Канале - недавно была таблица - которая (за секунды) парсила Линию на день и за минуту - подставляла те-же данные... правда считала - по последним шести играм... (что меня в принципе устраивает... хотя...))  

Называется - Nicnaim - Stats.2...

[Игорь Бухтяев 16]

IncoSJSportFormula 1,2.xlsb

Добрый день. Возможно отремонтировать данную таблицу?

[Валерий Иванович 689]

55 минут назад, Кирилл Клейменов сказал:

Линию на день и за минуту

Линия - это я понимаю просто названия лиг, команд, счет, разные ID, страна. Короче вся информация что дается по этой ссылке: Call Download_site("https://d." & sourcer & "x/feed/f_1_" & dayzone & "_" & timezone & suffix, fs_input)

У меня 1500 матчей в среднем за 3 секунды прогружаются без всякого api и т.д. Около 2 сек уходит на загрузку home\away\data\odds данных для одного матча. И это на старом парсере. 

А это чудо "Nicnaim - Stats.2" не встречал )

Изменено 3 августа, 2024 пользователем Валерий Иванович

[Валерий Иванович 689]

27 минут назад, Валерий Иванович сказал:

Около 2 сек уходит на загрузку home\away\data\odds данных для одного матча

Что бы не думали что я балабол ))
Это загрузка данных:

Это касательно загрузки списка игр, сегодня 1182 игры за 1.48 сек

Изменено 3 августа, 2024 пользователем Валерий Иванович

[Shurik91 1 589]

17 часов назад, k.a.isakov сказал:

А может быть такое, что ссылки с приставкой ss1 нет?

такое может быть в 2-х случаях:

1-й если таблица, не использует турнирную таблицу для анализа

2-й таблица уже использует новый url для загрузки.

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