Перейти к содержанию
View in the app

A better way to browse. Learn more.
BrcBet.Com

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.
Почему не могу скачать?

Справка ВБ

Автор vadavada
в Беседка-флудилка

Featured Replies

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

Я пытаюсь получить следующий код для разбора личных встреч на flashscore, но столкнулся с проблемой. Может ли кто-нибудь помочь

// I am trying to get the following code to parse the head-to-head matches on flashscore but i am encountering a problem. Can anyone help?

 

a = 2 'Get H2H
temp_hh = 0: temp_hh1 = 0: ttttttt = 0
Sheets("Totalconfrontation").Range("A1").Value = ActiveCell.Offset(, -6).Value
Sheets("Totalconfrontation").Range("B1").Value = ActiveCell.Offset(, -5).Value
Sheets("Totalconfrontation").Range("A1").Value = ActiveCell.Offset(, -6).Value
Sheets("Totalconfrontation").Range("B1").Value = ActiveCell.Offset(, -5).Value
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
        oXMLHTTP.Open "GET", "https://d." & sourcer & "x/feed/df_hh_1_" & id & suffix, False
        oXMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo"
    oXMLHTTP.Send
    fs_input = oXMLHTTP.responseText
Set objRegExp = CreateObject("VBScript.RegExp")
fs_rows = Split(fs_input, "~"): fs_rows_length = UBound(fs_rows) - LBound(fs_rows)
Call Show_PrBar_Or_No(fs_rows_length, "Çàãðóçêà ïîñëåäíèõ èãð...")
For i = 0 To fs_rows_length - 3
    If bShowBar Then Call MyProgresBar
    fs_row = Split(fs_rows(i), "¬"): fs_row_length = 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)
    Select Case temp_hh
        Case 0: If fs_index_name = "KB" Then temp_hh = 1
        Case 1:
        If fs_index_name = "KA" Then temp_hh = 2
        If fs_index_name = "KB" Then temp_hh1 = temp_hh1 + 1
        For j = 0 To fs_row_length - 1
            fs_row_parts = Split(fs_row(j), ChrW(&HF7))
            Select Case fs_row_parts(0)
                Case "KH": tour_name1 = fs_row_parts(1)
                Case "KF": tour_name2 = fs_row_parts(1)
                Case "KC": date_match = DateAdd("s", fs_row_parts(1), "01/01/1970")
                date_match = DateAdd("h", timezone, date_match): date_match = Format(date_match, "yyyy.mm.dd hh:mm")
                Case "KJ": home_name = fs_row_parts(1)
                Case "KK": away_name = fs_row_parts(1)
                Case "KU": home_first = fs_row_parts(1)
                Case "KT": away_first = fs_row_parts(1)
            End Select
        Next j
        tour_name = tour_name1 & ": " & tour_name2
        home_name = Replace(home_name, "*", ""): away_name = Replace(away_name, "*", "")
        Case 2:
    End Select
    If temp_hh = 2 Or temp_hh1 <> 2 Then
        Else
        If ttttttt = 0 Then
            ttttttt = 1
            Else
            hh_m = Array(tour_name, date_match, home_name, away_name, home_first, away_first)
            Sheets("Totalconfrontation").Range("A" & a & ":F" & a).Value = hh_m
            If home_name = Sheets("Totalconfrontation").Range("A1").Value Then: Sheets("Totalconfrontation").Range("A" & a & ":F" & a).Value = hh_m
            a = a + 1
        End If
    End If
Next i
If bShowBar Then Unload frmStatusBar
Sheets("Totalconfrontation").Range("A:F").Sort Key1:=Sheets("Totalconfrontation").Columns("B"), Header:=xlYes, Order1:=xlDescending
Sheets("Totalconfrontation").Range("A:F").Sort Key1:=Sheets("Totalconfrontation").Columns("B"), Header:=xlYes, Order1:=xlDescending

  • Цитата
    • Ответов 92
    • Просмотры 7,8 тыс
    • Создана
    • Последний ответ

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

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

    Most Popular Posts

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

    Опубликовано
    44 минуты назад, vadavada сказал:

    Я пытаюсь получить следующий код для разбора личных встреч на flashscore, но столкнулся с проблемой. Может ли кто-нибудь помочь

    // I am trying to get the following code to parse the head-to-head matches on flashscore but i am encountering a problem. Can anyone help?

     

    a = 2 'Get H2H
    temp_hh = 0: temp_hh1 = 0: ttttttt = 0
    Sheets("Totalconfrontation").Range("A1").Value = ActiveCell.Offset(, -6).Value
    Sheets("Totalconfrontation").Range("B1").Value = ActiveCell.Offset(, -5).Value
    Sheets("Totalconfrontation").Range("A1").Value = ActiveCell.Offset(, -6).Value
    Sheets("Totalconfrontation").Range("B1").Value = ActiveCell.Offset(, -5).Value
        Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
            oXMLHTTP.Open "GET", "https://d." & sourcer & "x/feed/df_hh_1_" & id & suffix, False
            oXMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo"
        oXMLHTTP.Send
        fs_input = oXMLHTTP.responseText
    Set objRegExp = CreateObject("VBScript.RegExp")
    fs_rows = Split(fs_input, "~"): fs_rows_length = UBound(fs_rows) - LBound(fs_rows)
    Call Show_PrBar_Or_No(fs_rows_length, "Çàãðóçêà ïîñëåäíèõ èãð...")
    For i = 0 To fs_rows_length - 3
        If bShowBar Then Call MyProgresBar
        fs_row = Split(fs_rows(i), "¬"): fs_row_length = 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)
        Select Case temp_hh
            Case 0: If fs_index_name = "KB" Then temp_hh = 1
            Case 1:
            If fs_index_name = "KA" Then temp_hh = 2
            If fs_index_name = "KB" Then temp_hh1 = temp_hh1 + 1
            For j = 0 To fs_row_length - 1
                fs_row_parts = Split(fs_row(j), ChrW(&HF7))
                Select Case fs_row_parts(0)
                    Case "KH": tour_name1 = fs_row_parts(1)
                    Case "KF": tour_name2 = fs_row_parts(1)
                    Case "KC": date_match = DateAdd("s", fs_row_parts(1), "01/01/1970")
                    date_match = DateAdd("h", timezone, date_match): date_match = Format(date_match, "yyyy.mm.dd hh:mm")
                    Case "KJ": home_name = fs_row_parts(1)
                    Case "KK": away_name = fs_row_parts(1)
                    Case "KU": home_first = fs_row_parts(1)
                    Case "KT": away_first = fs_row_parts(1)
                End Select
            Next j
            tour_name = tour_name1 & ": " & tour_name2
            home_name = Replace(home_name, "*", ""): away_name = Replace(away_name, "*", "")
            Case 2:
        End Select
        If temp_hh = 2 Or temp_hh1 <> 2 Then
            Else
            If ttttttt = 0 Then
                ttttttt = 1
                Else
                hh_m = Array(tour_name, date_match, home_name, away_name, home_first, away_first)
                Sheets("Totalconfrontation").Range("A" & a & ":F" & a).Value = hh_m
                If home_name = Sheets("Totalconfrontation").Range("A1").Value Then: Sheets("Totalconfrontation").Range("A" & a & ":F" & a).Value = hh_m
                a = a + 1
            End If
        End If
    Next i
    If bShowBar Then Unload frmStatusBar
    Sheets("Totalconfrontation").Range("A:F").Sort Key1:=Sheets("Totalconfrontation").Columns("B"), Header:=xlYes, Order1:=xlDescending
    Sheets("Totalconfrontation").Range("A:F").Sort Key1:=Sheets("Totalconfrontation").Columns("B"), Header:=xlYes, Order1:=xlDescending

    image.thumb.png.8d151fa8fd8dae702b01943c78f9fa1e.png

  • Цитата
    • Опубликовано

    стоит ли лезть туда куда не знаешь?

  • Цитата
    • Нравится 1
    Опубликовано
    13 минут назад, WMI сказал:

    image.thumb.png.8d151fa8fd8dae702b01943c78f9fa1e.png

    Ты код выложи а не скрин. Что умничать то?

  • Цитата
    • Не нравится 2
    Опубликовано
    1 минуту назад, Данила сказал:

    Ты код выложи а не скрин. Что умничать то?

    зачем код? все умничаете же. скрин в помощь

  • Цитата
    • Опубликовано
    2 минуты назад, WMI сказал:

    зачем код? все умничаете же. скрин в помощь

    Человек спросил. Ты его культурно послал. Думаю он так воспринял

  • Цитата
    • Опубликовано
    Только что, Данила сказал:

    Человек спросил. Ты его культурно послал. Думаю он так воспринял

    ну а что я должен готовый код кому-то давать? там так-то километры строк и я не желаю его распространять. копипиздить все умеют и продавать потом. учитесь по скринам создавать хотяб свое а не чужое

  • Цитата
    • Опубликовано
    2 минуты назад, WMI сказал:

    ну а что я должен готовый код кому-то давать? там так-то километры строк и я не желаю его распространять. копипиздить все умеют и продавать потом. учитесь по скринам создавать хотяб свое а не чужое

    Так целый форум халявщиков. Бесплатный грааль ищут-с

  • Цитата
    • Опубликовано
    Только что, Данила сказал:

    Так целый форум халявщиков. Бесплатный грааль ищут-с

    ну поэтому кусочек рабочего кода скинул. пускай дальше ищут грааль. я то нашел уже давно его

  • Цитата
    • Опубликовано
    5 минут назад, Олег Ланин сказал:

    Откройте форточку, тут душно стало🥲

    она открыта была всегда, только хейтеры постоянно дышать не могут как смотрю в последнее время

  • Цитата
    • Опубликовано
    • Администраторы

    Каждый помогает по-своему.
    Некоторые с картинками, некоторые с видео.
    Но я не видел, чтобы кто-то раздавал полный код бесплатно...
    Также, если это делает человек, написавший и разработавший код.
    Нужно уважение!
    Хоть бы спасибо сказали...

  • Цитата
    • Нравится 1
    Опубликовано
    2 минуты назад, ByRagimoff сказал:

    Вы знаете, что все макрокоды excel (парсеры) на форумах украдены из infinitybook?

    Прям все? Он сам их выложил насколько здесь писали. И Гигс вроде исходный код выкладывал с разрешения Администрации форум. Или нет?

  • Цитата
    • Опубликовано
    1 минуту назад, Данила сказал:

    Прям все? Он сам их выложил насколько здесь писали. И Гигс вроде исходный код выкладывал с разрешения Администрации форум. Или нет?

    Все, все парсеры работают на  коде infinitybook.

  • Цитата
    • Опубликовано
    Только что, Sergei2020 сказал:

    Все, все парсеры работают на  коде infinitybook.

    Да. Ладно. Свежо предание да верится с трудом. Что там запрос сделать. Да разложить все регулярами. Ума много не надо

  • Цитата
    • Опубликовано
    4 минуты назад, Данила сказал:

    Прям все? Он сам их выложил насколько здесь писали. И Гигс вроде исходный код выкладывал с разрешения Администрации форум. Или нет?

    С не разрешения АДминистрации GeeGs выкладывал, и вообще ни с какого разрешения, и еще эти коды продавать начали под видом всяких бетпрофи всякие самые умные, а если взять всю историю то много каналов олеженька заблокал из-за этого - то что решил это его разработки спизженные - как типа автогол - тот же бетпрофи

  • Цитата
    • Опубликовано
    1 минуту назад, Данила сказал:

    Да. Ладно. Свежо предание да верится с трудом. Что там запрос сделать. Да разложить все регулярами. Ума много не надо

    Ну видимо надо, раз постоянно проблема с прогами.

    Да и пока infinitybook не появился все ручками сидели стату копировали, это так если что)

  • Цитата
    • Опубликовано
    1 минуту назад, Sergei2020 сказал:

    Ну видимо надо, раз постоянно проблема с прогами.

    Да и пока infinitybook не появился все ручками сидели стату копировали, это так если что)

    Да писец. Прям Великий Инфинити. Минимум 3-4 програмеров знаю, новый парсер на коленке напишут

  • Цитата
    • Опубликовано
    2 минуты назад, WMI сказал:

    С не разрешения АДминистрации GeeGs выкладывал, и вообще ни с какого разрешения, и еще эти коды продавать начали под видом всяких бетпрофи всякие самые умные, а если взять всю историю то много каналов олеженька заблокал из-за этого - то что решил это его разработки спизженные - как типа автогол - тот же бетпрофи

    Т.е. Гигса турнули за то что выкладывал без разрешения Администрации и см был Админом Форума. Я правильно логику Вашу замысловатую понял

  • Цитата
    • Опубликовано
    2 минуты назад, Данила сказал:

    Да писец. Прям Великий Инфинити. Минимум 3-4 програмеров знаю, новый парсер на коленке напишут

    и где они интересно?

  • Цитата
    • Опубликовано
    1 минуту назад, Данила сказал:

    Т.е. Гигса турнули за то что выкладывал без разрешения Администрации и см был Админом Форума. Я правильно логику Вашу замысловатую понял

    смысл такой же был как и с Инфинити

  • Цитата
    • Опубликовано
    Только что, WMI сказал:

    и где они интересно?

    Да они не светятся. Вот тебе тоже скрин, как код вместо портянки Инфинити на несколько строк разложить.

    Screenshot_2.png

  • Цитата
    • Опубликовано
    Только что, WMI сказал:

    смысл такой же был как и с Инфинити

    Какой? Поматосили и бросили? Извиняюсь... не политкоректно выразился. Закончился срок контракта

  • Цитата
    • Опубликовано
    Только что, Данила сказал:

    Какой? Поматосили и бросили? Извиняюсь... не политкоректно выразился. Закончился срок контракта

    можно и так сказать

  • Цитата

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

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

    Гость
    Ответить в этой теме...
    Перейти к списку тем

    Последние посетители 0

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

    Account

    Navigation

    Поиск

    Поиск

    Configure browser push notifications
    Chrome (Android)
    1. Tap the lock icon next to the address bar.
    2. Tap Permissions → Notifications.
    3. Adjust your preference.
    Chrome (Desktop)
    1. Click the padlock icon in the address bar.
    2. Select Site settings.
    3. Find Notifications and adjust your preference.