Опубликовано 19 февраля, 20251 г. 6 минут назад, The Iron Wizard сказал: Я такой таблицы еще не встречал, чтобы парсила средний кэф несколько БК. Боюсь это не возможно. Только если в этой ODDS_BRC таблице можно что то сделать. Но с этим вопросом поможет только shurik91. К примеру nowgoal показывает средние кэфы открытия и закрытия. Кстати можно выбирать любых интересующих буков .
Опубликовано 19 февраля, 20251 г. 13 часов назад, The Iron Wizard сказал: Можно вставить только те, что отображаются у вас на сайтах по типу флэшскоре. Он у вас отображается? Понял. Вопросов по этому вопросу больше не имею.
Опубликовано 19 февраля, 20251 г. Постоянный 27 минут назад, vlad2017 сказал: К примеру nowgoal показывает средние кэфы открытия и закрытия. Кстати можно выбирать любых интересующих буков . А при чем здесь сайт к таблице. Допустим и oddsportal показывает.
Опубликовано 19 февраля, 20251 г. 3 минуты назад, The Iron Wizard сказал: А при чем здесь сайт к таблице. Допустим и oddsportal показывает. Вы ответили что такого не встречал я привел пример.
Опубликовано 19 февраля, 20251 г. Постоянный 1 минуту назад, vlad2017 сказал: Вы ответили что такого не встречал я привел пример. А не чего, что я писал про таблицу.
Опубликовано 19 февраля, 20251 г. Это архив кэфов . А еще была турецкая таблица не помню название парсила с nowgoal средние кэфы 77631394_MilyonlukAriv (2).xlsb
Опубликовано 19 февраля, 20251 г. Вопрос другой. Почему в этой таблице, в модулях кроме английских сайтов так же прописаны русскоязычные сайты ливскор и ливспорт, но в выпадающем меню выбора сайтов парсинга они отсутствуют? И ещё вопрос по данной таблице: Почему при очистке архива и добавлении туда новых матчей они в архиве не отражаются? Архив просто пуст. TOTAL-OVER .xlsm Изменено 19 февраля, 20251 г. пользователем Dorian
Опубликовано 19 февраля, 20251 г. 1 час назад, The Iron Wizard сказал: А не чего, что я писал про таблицу. Нашел эту таблицу которая парсит средние кэфы. К сожалению не работает. NowGoalBet13122022 SJ (2).xlsm
Опубликовано 19 февраля, 20251 г. Постоянный 1 час назад, Dorian сказал: Вопрос другой. Почему в этой таблице, в модулях кроме английских сайтов так же прописаны русскоязычные сайты ливскор и ливспорт, но в выпадающем меню выбора сайтов парсинга они отсутствуют? И ещё вопрос по данной таблице: Почему при очистке архива и добавлении туда новых матчей они в архиве не отражаются? Архив просто пуст. TOTAL-OVER .xlsm 1.05 MB · 3 загрузки прога просто слегка изломана, в макросе загрузки стоят стоят одни сайты, в загрузке результатов другие. В архиве окно загрузки результатов содержит только 2 сайта... Короче: порылись в ней😈
Опубликовано 19 февраля, 20251 г. 19 минут назад, kovan сказал: прога просто слегка изломана, в макросе загрузки стоят стоят одни сайты, в загрузке результатов другие. В архиве окно загрузки результатов содержит только 2 сайта... Короче: порылись в ней😈 Не смог бы сделать так, чтобы она парсила хотябы с одного русскоязычного сайта ливскор? Я сам пробовал вставить ливскор, но она всеравно не парсила оттуда. Весь вечер на это угрохал. Или хотя бы подскажи пожалуйста как правильно это сделать. Изменено 19 февраля, 20251 г. пользователем Dorian
Опубликовано 20 февраля, 20251 г. Постоянный 16 часов назад, Dorian сказал: Не смог бы сделать так, чтобы она парсила хотябы с одного русскоязычного сайта ливскор? Я сам пробовал вставить ливскор, но она всеравно не парсила оттуда. Весь вечер на это угрохал. Или хотя бы подскажи пожалуйста как правильно это сделать. Как я делаю: 1 открыл файл, нажал alt+f11 ➔ вошли в VB 2 Щёлкаем по модулю 5, в этой программе там больший (не урезанный) список. Тут 6 сайтов, 3 нижних с русским языком. Стрелками показано, где название сайта и расклад яз. Если всё устраивает, то копируем весь участок выбора: от “IF source” до “End If”. Переходим в Module 1 Видим такой же блок, но с тремя сайтами (как видишь один русский сайт есть, только он не рабочий и ссылка ведёт на flashscorekz.com). Выделяем блок и заменяем скопированным в 5-ом модуле. В 6-ом модуле тоже есть такой список, но он такой же как в 5-ом, если не менял список, то ничего не трогаем, а если что-то сменил, то и там меняй. Далее переходим на саму программу и тыкаем на любой лист правой кнопкой мышки, в списке выбираем «показать» Находим «Settings» ➔ «ОК», откроется лист «Settings» и там список сайтов: (в колонке F указан какой сайт выбран из списка) Меняем список: Шлёпаем по названию (вернее по ячейке E1) текст появится в строке формул Текст меняем именно в строке формул на первый сайт в списке, он у нас: flashscore.com, Я запишу без расширения Что там напишем ни на что не влияет, лишь бы самому понятно было. Меняем так все 6 строк Переходим в лист «List», топаем правой кнопкой мышки по окошку выбора сайта Меняем на шестёрки (количество строк с сайтами) Заходим в архив и там также меняем: Всё😉! Можешь называть себя Хакером😜 Изменено 20 февраля, 20251 г. пользователем kovan
Опубликовано 20 февраля, 20251 г. Постоянный 3 часа назад, kovan сказал: Как я делаю: 1 открыл файл, нажал alt+f11 ➔ вошли в VB 2 Щёлкаем по модулю 5, в этой программе там больший (не урезанный) список. Тут 6 сайтов, 3 нижних с русским языком. Стрелками показано, где название сайта и расклад яз. Если всё устраивает, то копируем весь участок выбора: от “IF source” до “End If”. Переходим в Module 1 Видим такой же блок, но с тремя сайтами (как видишь один русский сайт есть, только он не рабочий и ссылка ведёт на flashscorekz.com). Выделяем блок и заменяем скопированным в 5-ом модуле. В 6-ом модуле тоже есть такой список, но он такой же как в 5-ом, если не менял список, то ничего не трогаем, а если что-то сменил, то и там меняй. Далее переходим на саму программу и тыкаем на любой лист правой кнопкой мышки, в списке выбираем «показать» Находим «Settings» ➔ «ОК», откроется лист «Settings» и там список сайтов: (в колонке F указан какой сайт выбран из списка) Меняем список: Шлёпаем по названию (вернее по ячейке E1) текст появится в строке формул Текст меняем именно в строке формул на первый сайт в списке, он у нас: flashscore.com, Я запишу без расширения Что там напишем ни на что не влияет, лишь бы самому понятно было. Меняем так все 6 строк Переходим в лист «List», топаем правой кнопкой мышки по окошку выбора сайта Меняем на шестёрки (количество строк с сайтами) Заходим в архив и там также меняем: Всё😉! Можешь называть себя Хакером😜 Можете сделать проще: Присвоить публичность ресурсу и суффиксу таким способом: Public sourcer As String, suffix As String Написать такой список, с вызовом из нужной вам ячейки: Sub selectSource() sourcer = Sheets("Settings").Range("F1").value Select Case sourcer Case 1: sourcer = "livescore.in/": suffix = "_en_1" Case 2: sourcer = "livescore.in/ru/": suffix = "_ru_1" Case 3: sourcer = "livesport.com/": suffix = "_en_1" Case 4: sourcer = "livesport.com/ru/": suffix = "_ru_1" Case 5: sourcer = "soccer24.com/": suffix = "_en_1" Case 6: sourcer = "soccer24.com/ru/": suffix = "_ru_1" Case 7: sourcer = "flashscore.com/": suffix = "_en_1" Case 8: sourcer = "flashscorekz.com/": suffix = "_ru-kz_1" Case 9: sourcer = "flashfootball.com/": suffix = "_en_1" End Select End Sub В нужном вам макросе вызвать selectSource таким способом: Это избавит вас от головной боли, при поиске подобных кусков кода в разнообразных макросах:
Опубликовано 20 февраля, 20251 г. 4 часа назад, kovan сказал: Как я делаю: 1 открыл файл, нажал alt+f11 ➔ вошли в VB 2 Щёлкаем по модулю 5, в этой программе там больший (не урезанный) список. Тут 6 сайтов, 3 нижних с русским языком. Стрелками показано, где название сайта и расклад яз. Если всё устраивает, то копируем весь участок выбора: от “IF source” до “End If”. Переходим в Module 1 Видим такой же блок, но с тремя сайтами (как видишь один русский сайт есть, только он не рабочий и ссылка ведёт на flashscorekz.com). Выделяем блок и заменяем скопированным в 5-ом модуле. В 6-ом модуле тоже есть такой список, но он такой же как в 5-ом, если не менял список, то ничего не трогаем, а если что-то сменил, то и там меняй. Далее переходим на саму программу и тыкаем на любой лист правой кнопкой мышки, в списке выбираем «показать» Находим «Settings» ➔ «ОК», откроется лист «Settings» и там список сайтов: (в колонке F указан какой сайт выбран из списка) Меняем список: Шлёпаем по названию (вернее по ячейке E1) текст появится в строке формул Текст меняем именно в строке формул на первый сайт в списке, он у нас: flashscore.com, Я запишу без расширения Что там напишем ни на что не влияет, лишь бы самому понятно было. Меняем так все 6 строк Переходим в лист «List», топаем правой кнопкой мышки по окошку выбора сайта Меняем на шестёрки (количество строк с сайтами) Заходим в архив и там также меняем: Всё😉! Можешь называть себя Хакером😜 ОГРОМНОЕ СПАСИБО, ДРУЖИЩЕ!!! Попробую сделать всё по твоему описанию. О результатах отпишусь.
Опубликовано 20 февраля, 20251 г. 13 минут назад, Валерий Иванович сказал: Можете сделать проще: Присвоить публичность ресурсу и суффиксу таким способом: Public sourcer As String, suffix As String Написать такой список, с вызовом из нужной вам ячейки: Sub selectSource() sourcer = Sheets("Settings").Range("F1").value Select Case sourcer Case 1: sourcer = "livescore.in/": suffix = "_en_1" Case 2: sourcer = "livescore.in/ru/": suffix = "_ru_1" Case 3: sourcer = "livesport.com/": suffix = "_en_1" Case 4: sourcer = "livesport.com/ru/": suffix = "_ru_1" Case 5: sourcer = "soccer24.com/": suffix = "_en_1" Case 6: sourcer = "soccer24.com/ru/": suffix = "_ru_1" Case 7: sourcer = "flashscore.com/": suffix = "_en_1" Case 8: sourcer = "flashscorekz.com/": suffix = "_ru-kz_1" Case 9: sourcer = "flashfootball.com/": suffix = "_en_1" End Select End Sub В нужном вам макросе вызвать selectSource таким способом: Это избавит вас от головной боли, при поиске подобных кусков кода в разнообразных макросах: Вам тоже спасибо за подсказку, но я не понял ничего. Только не бейте ногами. В программировании я - 0 без палочки, поэтому задам пару вопросов: 1. Где это писать, то что вы выделили коричневым? 2. Надо дописать suffix в адресах ресурсов загрузки матчей и то, что вы выделили коричневым и тогда в выпадающем меню появятся эти сайты и можно будет с них загружать матчи?
Опубликовано 20 февраля, 20251 г. Доброго времени суток. Ребят, в чем может быть проблема? Не реагирует на изменение часового пояса. Как не выставляла, парсит +7. ODDS_BRC_16.11.24 (3).xlsb
Опубликовано 20 февраля, 20251 г. 4 часа назад, kovan сказал: Как я делаю: 1 открыл файл, нажал alt+f11 ➔ вошли в VB 2 Щёлкаем по модулю 5, в этой программе там больший (не урезанный) список. Тут 6 сайтов, 3 нижних с русским языком. Стрелками показано, где название сайта и расклад яз. Если всё устраивает, то копируем весь участок выбора: от “IF source” до “End If”. Переходим в Module 1 Видим такой же блок, но с тремя сайтами (как видишь один русский сайт есть, только он не рабочий и ссылка ведёт на flashscorekz.com). Выделяем блок и заменяем скопированным в 5-ом модуле. В 6-ом модуле тоже есть такой список, но он такой же как в 5-ом, если не менял список, то ничего не трогаем, а если что-то сменил, то и там меняй. Далее переходим на саму программу и тыкаем на любой лист правой кнопкой мышки, в списке выбираем «показать» Находим «Settings» ➔ «ОК», откроется лист «Settings» и там список сайтов: (в колонке F указан какой сайт выбран из списка) Меняем список: Шлёпаем по названию (вернее по ячейке E1) текст появится в строке формул Текст меняем именно в строке формул на первый сайт в списке, он у нас: flashscore.com, Я запишу без расширения Что там напишем ни на что не влияет, лишь бы самому понятно было. Меняем так все 6 строк Переходим в лист «List», топаем правой кнопкой мышки по окошку выбора сайта Меняем на шестёрки (количество строк с сайтами) Заходим в архив и там также меняем: Всё😉! Можешь называть себя Хакером😜 Спасибо!
Опубликовано 20 февраля, 20251 г. 1 час назад, Валерий Иванович сказал: Можете сделать проще: Присвоить публичность ресурсу и суффиксу таким способом: Public sourcer As String, suffix As String Написать такой список, с вызовом из нужной вам ячейки: Sub selectSource() sourcer = Sheets("Settings").Range("F1").value Select Case sourcer Case 1: sourcer = "livescore.in/": suffix = "_en_1" Case 2: sourcer = "livescore.in/ru/": suffix = "_ru_1" Case 3: sourcer = "livesport.com/": suffix = "_en_1" Case 4: sourcer = "livesport.com/ru/": suffix = "_ru_1" Case 5: sourcer = "soccer24.com/": suffix = "_en_1" Case 6: sourcer = "soccer24.com/ru/": suffix = "_ru_1" Case 7: sourcer = "flashscore.com/": suffix = "_en_1" Case 8: sourcer = "flashscorekz.com/": suffix = "_ru-kz_1" Case 9: sourcer = "flashfootball.com/": suffix = "_en_1" End Select End Sub В нужном вам макросе вызвать selectSource таким способом: Это избавит вас от головной боли, при поиске подобных кусков кода в разнообразных макросах: Спасибо!
Опубликовано 20 февраля, 20251 г. Постоянный 1 час назад, Валерий Иванович сказал: Можете сделать проще: Присвоить публичность ресурсу и суффиксу таким способом: Public sourcer As String, suffix As String Написать такой список, с вызовом из нужной вам ячейки: Sub selectSource() sourcer = Sheets("Settings").Range("F1").value Select Case sourcer Case 1: sourcer = "livescore.in/": suffix = "_en_1" Case 2: sourcer = "livescore.in/ru/": suffix = "_ru_1" Case 3: sourcer = "livesport.com/": suffix = "_en_1" Case 4: sourcer = "livesport.com/ru/": suffix = "_ru_1" Case 5: sourcer = "soccer24.com/": suffix = "_en_1" Case 6: sourcer = "soccer24.com/ru/": suffix = "_ru_1" Case 7: sourcer = "flashscore.com/": suffix = "_en_1" Case 8: sourcer = "flashscorekz.com/": suffix = "_ru-kz_1" Case 9: sourcer = "flashfootball.com/": suffix = "_en_1" End Select End Sub В нужном вам макросе вызвать selectSource таким способом: Это избавит вас от головной боли, при поиске подобных кусков кода в разнообразных макросах: Я как раз описал самый простой способ с картинками, что бы и человек без опыта и знаний, просто "тыкая" отремонтировал программу (именно эту). А понравится, будет изучать и делать другие проги уже с пониманием что к чему. А потом может и твой "простой" метод понять🙂 " Просто" - это когда понимаешь, что делаешь.
Опубликовано 20 февраля, 20251 г. Постоянный 1 минуту назад, kovan сказал: Я как раз описал самый простой способ с картинками, что бы и человек без опыта и знаний, просто "тыкая" отремонтировал программу (именно эту). А понравится, будет изучать и делать другие проги уже с пониманием что к чему. А потом может и твой "простой" метод понять🙂 " Просто" - это когда понимаешь, что делаешь. Да будет так 🫡
Опубликовано 20 февраля, 20251 г. 2 часа назад, deshenal сказал: Доброго времени суток. Ребят, в чем может быть проблема? Не реагирует на изменение часового пояса. Как не выставляла, парсит +7. ODDS_BRC_16.11.24 (3).xlsb 170.58 kB · 6 загрузок Без вариантов?
Опубликовано 20 февраля, 20251 г. 21 минуту назад, kovan сказал: В программе замешан конвертер VBA-Json , вот он чт-то мудрит с часовыми поясами. Выставил Московское время и русскоязычный сайт, парсит на 4 часа время больше. О чем вы при чем здесь конвертер VBA-Json? Там элементарная ошибка в коде при чем сразу же бросается в глаза. Все там работает.
Опубликовано 20 февраля, 20251 г. 29 минут назад, kovan сказал: В программе замешан конвертер VBA-Json , вот он чт-то мудрит с часовыми поясами. Выставил Московское время и рускоязычный сайт, парсит на 4 часа время больше. 4 минуты назад, Sergei2020 сказал: О чем вы при чем здесь конвертер VBA-Json? Там элементарная ошибка в коде при чем сразу же бросается в глаза. Все там работает. Супер!!! Где ошибка, не подскажите? Изменено 20 февраля, 20251 г. пользователем deshenal
Опубликовано 20 февраля, 20251 г. 4 минуты назад, deshenal сказал: Супер!!! Где ошибка, не подскажите? В этом блоке смотрите внимательно! Сам бы исправил, но лучше когда люди сами учатся на подсказках!
Опубликовано 20 февраля, 20251 г. Постоянный 36 минут назад, deshenal сказал: Без вариантов? Как вариант от незнающего, заменить как на картинке "-1" на "-5", время станет в норму😉
Опубликовано 20 февраля, 20251 г. Постоянный 7 минут назад, Sergei2020 сказал: В этом блоке смотрите внимательно! Сам бы исправил, но лучше когда люди сами учатся на подсказках! И что!?
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.