Перейти к содержанию
Почему не могу скачать?

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

-FH-

Автор -FH-
в Футбол

 Поделиться
Перейти к решению Решено eremej,

Рекомендуемые сообщения

Elimay1998 Писатель

Elimay1998 53

Опубликовано
Опубликовано
14 часов назад, SergioJek сказал:

Кому нужно уже давно сделали

и что за прогу поправили!? 

 

 

Ссылка на комментарий
Поделиться на другие сайты
  • Ответов 2,6 тыс
  • Создана
  • Последний ответ

Топ авторов темы

Популярные дни

Топ авторов темы

Популярные дни

Популярные посты

Shurik91
Shurik91

пофиксил таблицы (исправил Очки). А также обновил ALLBETPRO, теперь работает со всеми лигами, включая Англию🏴󠁧󠁢󠁥󠁮󠁧󠁿 3F_ELIZABET_PRO_2022_V.1.0.71.xlsm ALLBETPRO 2024 FREE Mod SJ.xlsb FOOTBALL CAL

Shurik91
Shurik91

всем привет😉, обновил две новые таблички и пофиксил ALLBETPRO (исправил некорректные результаты, может быть кто-то заметил, счёт у некоторых матчей был с минусом, кэфы и очные, теперь корректно отобра

Shurik91
Shurik91

Всем привет 😉, программа ⚽ Simple Analysis - NowGoaL, прошла успешное тестирование 👍, поэтому сегодня публичный её релиз! Что было сделано? ✍️ весь код, вычистил от мусора, код внутри понятн

Изображения в теме

The Iron Wizard Мастер

The Iron Wizard 862

Опубликовано
Опубликовано

Готов скинутся на ремонт этой таблицы 

 

Ссылка на комментарий
Поделиться на другие сайты
Western Гость

Western 12

Опубликовано
Опубликовано
1 час назад, Игорь Сергеевич сказал:

Так она исправно работает!

Она не загружает кфы

  • Нравится 1
Ссылка на комментарий
Поделиться на другие сайты
zxxxa Писатель

zxxxa 71

Опубликовано
Опубликовано (изменено)
3 часа назад, Игорь Сергеевич сказал:

Так она исправно работает!

Вам нужна эта таблица, другому другая, третьему третья и т.д. У всех заинтересованность в определённой таблице в которой он уже подобрал фильтры и добился прогресса. Но делиться этим не хочет, потому что он потратил много времени на подбор. Естественно будет мало желающих. Это написано для Игорь Сергеевич

Изменено пользователем zxxxa
Ссылка на комментарий
Поделиться на другие сайты
Alex Pavlen Завсегдатай

Alex Pavlen 31

Опубликовано
Опубликовано

"Уже подобрал фильтры и добился прогресса. Но делиться этим не хочет, потому что он потратил много времени на подбор." Тут таких нет. Но ты молодец не теряешь надежду! 

  • Нравится 1
Ссылка на комментарий
Поделиться на другие сайты
taq taq Гость

taq taq 4

Опубликовано
Опубликовано

Если возможно, поделитесь куском кода  " парсинг  кэфов"

что должно быть вместо этого:

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
 

Ссылка на комментарий
Поделиться на другие сайты
Elimay1998 Писатель

Elimay1998 53

Опубликовано
Опубликовано
В 24.08.2021 в 23:02, Alex Pavlen сказал:

"Уже подобрал фильтры и добился прогресса. Но делиться этим не хочет, потому что он потратил много времени на подбор." Тут таких нет. Но ты молодец не теряешь надежду! 

ваше только мнение

Ссылка на комментарий
Поделиться на другие сайты
Elimay1998 Писатель

Elimay1998 53

Опубликовано
Опубликовано

Altadar Final _ восстановлена - цена составила 1500...Продолжаю тест

Ссылка на комментарий
Поделиться на другие сайты
  • 1 год спустя...
  • Постоянный
vinity Мастер

vinity 590

Опубликовано
  • Постоянный
Опубликовано

BETPROFIFAST-4 (3).xlsm нкжна реанимация .плиз

Ссылка на комментарий
Поделиться на другие сайты
WMI Читатель

WMI 10

Опубликовано
Опубликовано
В 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
 

уже ничего. там выдача еще в прошлом году изменилась

Ссылка на комментарий
Поделиться на другие сайты
WMI Читатель

WMI 10

Опубликовано
Опубликовано
1 час назад, vinity сказал:

BETPROFIFAST-4 (3).xlsm нкжна реанимация .плиз

реанимация не поможет, там весь код переписывать надо

Ссылка на комментарий
Поделиться на другие сайты
Shurik91 Писатель

Shurik91 559

Опубликовано
Опубликовано (изменено)
В 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 и сохраняются в лист "Коэффициенты", но можно сделать и с др. конторы

выглядит это, вот так

image.png.cc28fc56dc3250b4f39cc2f86be9cdb3.png 

'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

 

Изменено пользователем Shurik91
  • Нравится 2
Ссылка на комментарий
Поделиться на другие сайты
Shurik91 Писатель

Shurik91 559

Опубликовано
Опубликовано

только сейчас увидел, что сообщение опубликовано taq taq, в 21г. 🤣 Вобщем, пользуйтесь, кому нужно 😉

  • Нравится 1
Ссылка на комментарий
Поделиться на другие сайты
Shurik91 Писатель

Shurik91 559

Опубликовано
Опубликовано

для тестов нужно так 

'Sub getOdds()
'id = "4UYwDAF3"
'bets = "1xBet"

а не так, как я написал выше 

'Sub getOdds()
'id = "4UYwDAF3"

🤭

Ссылка на комментарий
Поделиться на другие сайты
kus Завсегдатай

kus 32

Опубликовано
Опубликовано

Можно из этого что восстановить ?

FOREBET_PLYUS-2017_rus.xlsm FOREBET_2_0_rus.xlsm

Ссылка на комментарий
Поделиться на другие сайты
Lucas Piscek Новичок

Lucas Piscek 36

Опубликовано
Опубликовано

Всем здарова)
Очень неплохая таблица на футбол , особенно выдавала хорошие результаты на исход) Перестала работать. 
Было бы здорово ее отремонтить)
Заранее спасибо

GPS_Oracle_3.xlsm

Ссылка на комментарий
Поделиться на другие сайты
  • Модераторы
fenix Гуру

fenix 453

Опубликовано
  • Модераторы
Опубликовано
14 часов назад, kus сказал:

Можно из этого что восстановить ?

FOREBET_PLYUS-2017_rus.xlsm 920.65 кБ · 9 загрузок FOREBET_2_0_rus.xlsm 740.06 кБ · 9 загрузок

У них же свой сайт есть, там те же прогнозы. Введите в Гугле Форабет...

  • Нравится 1
Ссылка на комментарий
Поделиться на другие сайты
kus Завсегдатай

kus 32

Опубликовано
Опубликовано
4 часа назад, fenix сказал:

У них же свой сайт есть,

Мне нужно сартировать, по каким лигам какая проходимость 

  • Нравится 1
Ссылка на комментарий
Поделиться на другие сайты
kus Завсегдатай

kus 32

Опубликовано
Опубликовано

в старой ветке был файл

не грузит результаты в чём причина может быть ?

 

Рабочий стол 2023-02-08 22.34.15.png

kapperfi_2021 FIX _01.xlsb

  • Нравится 1
Ссылка на комментарий
Поделиться на другие сайты
  • 1 месяц спустя...
Юрий Журавлев Участник

Юрий Журавлев 36

Опубликовано
Опубликовано

Добрый вечер, перестала парсить коэффиценты можно ли исправить

автоматическая версия таблицы .xlsb

  • Нравится 1
Ссылка на комментарий
Поделиться на другие сайты
zxxxa Писатель

zxxxa 71

Опубликовано
Опубликовано
24 минуты назад, Юрий Журавлев сказал:

Добрый вечер, перестала парсить коэффиценты можно ли исправить

автоматическая версия таблицы .xlsb 266.04 \u043a\u0411 · 3 загрузки

На всех сайтах статистики исчезли коэффиценты. Сам в догадках почему?

  • Нравится 1
Ссылка на комментарий
Поделиться на другие сайты
Yurec Завсегдатай

Yurec 55

Опубликовано
Опубликовано
11 часов назад, zxxxa сказал:

На всех сайтах статистики исчезли коэффиценты. Сам в догадках почему?

26.xlsx

Nowgoal выдал самое большое количество КФ 175. Все остальные сайты выдали по 80-90 матчей. Странно (((

Ссылка на комментарий
Поделиться на другие сайты
  • 3 недели спустя...
DrXPEH Завсегдатай

DrXPEH 67

Опубликовано
Опубликовано

Может все таки кто-то отремонтирует эту таблицу. Заранее благодарю!

CrushPoints.xlsm

Ссылка на комментарий
Поделиться на другие сайты
pisoi21 Завсегдатай

pisoi21 148

Опубликовано
Опубликовано

Я не знаю VBA У меня есть очень старые Excels Я понял, что пока я смотрел на них, я хотел, чтобы они были исправлены, потому что это может быть полезно для всех, если вы сделаете это, создайте имя пользователя и поделитесь им только с членами сайт или если вы отказались от исправления файла, спасибо за усилия, это не имеет значения, в настоящее время я использую этот файл для живых матчей. использует его, ловит в целом очень хорошие вещи, можете не сомневаться, дает очень комфортные результаты в 4 матчах из 5      image.thumb.png.c7d8b381375be03f6759ac1a9d1a5a68.pngimage.thumb.png.6994acdd70cbcfc650cb00de6a28046d.png

Betapp (10).xlsm

  • Нравится 4
Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
 Поделиться
Перейти к списку тем

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...