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

[Jahongir Gayiberdiyev 4]

Здравствуйте! Тепер Таблица перестал загружать коэффициенты 

[Valera 50]

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

Извиняюсь.не тому написал,но не дятел конечно.но что то около этого

Нормально все, проехали

[Shurik91 651]

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

Здравствуйте! Тепер Таблица перестал загружать коэффициенты 

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

[VikTuk 27]

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

Народ, подскажите, где искать эти модули? Куда заходить? 

Добрый день.

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

[Burn Marlon 247]

Починю любую табличку кроме фарелькинои за ящик пятничного пива . Писать в личку кнопка сообщения наверху справа. 

[Lenchiko 20]

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

[Lenchiko 20]

Или лист на сегодня-завтра с матчами

[Jahongir Gayiberdiyev 4]

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

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

Рабочий код для загрузки коэфициентов напишите пожалуйста сюда. Еще проблема форма обшая не загружает польнистю

Место	Команда	Игр	Выиграно	Ничьих	Проиграно	Забито	Пропущено	Очков		Место	Команда	Игр	Выиграно	Ничьих	Проиграно	Забито	Пропущено	Очков		Место	Команда	Игр	Выиграно	Ничьих	Проиграно	Забито	Пропущено	Очков
3	Атлетико Насьональ	5	3	0	2	6	5	9		1	Онсе Кальдас	2	2	0	0	3	0	6		1	Атлетико Насьональ	3	2	0	1	4	3	6
										2	Медельин	3	1	2	0	2	1	5		2	Ла Экидад	3	2	0	1	3	2	6
										3	Форталеза	2	1	1	0	3	2	4		3	Форталеза	1	1	0	0	2	0	3
										4	Букараманга	2	1	1	0	1	0	4		4	Санта Фе	1	1	0	0	1	0	3
										5	Америка Де Кали	1	1	0	0	4	0	3		5	Онсе Кальдас	1	1	0	0	1	0	3
										6	Депортиво Пасто	1	1	0	0	2	0	3		6	Америка Де Кали	2	1	0	1	3	3	3
										7	Толима	1	1	0	0	2	1	3		7	Перейра	2	1	0	1	2	2	3
										8	Хуниор	1	1	0	0	2	1	3		8	Медельин	1	0	1	0	1	1	1
										9	Ла Экидад	1	1	0	0	1	0	3		9	Толима	1	0	1	0	1	1	1
										10	Агилас Дорадас	2	1	0	1	4	4	3		10	Мильонариос	2	0	1	1	2	3	1
										11	Санта Фе	2	1	0	1	2	2	3		11	Патриотас	2	0	1	1	2	3	1
										12	Энвигадо	2	1	0	1	2	2	3		12	Хуниор	2	0	1	1	0	1	1
										13	Атлетико Насьональ	2	1	0	1	2	2	3		13	Хагуарес Кордоба	2	0	1	1	0	1	1
										14	Мильонариос	2	1	0	1	2	2	3		14	Депортиво Кали	1	0	0	1	1	2	0
										15	Петролера	2	1	0	1	2	3	3		15	Букараманга	1	0	0	1	0	1	0
										16	Депортиво Кали	2	1	0	1	1	2	3		16	Агилас Дорадас	1	0	0	1	0	1	0
										17	Перейра	1	0	1	0	1	1	1		17	Петролера	1	0	0	1	0	1	0
										18	Хагуарес Кордоба	1	0	1	0	0	0	1		18	Депортиво Пасто	2	0	0	2	2	4	0
										19	Чико	1	0	0	1	0	1	0		19	Чико	2	0	0	2	1	3	0
										20	Патриотас	1	0	0	1	0	2	0		20	Энвигадо	1	0	0	1	0	4	0

[k.a.isakov 0]

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

Добрый день.

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

Спасибо!

[VikTuk 27]

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

[Semyon Semyonovich 18]

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

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

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

[Nazarnineangels 1 558]

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

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

Моя прога: 

 

[MARYAN 3]

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

macbeth-v-3.1_08-2021.xlsb

[asdsadas 4]

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

[VikTuk 27]

Спасибо.

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

[VikTuk 27]

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

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

[anjey 2]

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

FOOTBALL CALCULATION 2024.xlsb AutoGoL_mod(FX2023).xlsb

[Jahongir Gayiberdiyev 4]

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 247]

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

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

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

[k.a.isakov 0]

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

GoldeBet V.2 (5).xlsb

[VikTuk 27]

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

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

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

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

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

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

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

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

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

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

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