Опубликовано 1 августа, 20242 г. 15 минут назад, Grey Cardinal сказал: Я тоже любитель, насколько я понял проблема в парсинге турнирной таблицы – они похода поменяли ссылку на турнирку. Теперь ждем тех кто не любитель. Сама ссылка работает правильно Когда идет разборка основной строки правильно определяется чемпионат, команды и id матча. А вот дальше что -то идет не так.
Опубликовано 1 августа, 20242 г. 7 минут назад, red_star сказал: Сама ссылка работает правильно Когда идет разборка основной строки правильно определяется чемпионат, команды и id матча. А вот дальше что -то идет не так. Надо профессионалов, а то у меня получается гадания на кофейной гуще
Опубликовано 1 августа, 20242 г. Я в этом плохо понимаю, получается что меняется что-то на одном сайте и сразу за ним на всех остальных? Просто в таблице сайтов пять, не грузит ни с одного
Опубликовано 1 августа, 20242 г. Администраторы То самое, грузит пустыми ячейками. Кто сможет, посмотрите. OG.xlsb
Опубликовано 1 августа, 20242 г. 4 минуты назад, alegg сказал: Я в этом плохо понимаю, получается что меняется что-то на одном сайте и сразу за ним на всех остальных? Просто в таблице сайтов пять, не грузит ни с одного Это все клоны.
Опубликовано 1 августа, 20242 г. Постоянный всем привет😉, в таблицах перестали работать url отвечающие за загрузку, рейтинговых таблиц (Overall, Form, Over 2.5), без них, таблицы не могут работать. Есть url новые, но простой заменной, copy-paste отремонтировать не получится. Нужно будет немного поработать, самостоятельно, не спеша руками и исправить ошибку. Решение проблемы, уже готово, осталось написать инструкцию для всех. Постараюсь к вечеру выложить.
Опубликовано 1 августа, 20242 г. 22 минуты назад, Shurik91 сказал: всем привет😉, в таблицах перестали работать url отвечающие за загрузку, рейтинговых таблиц (Overall, Form, Over 2.5), без них, таблицы не могут работать. Есть url новые, но простой заменной, copy-paste отремонтировать не получится. Нужно будет немного поработать, самостоятельно, не спеша руками и исправить ошибку. Решение проблемы, уже готово, осталось написать инструкцию для всех. Постараюсь к вечеру выложить. Спасибо! Ждем
Опубликовано 1 августа, 20242 г. Эх, вы....А вот, если бы, пользовались API от пользователя форму @noname, проблем бы не было 😚❤️.
Опубликовано 1 августа, 20242 г. 11 минут назад, Burn Marlon сказал: Эх, вы....А вот, если бы, пользовались API от пользователя форму @noname, проблем бы не было 😚❤️. Тут бы разобраться с ремонтом таблиц, в принципе по инструкции поменять несколько строчек/букв/цифр не сложно, с api же, вообще темный лес
Опубликовано 1 августа, 20242 г. ВСЕ ТАБЛИЦЫ ЗАРАБОТАЛИ БЕЗ РЕМОНТА! ИНФА 100! 😊 Изменено 1 августа, 20242 г. пользователем Burn Marlon
Опубликовано 1 августа, 20242 г. 2 минуты назад, Burn Marlon сказал: ВСЕ ТАБЛИЦЫ ЗАРАБОТАЛИ БЕЗ РЕМОНТА! ИНФА 100! 😊 Нет, только что проверил )
Опубликовано 1 августа, 20242 г. 3 минуты назад, Valera сказал: Нет, только что проверил ) Потыкаите источники разные Изменено 1 августа, 20242 г. пользователем Burn Marlon
Опубликовано 1 августа, 20242 г. Администраторы 2 минуты назад, Burn Marlon сказал: Потыкаите истоничники разные Не работает.
Опубликовано 1 августа, 20242 г. 18 минут назад, Valera сказал: Нет, только что проверил ) Зачем вреш,ничего не работает
Опубликовано 1 августа, 20242 г. Не работает, с flashscore.com грузит один матч в 20 секунд, пустые, с остальных быстро, тоже пустые
Опубликовано 1 августа, 20242 г. 4 минуты назад, YuriyNM сказал: Зачем вреш,ничего не работает Ты дятел? Я и написал что нет, не работает
Опубликовано 1 августа, 20242 г. 1 час назад, Burn Marlon сказал: Эх, вы....А вот, если бы, пользовались API от пользователя форму @noname, проблем бы не было 😚❤️. Нашел только что таблицу, которая у меня перестала работать, с api от noname, тоже не работает, в чем заключается "проблем бы не было"?
Опубликовано 1 августа, 20242 г. Администраторы Можно спросить в нейросети, но человек выше писал, что сделает. Думаю у него лучше получится.
Опубликовано 1 августа, 20242 г. 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
Опубликовано 1 августа, 20242 г. Администраторы 6 минут назад, majestic14 сказал: hiçbir tahmin yüklemiyor Я знаю, що нема.
Опубликовано 1 августа, 20242 г. 6 часов назад, Shurik91 сказал: Решение проблемы, уже готово, осталось написать инструкцию для всех. Постараюсь к вечеру выложить. С нетерпением ждем инструкцию! Заранее спасибо!
Опубликовано 1 августа, 20242 г. Постоянный Итак😅, ПОЧТИ УНИВЕРСАЛЬНАЯ ИНСТРУКЦИЯ 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. Вроде бы ВСЁ!😉 Для людей опытных напишу, коротко. Наша задача убрать полностью старый код и заменить на новый. А так как ячейки и имя листа, остаются теми же. То в новом коде, нам нужно. Просто прописать их имена и всё. Я оставил, новичкам старый код, чтобы им было легче, а то если, ещё и удалять просить... То можно совсем потеряться и запутаться😅 Кто умеет смотреть скрытые листы и ставить на стоп код, проверьте обязательно, заполнение таблиц на правильность. Мало ли...🧐
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.