Опубликовано 24 августа, 20215 г. 14 часов назад, SergioJek сказал: Кому нужно уже давно сделали и что за прогу поправили!?
Опубликовано 24 августа, 20215 г. 1 час назад, Игорь Сергеевич сказал: Так она исправно работает! Она не загружает кфы
Опубликовано 24 августа, 20215 г. 3 часа назад, Игорь Сергеевич сказал: Так она исправно работает! Вам нужна эта таблица, другому другая, третьему третья и т.д. У всех заинтересованность в определённой таблице в которой он уже подобрал фильтры и добился прогресса. Но делиться этим не хочет, потому что он потратил много времени на подбор. Естественно будет мало желающих. Это написано для Игорь Сергеевич Изменено 24 августа, 20215 г. пользователем zxxxa
Опубликовано 24 августа, 20215 г. "Уже подобрал фильтры и добился прогресса. Но делиться этим не хочет, потому что он потратил много времени на подбор." Тут таких нет. Но ты молодец не теряешь надежду!
Опубликовано 24 августа, 20215 г. Если возможно, поделитесь куском кода " парсинг кэфов" что должно быть вместо этого: objRegExp.Pattern = "block-1x2-ft(.*?)block-1x2-1hf" If objRegExp.test(fs_input) = True Then Set objMatches = objRegExp.Execute(fs_input) If InStr(1, objMatches.Item(0).submatches(0), bookmaker1) = 0 Then Else: bookmaker = bookmaker1: End If If bookmaker <> "" Then objRegExp.Pattern = "<tr(.*?)bookmaker(.*?)" & bookmaker & "(.*?)wrap(.*?)>(.*?)<\/span>(.*?)wrap(.*?)>(.*?)<\/span>(.*?)wrap(.*?)>(.*?)<\/span>(.*?)<\/tr>" If objRegExp.test(objMatches.Item(0).submatches(0)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(0)) Sheets("listing").Range("u" & rowindx).Value = objMatches2.Item(0).submatches(4) Sheets("listing").Range("v" & rowindx).Value = objMatches2.Item(0).submatches(7) Sheets("listing").Range("w" & rowindx).Value = objMatches2.Item(0).submatches(10) End If End If End If
Опубликовано 26 августа, 20215 г. В 24.08.2021 в 23:02, Alex Pavlen сказал: "Уже подобрал фильтры и добился прогресса. Но делиться этим не хочет, потому что он потратил много времени на подбор." Тут таких нет. Но ты молодец не теряешь надежду! ваше только мнение
Опубликовано 28 августа, 20215 г. Altadar Final _ восстановлена - цена составила 1500...Продолжаю тест
Опубликовано 6 февраля, 20233 г. В 24.08.2021 в 21:51, taq taq сказал: Если возможно, поделитесь куском кода " парсинг кэфов" что должно быть вместо этого: objRegExp.Pattern = "block-1x2-ft(.*?)block-1x2-1hf" If objRegExp.test(fs_input) = True Then Set objMatches = objRegExp.Execute(fs_input) If InStr(1, objMatches.Item(0).submatches(0), bookmaker1) = 0 Then Else: bookmaker = bookmaker1: End If If bookmaker <> "" Then objRegExp.Pattern = "<tr(.*?)bookmaker(.*?)" & bookmaker & "(.*?)wrap(.*?)>(.*?)<\/span>(.*?)wrap(.*?)>(.*?)<\/span>(.*?)wrap(.*?)>(.*?)<\/span>(.*?)<\/tr>" If objRegExp.test(objMatches.Item(0).submatches(0)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(0)) Sheets("listing").Range("u" & rowindx).Value = objMatches2.Item(0).submatches(4) Sheets("listing").Range("v" & rowindx).Value = objMatches2.Item(0).submatches(7) Sheets("listing").Range("w" & rowindx).Value = objMatches2.Item(0).submatches(10) End If End If End If уже ничего. там выдача еще в прошлом году изменилась
Опубликовано 6 февраля, 20233 г. 1 час назад, vinity сказал: BETPROFIFAST-4 (3).xlsm нкжна реанимация .плиз реанимация не поможет, там весь код переписывать надо
Опубликовано 6 февраля, 20233 г. Постоянный В 24.08.2021 в 20:51, taq taq сказал: Если возможно, поделитесь куском кода " парсинг кэфов" что должно быть вместо этого: objRegExp.Pattern = "block-1x2-ft(.*?)block-1x2-1hf" If objRegExp.test(fs_input) = True Then Set objMatches = objRegExp.Execute(fs_input) If InStr(1, objMatches.Item(0).submatches(0), bookmaker1) = 0 Then Else: bookmaker = bookmaker1: End If If bookmaker <> "" Then objRegExp.Pattern = "<tr(.*?)bookmaker(.*?)" & bookmaker & "(.*?)wrap(.*?)>(.*?)<\/span>(.*?)wrap(.*?)>(.*?)<\/span>(.*?)wrap(.*?)>(.*?)<\/span>(.*?)<\/tr>" If objRegExp.test(objMatches.Item(0).submatches(0)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(0)) Sheets("listing").Range("u" & rowindx).Value = objMatches2.Item(0).submatches(4) Sheets("listing").Range("v" & rowindx).Value = objMatches2.Item(0).submatches(7) Sheets("listing").Range("w" & rowindx).Value = objMatches2.Item(0).submatches(10) End If End If End If привет 😉 вот тебе, не кусок кода, а целая процедура для парсинга коэффициентов, пользуйся на здоровье, я её отремонтировал, но она не моя, думаю кто писал, не будет против 😅 единственное, возьми для начала, создай новый лист, назови его "Коэффициенты" и закомментируй третью строку, Sub getOdds(id, Optional bets As String = "1xBet"), а первую и вторую открой, убрав знак ' протестируй, посмотри, как работает, а потом подкорректируй под себя. Если что, пиши в ЛС, помогу 🧐 я для примера, взял id матча, ИТАЛИЯ: Серия А > Салернитана - Ювентус данные извлекаются с бк, 1xBet и сохраняются в лист "Коэффициенты", но можно сделать и с др. конторы выглядит это, вот так 'Sub getOdds() 'id = "4UYwDAF3" Sub getOdds(id, Optional bets As String = "1xBet") Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", "https://d.soccer24.com/x/feed/df_od_2_" & id, False http.setRequestHeader "X-Fsign", "SW9D1eZo" http.send fs_input = http.responseText 'fix - матч без Кф If fs_input = Empty Then Exit Sub Set objRegExp = CreateObject("VBScript.RegExp") 'П1 НИЧЬЯ П2 objRegExp.Pattern = "1x2-odds(.*?)" & bets & "(.*?)XA" & ChrW(&HF7) & "(.*?)¬XB" & ChrW(&HF7) & "(.*?)¬XC" & ChrW(&HF7) & "(.*?)¬OG" If objRegExp.test(fs_input) = True Then Set objMatches = objRegExp.Execute(fs_input) objRegExp.Pattern = "(.*)\[(.*)\](.*)" If objRegExp.test(objMatches.Item(0).submatches(2)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(2)) Sheets("Коэффициенты").Range("A2").Value = "П1" Sheets("Коэффициенты").Range("B2").Value = objMatches2.Item(0).submatches(0) Sheets("Коэффициенты").Range("C2").Value = objMatches2.Item(0).submatches(2) Else Sheets("Коэффициенты").Range("A2").Value = "П1" Sheets("Коэффициенты").Range("B2").Value = objMatches.Item(0).submatches(2) Sheets("Коэффициенты").Range("C2").Value = objMatches.Item(0).submatches(2) End If If objRegExp.test(objMatches.Item(0).submatches(3)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(3)) Sheets("Коэффициенты").Range("A3").Value = "X" Sheets("Коэффициенты").Range("B3").Value = objMatches2.Item(0).submatches(0) Sheets("Коэффициенты").Range("C3").Value = objMatches2.Item(0).submatches(2) Else Sheets("Коэффициенты").Range("A3").Value = "X" Sheets("Коэффициенты").Range("B3").Value = objMatches.Item(0).submatches(3) Sheets("Коэффициенты").Range("C3").Value = objMatches.Item(0).submatches(3) End If If objRegExp.test(objMatches.Item(0).submatches(4)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(4)) Sheets("Коэффициенты").Range("A4").Value = "П2" Sheets("Коэффициенты").Range("B4").Value = objMatches2.Item(0).submatches(0) Sheets("Коэффициенты").Range("C4").Value = objMatches2.Item(0).submatches(2) Else Sheets("Коэффициенты").Range("A4").Value = "П2" Sheets("Коэффициенты").Range("B4").Value = objMatches.Item(0).submatches(4) Sheets("Коэффициенты").Range("C4").Value = objMatches.Item(0).submatches(4) End If End If 'ТОТАЛ 2.5 objRegExp.Pattern = "over-under(.*?)Total¬OC" & ChrW(&HF7) & "2.5(.*?)" & bets & "(.*?)XB" & ChrW(&HF7) & "(.*?)¬XC" & ChrW(&HF7) & "(.*?)¬OG" If objRegExp.test(fs_input) = True Then Set objMatches = objRegExp.Execute(fs_input) objRegExp.Pattern = "(.*)\[(.*)\](.*)" If objRegExp.test(objMatches.Item(0).submatches(3)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(3)) Sheets("Коэффициенты").Range("A5").Value = "ТБ 2.5" Sheets("Коэффициенты").Range("B5").Value = objMatches2.Item(0).submatches(0) Sheets("Коэффициенты").Range("C5").Value = objMatches2.Item(0).submatches(2) Else Sheets("Коэффициенты").Range("A5").Value = "ТБ 2.5" Sheets("Коэффициенты").Range("B5").Value = objMatches.Item(0).submatches(3) Sheets("Коэффициенты").Range("C5").Value = objMatches.Item(0).submatches(3) End If If objRegExp.test(objMatches.Item(0).submatches(4)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(4)) Sheets("Коэффициенты").Range("A6").Value = "ТМ 2.5" Sheets("Коэффициенты").Range("B6").Value = objMatches2.Item(0).submatches(0) Sheets("Коэффициенты").Range("C6").Value = objMatches2.Item(0).submatches(2) Else Sheets("Коэффициенты").Range("A6").Value = "ТМ 2.5" Sheets("Коэффициенты").Range("B6").Value = objMatches.Item(0).submatches(4) Sheets("Коэффициенты").Range("C6").Value = objMatches.Item(0).submatches(4) End If End If 'ОЗ objRegExp.Pattern = "both-teams-to-score(.*?)" & bets & "(.*?)XB" & ChrW(&HF7) & "(.*?)¬XC" & ChrW(&HF7) & "(.*?)¬OG" If objRegExp.test(fs_input) = True Then Set objMatches = objRegExp.Execute(fs_input) objRegExp.Pattern = "(.*)\[(.*)\](.*)" If objRegExp.test(objMatches.Item(0).submatches(2)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(2)) Sheets("Коэффициенты").Range("A7").Value = "ОЗД" Sheets("Коэффициенты").Range("B7").Value = objMatches2.Item(0).submatches(0) Sheets("Коэффициенты").Range("C7").Value = objMatches2.Item(0).submatches(2) Else Sheets("Коэффициенты").Range("A7").Value = "ОЗД" Sheets("Коэффициенты").Range("B7").Value = objMatches.Item(0).submatches(2) Sheets("Коэффициенты").Range("C7").Value = objMatches.Item(0).submatches(2) End If If objRegExp.test(objMatches.Item(0).submatches(3)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(3)) Sheets("Коэффициенты").Range("A8").Value = "ОЗН" Sheets("Коэффициенты").Range("B8").Value = objMatches2.Item(0).submatches(0) Sheets("Коэффициенты").Range("C8").Value = objMatches2.Item(0).submatches(2) Else Sheets("Коэффициенты").Range("A8").Value = "ОЗН" Sheets("Коэффициенты").Range("B8").Value = objMatches.Item(0).submatches(3) Sheets("Коэффициенты").Range("C8").Value = objMatches.Item(0).submatches(3) End If End If End Sub Изменено 6 февраля, 20233 г. пользователем Shurik91
Опубликовано 6 февраля, 20233 г. Постоянный только сейчас увидел, что сообщение опубликовано taq taq, в 21г. 🤣 Вобщем, пользуйтесь, кому нужно 😉
Опубликовано 7 февраля, 20233 г. Постоянный для тестов нужно так 'Sub getOdds() 'id = "4UYwDAF3" 'bets = "1xBet" а не так, как я написал выше 'Sub getOdds() 'id = "4UYwDAF3" 🤭
Опубликовано 7 февраля, 20233 г. Можно из этого что восстановить ? FOREBET_PLYUS-2017_rus.xlsm FOREBET_2_0_rus.xlsm
Опубликовано 8 февраля, 20233 г. Всем здарова) Очень неплохая таблица на футбол , особенно выдавала хорошие результаты на исход) Перестала работать. Было бы здорово ее отремонтить) Заранее спасибо GPS_Oracle_3.xlsm
Опубликовано 8 февраля, 20233 г. Модераторы 14 часов назад, kus сказал: Можно из этого что восстановить ? FOREBET_PLYUS-2017_rus.xlsm 920.65 кБ · 9 загрузок FOREBET_2_0_rus.xlsm 740.06 кБ · 9 загрузок У них же свой сайт есть, там те же прогнозы. Введите в Гугле Форабет...
Опубликовано 8 февраля, 20233 г. 4 часа назад, fenix сказал: У них же свой сайт есть, Мне нужно сартировать, по каким лигам какая проходимость
Опубликовано 8 февраля, 20233 г. в старой ветке был файл не грузит результаты в чём причина может быть ? kapperfi_2021 FIX _01.xlsb
Опубликовано 22 марта, 20233 г. Добрый вечер, перестала парсить коэффиценты можно ли исправить автоматическая версия таблицы .xlsb
Опубликовано 22 марта, 20233 г. 24 минуты назад, Юрий Журавлев сказал: Добрый вечер, перестала парсить коэффиценты можно ли исправить автоматическая версия таблицы .xlsb 266.04 \u043a\u0411 · 3 загрузки На всех сайтах статистики исчезли коэффиценты. Сам в догадках почему?
Опубликовано 23 марта, 20233 г. 11 часов назад, zxxxa сказал: На всех сайтах статистики исчезли коэффиценты. Сам в догадках почему? 26.xlsx Nowgoal выдал самое большое количество КФ 175. Все остальные сайты выдали по 80-90 матчей. Странно (((
Опубликовано 11 апреля, 20233 г. Может все таки кто-то отремонтирует эту таблицу. Заранее благодарю! CrushPoints.xlsm
Опубликовано 13 апреля, 20233 г. Я не знаю VBA У меня есть очень старые Excels Я понял, что пока я смотрел на них, я хотел, чтобы они были исправлены, потому что это может быть полезно для всех, если вы сделаете это, создайте имя пользователя и поделитесь им только с членами сайт или если вы отказались от исправления файла, спасибо за усилия, это не имеет значения, в настоящее время я использую этот файл для живых матчей. использует его, ловит в целом очень хорошие вещи, можете не сомневаться, дает очень комфортные результаты в 4 матчах из 5 Betapp (10).xlsm
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.