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

[Dimmkoff 4]

1 час назад, Юрий Журавлев сказал:

Ребята всем здорова вот подремонтировал таблицу, вставка с Goaloo или Nowgoal можно, тестируйте думаю разберетесь

SAME_LEAGUE_2024.xlsm 392.51 kB · 18 загрузок

Можете показать, что копировать и вставлять?

[yelkenci 34 0]

2 saat önce Yuri Zhuravlev şunları söyledi:

Arkadaşlar herkes sağlıklı, masayı tamir ettim, Goaloo veya Nowgoal ile ekleme mümkün, deneyin, sanırım çözeceksiniz

SAME_LEAGUE_2024.xlsm 392,51 kB · 21 indirme

ht ft over tahminler çıkmıyor past games makrosu yapıştırma olmuyor hata veriyor

[Nazarnineangels 1 492]

Кто может посмотреть к парсеру, игр 700 в день, а он грузит только 130.

IncoSJSportFormula_1_2_3_1__1 (1).xlsb

[The Iron Wizard 1 085]

8 часов назад, Nazarnineangels сказал:

Кто может посмотреть к парсеру, игр 700 в день, а он грузит только 130.

IncoSJSportFormula_1_2_3_1__1 (1).xlsb 7.34 MB · 6 загрузок

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

[SergioJek 2 110 439]

11 часов назад, Nazarnineangels сказал:

Кто может посмотреть к парсеру, игр 700 в день, а он грузит только 130.

IncoSJSportFormula_1_2_3_1__1 (1).xlsb 7.34 MB · 15 загрузок

Отсев там стоит на 10 игр. Турнирку проверяет

[Nazarnineangels 1 492]

20 минут назад, SergioJek сказал:

Отсев там стоит на 10 игр. Турнирку проверяет

Грузил и без от отсева то самое. Раньше грузил все подряд.

[Nazarnineangels 1 492]

2 часа назад, The Iron Wizard сказал:

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

Еще где-то 2 недели грузил все, возможно на флешскоре какие-то изменения.

[SergioJek 2 110 439]

6 минут назад, Nazarnineangels сказал:

Грузил и без от отсева то самое. Раньше грузил все подряд.

Тогда думаю другой вариант - только что стролкнулся. В некоторых лигах ID турнира неправильно считывается. Там чуть код подправить надо. Займусь сегодня и обновленный парсер на свой ресурс выложу. Здесь не делаю чтобы не уличили в рекламе, хотя многие не понимают что деньги меня уже давно не интерисуют....Давно уже просто хобби. Надоело одно и тоже переделывать

[Nazarnineangels 1 492]

7 минут назад, SergioJek сказал:

Тогда думаю другой вариант - только что стролкнулся. В некоторых лигах ID турнира неправильно считывается. Там чуть код подправить надо. Займусь сегодня и обновленный парсер на свой ресурс выложу. Здесь не делаю чтобы не уличили в рекламе, хотя многие не понимают что деньги меня уже давно не интерисуют....Давно уже просто хобби. Надоело одно и тоже переделывать

Спасибо конечно, сможете кинуть мне в телеграм @ogsns? Просто мне этот парсер, настраивали под меня.

[Cage 175]

2 часа назад, Nazarnineangels сказал:

Спасибо конечно, сможете кинуть мне в телеграм @ogsns? Просто мне этот парсер, настраивали под меня.

А ты разве сам не занимаешься созданием/ремонтом?

[Nazarnineangels 1 492]

37 минут назад, Cage сказал:

А ты разве сам не занимаешься созданием/ремонтом?

Кое-что могу, но не все.

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

В 28.06.2024 в 21:42, yelkenci 34 сказал:

ht ft over tahminler çıkmıyor past games makrosu yapıştırma olmuyor hata veriyor

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

Только что, Юрий Журавлев сказал:

Выбираешь по 5 игр копируешь и через правую кнопку вставляешь в красную ячейку

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

[yelkenci 34 0]

55 минут назад, Юрий Журавлев сказал:

bende çıkmıyor dosya hazırlarken bir sayfa açık kalmış sanırım atımda hata veriyor resimdeki hatalardan ola bilirmi 

[Hacker 97]

Кто может взломать пароль и логин ?

FREE FORBET SOCCER ESPORT.xlsm

[Marian Timofte 9]

16 минут назад, yelkenci 34 сказал:

bende çıkmıyor dosya hazırlarken bir sayfa açık kalmış sanırım atımda hata veriyor resimdeki hatalardan ola bilirmi 

Hangi program?

[vadavada 3]

кто сможет заставить следующий код работать для футбола?

rowindx = 2 'Get H2H
    Sheets("ARALARI").Range("A1").Value = ActiveCell.Offset(, -6).Value
    Sheets("ARALARI").Range("B1").Value = ActiveCell.Offset(, -5).Value
    Sheets("CONF").Range("A1").Value = ActiveCell.Offset(, -6).Value
    Sheets("CONF").Range("B1").Value = ActiveCell.Offset(, -5).Value
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    oXMLHTTP.Open "GET", "https://d." & Sourcer & "x/feed/d_hh_" & id & suffix, False
    oXMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo"
    oXMLHTTP.Send
    response = oXMLHTTP.ResponseText
    Set oRegExp = CreateObject("VBScript.RegExp")
    oRegExp.Global = True
    oRegExp.MultiLine = False
    oRegExp.Pattern = Chr(9)
    response = oRegExp.Replace(response, "")
    oRegExp.Pattern = Chr(10)
    response = oRegExp.Replace(response, "")
    oRegExp.Pattern = Chr(13)
    response = oRegExp.Replace(response, "")
    oRegExp.Pattern = "<table class=" & Chr(34) & "head_to_head h2h_mutual" & Chr(34) & ">(.*?)<\/table>"
    If oRegExp.test(response) = True Then
        Set oMatches = oRegExp.Execute(response)
        response = oMatches.Item(0).submatches(0)
        oRegExp.Pattern = "<span class=" & Chr(34) & "date" & Chr(34) & ">(.*?)<\/span>(.*?)title=" & Chr(34) & "(.*?)" & Chr(34) & "(.*?)class=" & Chr(34) & "name" & Chr(34) & "><span>(.*?)<\/span><\/td><td class=" & Chr(34) & "name" & Chr(34) & "><span>(.*?)<\/span>(.*?)<strong>(.*?) : (.*?)<\/strong>"
        If oRegExp.test(response) = True Then
            Set oMatches = oRegExp.Execute(response)
            cntx = oMatches.Count
            Call Show_PrBar_Or_No(cntx, "VERÝLER ÇEKÝLÝYOR...")
            For Each m In oMatches
                If bShowBar Then Call MyProgresBar
                oRegExp.Pattern = "<strong>"
                m_home = oRegExp.Replace(m.submatches(4), "")
                m_away = oRegExp.Replace(m.submatches(5), "")
                oRegExp.Pattern = "<\/strong>"
                m_home = oRegExp.Replace(m_home, "")
                m_away = oRegExp.Replace(m_away, "")
                m_date = DateAdd("s", m.submatches(0), "01/01/1970")
                date_match = DateAdd("h", timezone, date_match)
                m_date = Format(m_date, "yyyy.mm.dd")
                If m_date = Format(Now, "yyyy.mm.dd") Or m_date = Format(Now - 1, "yyyy.mm.dd") Then
                Else
                Set oRegExp = CreateObject("VBScript.RegExp")
                oRegExp.Pattern = "\s\(...\)"
                m_home = oRegExp.Replace(m_home, "")
                m_away = oRegExp.Replace(m_away, "")
                    Sheets("ARALARI").Range("A" & rowindx).Value = m.submatches(2)
                    Sheets("ARALARI").Range("B" & rowindx).Value = Format(m_date, "yyyy.mm.dd hh:mm")
                    Sheets("ARALARI").Range("C" & rowindx).Value = m_home
                    Sheets("ARALARI").Range("D" & rowindx).Value = m_away
                    Sheets("ARALARI").Range("E" & rowindx).Value = m.submatches(7)
                    Sheets("ARALARI").Range("F" & rowindx).Value = m.submatches(8)
                    If m_home = Sheets("ARALARI").Range("A1").Value Then
                        Sheets("CONF").Range("A" & rowindx).Value = m.submatches(2)
                        m_date = DateAdd("s", m.submatches(0), "01/01/1970")
                        Sheets("CONF").Range("B" & rowindx).Value = Format(m_date, "yyyy.mm.dd hh:mm")
                        Sheets("CONF").Range("C" & rowindx).Value = m_home
                        Sheets("CONF").Range("D" & rowindx).Value = m_away
                        Sheets("CONF").Range("E" & rowindx).Value = m.submatches(7)
                        Sheets("CONF").Range("F" & rowindx).Value = m.submatches(8)
                    End If
                    rowindx = rowindx + 1
                End If
            Next
            If bShowBar Then Unload frmStatusBar
        End If
    End If
    Sheets("ARALARI").Range("A:F").Sort Key1:=Sheets("ARALARI").Columns("B"), Header:=xlYes, Order1:=xlDescending
    Sheets("CONF").Range("A:F").Sort Key1:=Sheets("CONF").Columns("B"), Header:=xlYes, Order1:=xlDescending

 

[Nazarnineangels 1 492]

В 29.06.2024 в 00:14, Nazarnineangels сказал:

Кто может посмотреть к парсеру, игр 700 в день, а он грузит только 130.

IncoSJSportFormula_1_2_3_1__1 (1).xlsb 7.34 MB · 30 загрузок

Кто-то посмотрит? Человек который говорил, что посмотрит наверное сильно занят.

[Shurik91 651]

14 часов назад, Nazarnineangels сказал:

Кто-то посмотрит? Человек который говорил, что посмотрит наверное сильно занят.

привет, в файле стоит фильтр по коэф-там на ТБ 2,5, так и должно быть ? Я его откл. и загрузило 450 матчей за Сб

[Nazarnineangels 1 492]

23 минуты назад, Shurik91 сказал:

привет, в файле стоит фильтр по коэф-там на ТБ 2,5, так и должно быть ? Я его откл. и загрузило 450 матчей за Сб

Честно не знаю, скиньте файл с отключеным фильтром посмотрю.

[Nazarnineangels 1 492]

42 минуты назад, Shurik91 сказал:

привет, в файле стоит фильтр по коэф-там на ТБ 2,5, так и должно быть ? Я его откл. и загрузило 450 матчей за Сб

В суботу было 700 игр.

[Cage 175]

21 минуту назад, Nazarnineangels сказал:

В суботу было 700 игр.

Часть игр же без кефов идут 

[Shurik91 651]

43 минуты назад, Nazarnineangels сказал:

Честно не знаю, скиньте файл с отключеным фильтром посмотрю.

попробуй

IncoSJSportFormula_1_2_3_1__1 (1).xlsb

[Nazarnineangels 1 492]

15 минут назад, Shurik91 сказал:

попробуй

IncoSJSportFormula_1_2_3_1__1 (1).xlsb 7.3 MB · 0 загрузок

Ок, сейчас.