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

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

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

В чем ее суть? Кроме быстроты ))

Для разбора этой таблицы - конечно лучше открыть Новую тему с разбором Архива... но если вкратце и о моём использовании... то я занимался минусовыми Форами (доматчевый отбор) и как я посмотрел - таблица парсит почти всё - что мне нужно. Правда таблица - не без недостатков - при повторных скачиваниях или обновлении - может менять места в таблице чемпионата - после результатов... что иногда меняет суть (моего) отбора... но это возможно зависит от количества сыгранных в чемпионате игр. И начальные кофы в Линии (иногда) разные показывает но в целом - для быстрого - предварительного отбора - с сохранением этого отбора в Архив - самое то...

[wanderer375 150]

2 часа назад, виталий морозов сказал:

в первом тайме неплохо идет, только когда много игр, суббота, воскрксенье 

А куда именно там смотреть на гол в первом тайме?

[виталий морозов 26]

24 минуты назад, wanderer375 сказал:

А куда именно там смотреть на гол в первом тайме?

сделают табл, отбор сделаю покажу, в будни нечего нет, по ней

[Alsah 0]

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

Futbool_Analiz.xlsm nx Footbal ver-3.7 mod 2024 (1).xlsm QUARTZ_SYSTEM_MOD RUS (1) (5).xlsm UNIVERS_LIGA v3.xlsm

[Xylio 0]

Всем салют !! я новенький) "Футбол калькулейшн" сможет кто починить?

 

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

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

сделают табл, отбор сделаю покажу

Ну давай показывай )

Не знаю как было, поэтому сравнить не с чем. Матчи грузит, таблицу тоже. 

3F_ELIZABET_PRO_2022_V.1.0.71s.xlsm

[Blueaslan 4]

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

Göster bana)

Nasıl olduğunu bilmiyorum, bu yüzden karşılaştırılacak hiçbir şeyim yok. Kibritleri ve masayı da yükler. 

3F_ELIZABET_PRO_2022_V.1.0.71s.xlsm 11.61 MB · 5 indirme

Можете ли вы сделать и английскую версию?

[виталий морозов 26]

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

Можете ли вы сделать и английскую версию?

англии хватает, а россии нет

[LegiON 54]

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

Sub getData(match_id)
On Error Resume Next
optimize (True)
selectSource
Sheets("Data").Range("A2:AF49").ClearContents
table_a = Array("table_overall", "table_home", "table_away")
For table_i = 0 To 2
rw = 2
Select Case table_i
Case 0: nmshet = "Data": frow = 1: lrow = 10
Case 1: nmshet = "Data": frow = 12: lrow = 21
Case 2: nmshet = "Data": frow = 23: lrow = 32
End Select
table_name = getTable(match_id, sourcer, table_a(table_i))
For Each subMatches In table_name
If IsEmpty(subMatches) Then Exit For
table_m = Array(subMatches(0), subMatches(3), subMatches(6), subMatches(9), subMatches(12), subMatches(15), subMatches(18), subMatches(19), subMatches(22), subMatches(25))
Sheets(nmshet).Cells(rw, frow).Resize(1, lrow - frow + 1).value = table_m
rw = rw + 1
Next subMatches
Next table_i
optimize (False)
End Sub

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

[виталий морозов 26]

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

Ну давай показывай )

Не знаю как было, поэтому сравнить не с чем. Матчи грузит, таблицу тоже. 

3F_ELIZABET_PRO_2022_V.1.0.71s.xlsm 11.61 MB · 23 загрузки

 

1тайм.1п. jpg

[виталий морозов 26]

Только что, виталий морозов сказал:

 

1тайм.1п. jpg 249.17 kB · 0 загрузок

 

[виталий морозов 26]

В 04.08.2024 в 10:15, виталий морозов сказал:

 

1 скрин, на перый тайи, и 1п 

2 скрин, на первый тайи, и 2п 

 нармально пройдет, дам настройки

[Cage 175]

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

1 скрин, на перый тайи, и 1п 

2 скрин, на первый тайи, и 2п 

 нармально пройдет, дам настройки

так это сверхзабивные игры, там кеф х..й целых ноль десятых

[виталий морозов 26]

28 минут назад, Cage сказал:

так это сверхзабивные игры, там кеф х..й целых ноль десятых

я не кого не призываю ставить

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

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

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

Что мешает добавить в 
table_a = Array("table_overall", "table_home", "table_away", "form_overall", "form_home", "form_away") и .д.

Поменять цифру 2 на 5 (или какое необходимо) в
For table_i = 0 To 5

Тут добавить условие и прописать необходимые submatches?
table_m = Array(SubMatches(0), SubMatches(3), SubMatches(6), SubMatches(9), SubMatches(12), SubMatches(15), SubMatches(18), SubMatches(19), SubMatches(22), SubMatches(25))

if table_i > 2 then 
table_m = Array(какие submatches необходимы)
end if

Select Case table_i
Case 0: nmshet = "Data": frow = 1: lrow = 10
Case 1: nmshet = "Data": frow = 12: lrow = 21
Case 2: nmshet = "Data": frow = 23: lrow = 32
тут добавить кейсы для нумерации столбцов от и до.

Это не конкретное решение, просто пример в каком направление думать )

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

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

7 часов назад, LegiON сказал:

как быть в таком случае с тоталами, если submatches  у них немного разные

Submatches там одинаковые, дело в другом. У Шурика в Функции отсутствуют кейсы:
Case "TPF": game(22) = fs_row_parts(1) - это разница голов
Case "TGM": game(22) = fs_row_parts(1) - это средний тотал для таблицы тоталов


Что бы не думать, держи готовое решение: тут все 9 таблиц грузятся со всеми вытекающими данными: турника и форма - общая, дома, в гостях. ТБ 2.5 тоже общая, дома и в гостях. Код полностью рабочий и готовый к использованию. Название Data только измени под свое, DataPort скорей всего у тебя. Остальное не трогай ничего.

Кто на счет кейсов сомневается, можете на php curl написать и проверить:

Загрузка всех таблиц.txt

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

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

Результаты работы парсера.

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

[s nicol 1]

can someone help me to work the circled area, thanks a lot

TODAY PREDICTION.xlsb

Изменено 4 августа, 2024 пользователем s nicol

[denmp 2]

С впн и без впн все равно не работает.Очень жаль

[alegg 73]

В 01.08.2024 в 20:20, 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.

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

 

 

Починил FOOTBALL CALCULATION TABLE, спасибо за инструкцию, поначалу было сложно, нужно было просто вникнуть)

[alegg 73]

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

Починил FOOTBALL CALCULATION TABLE, спасибо за инструкцию, поначалу было сложно, нужно было просто вникнуть)

QUARTZ_SYSTEM_MOD RUS по этой же инструкции, работает

[Cage 175]

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

QUARTZ_SYSTEM_MOD RUS по этой же инструкции, работает

Тут обычно делятся все таблицами, а не хвастаются

[alegg 73]

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

Тут обычно делятся все таблицами, а не хвастаются

Я не хвастаюсь, подтвердил что инструкция подходит

[VikTuk 27]

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

QUARTZ_SYSTEM_MOD RUS по этой же инструкции, работает

Осталось плодами творчества поделиться. 

[alegg 73]

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

Осталось плодами творчества поделиться. 

Оставил только эту, проверяйте

FOOTBALL CALCULATION TABLE 05.08.2024.xlsb