Опубликовано 4 августа, 20242 г. 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 у них немного разные и с турнирной таблицей они не коррелируются. Как то отдельно нужно прописывать?
Опубликовано 4 августа, 20242 г. 11 часов назад, Валерий Иванович сказал: Ну давай показывай ) Не знаю как было, поэтому сравнить не с чем. Матчи грузит, таблицу тоже. 3F_ELIZABET_PRO_2022_V.1.0.71s.xlsm 11.61 MB · 23 загрузки 1тайм.1п. jpg
Опубликовано 4 августа, 20242 г. Только что, виталий морозов сказал: 1тайм.1п. jpg 249.17 kB · 0 загрузок
Опубликовано 4 августа, 20242 г. В 04.08.2024 в 10:15, виталий морозов сказал: 1 скрин, на перый тайи, и 1п 2 скрин, на первый тайи, и 2п нармально пройдет, дам настройки
Опубликовано 4 августа, 20242 г. 11 минут назад, виталий морозов сказал: 1 скрин, на перый тайи, и 1п 2 скрин, на первый тайи, и 2п нармально пройдет, дам настройки так это сверхзабивные игры, там кеф х..й целых ноль десятых
Опубликовано 4 августа, 20242 г. 28 минут назад, Cage сказал: так это сверхзабивные игры, там кеф х..й целых ноль десятых я не кого не призываю ставить
Опубликовано 4 августа, 20242 г. Постоянный 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 августа, 20242 г. пользователем Валерий Иванович
Опубликовано 4 августа, 20242 г. Постоянный 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 августа, 20242 г. пользователем Валерий Иванович
Опубликовано 4 августа, 20242 г. Постоянный Результаты работы парсера. Изменено 4 августа, 20242 г. пользователем Валерий Иванович
Опубликовано 4 августа, 20242 г. can someone help me to work the circled area, thanks a lot TODAY PREDICTION.xlsb Изменено 4 августа, 20242 г. пользователем s nicol
Опубликовано 5 августа, 20242 г. В 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, спасибо за инструкцию, поначалу было сложно, нужно было просто вникнуть)
Опубликовано 5 августа, 20242 г. 43 минуты назад, alegg сказал: Починил FOOTBALL CALCULATION TABLE, спасибо за инструкцию, поначалу было сложно, нужно было просто вникнуть) QUARTZ_SYSTEM_MOD RUS по этой же инструкции, работает
Опубликовано 5 августа, 20242 г. 4 минуты назад, alegg сказал: QUARTZ_SYSTEM_MOD RUS по этой же инструкции, работает Тут обычно делятся все таблицами, а не хвастаются
Опубликовано 5 августа, 20242 г. 18 минут назад, Cage сказал: Тут обычно делятся все таблицами, а не хвастаются Я не хвастаюсь, подтвердил что инструкция подходит
Опубликовано 5 августа, 20242 г. 45 минут назад, alegg сказал: QUARTZ_SYSTEM_MOD RUS по этой же инструкции, работает Осталось плодами творчества поделиться. 😉
Опубликовано 5 августа, 20242 г. 6 минут назад, VikTuk сказал: Осталось плодами творчества поделиться. 😉 Оставил только эту, проверяйте FOOTBALL CALCULATION TABLE 05.08.2024.xlsb
Опубликовано 5 августа, 20242 г. 17 минут назад, alegg сказал: Оставил только эту, проверяйте FOOTBALL CALCULATION TABLE 05.08.2024.xlsb 526.83 kB · 6 загрузок Спасибо. А со второй что не так, если не секрет? Некорректно работает?
Опубликовано 5 августа, 20242 г. Только что, VikTuk сказал: Спасибо. А со второй что не так, если не секрет? Некорректно работает? Показалась неудобной для меня
Опубликовано 5 августа, 20242 г. Постоянный 16 минут назад, alegg сказал: Оставил только эту, проверяйте FOOTBALL CALCULATION TABLE 05.08.2024.xlsb 526.83 kB · 5 загрузок маленькое уточнение, в старых таблицах, использовался индекс 22, в моей функции, этот индекс 25. Так как, последние исправления уже использовали этот индекс. В этом индексе хранятся Очки их турнирной таблицы. Чтобы очки показывало, измените 22 на 25. И всё заработает.
Опубликовано 5 августа, 20242 г. 6 минут назад, Shurik91 сказал: маленькое уточнение, в старых таблицах, использовался индекс 22, в моей функции, этот индекс 25. Так как, последние исправления уже использовали этот индекс. В этом индексе хранятся Очки их турнирной таблицы. Чтобы очки показывало, измените 22 на 25. И всё заработает. скажите а как попасть в исходник,где расположены модули
Опубликовано 5 августа, 20242 г. Постоянный 4 минуты назад, denmp сказал: скажите а как попасть в исходник,где расположены модули Alt + F11
Опубликовано 5 августа, 20242 г. 1 минуту назад, Shurik91 сказал: Alt + F11 Вы гений,а я мучаюсь с утра.
Опубликовано 5 августа, 20242 г. 18 минут назад, Shurik91 сказал: маленькое уточнение, в старых таблицах, использовался индекс 22, в моей функции, этот индекс 25. Так как, последние исправления уже использовали этот индекс. В этом индексе хранятся Очки их турнирной таблицы. Чтобы очки показывало, измените 22 на 25. И всё заработает. Спасибо! Вы правы, заработало FOOTBALL CALCULATION TABLE 05.08.2024.xlsb
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.