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

[kovan 1 164]

  В 29.01.2024 в 13:48, al88sm сказал:

и так, суть проблемы с таблицей на баскетбол такая: ошибка в коде такая, что таблица вроде и грузится, но почему то через строчку. и как решить эту проблему? все остальное работает.

Показать  

Если не ошибаюсь, то эта часть кода партачит ( сравни с другими парсерами)

table_a = Array("_table_overall", "_table_home", "_table_away", "_form_overall", "_form_home", "_form_away")
For temp_table = 0 To 5
    A = 2 'Get Table
    If temp_table = 0 Then Sheets("Table").Select
    If temp_table = 3 Then Sheets("Form").Select
    Select Case temp_table
        Case 0: nmshet = "Table": frstc = 1: lstc = 6
        Case 1: nmshet = "Table": frstc = 11: lstc = 16
        Case 2: nmshet = "Table": frstc = 21: lstc = 26
        Case 3: nmshet = "Form": frstc = 1: lstc = 6
        Case 4: nmshet = "Form": frstc = 11: lstc = 16
        Case 5: nmshet = "Form": frstc = 21: lstc = 26
    End Select
    Call Download_site("https://d." & sourcer & "x/feed/ss_3_" & tournament_id & "_" & tournament_stage_id & table_a(temp_table) & "?hp1=" & home_id & "&hp2=" & away_id & "&e=" & id, fs_input)
    Set objRegExp = CreateObject("VBScript.RegExp"): objRegExp.Global = True: objRegExp.MultiLine = False
    objRegExp.Pattern = Chr(9): fs_input = objRegExp.Replace(fs_input, "")
    objRegExp.Pattern = Chr(10): fs_input = objRegExp.Replace(fs_input, "")
    objRegExp.Pattern = Chr(13): fs_input = objRegExp.Replace(fs_input, "")
    If InStr(1, fs_input, "col_wins_pen") = 0 And InStr(1, fs_input, "col_wins_ot") = 0 Then
        objRegExp.Pattern = ">(\d+)" & Chr(46) & "<(.*?)team_name(.*?)\;" & Chr(34) & ">(.*?)<(.*?)matches(.*?)>(.*?)<(.*?)>(.*?)>(.*?)<(.*?)>(.*?)>(.*?)<(.*?)>(.*?)>(.*?)<(.*?)>(.*?)>(.*?):(.*?)<(.*?)>(.*?)>(.*?)<"
        If objRegExp.test(fs_input) = True Then
            Set objMatches = objRegExp.Execute(fs_input)
'            cntx = objMatches.Count
             Call Show_PrBar_Or_No(cntx, "Загрузка таблиц...")
            For Each m In objMatches
                If bShowBar Then Call MyProgresBar
                table_m = Array(m.submatches(0), m.submatches(3), m.submatches(6), m.submatches(9), m.submatches(12), m.submatches(15), m.submatches(18), m.submatches(19), m.submatches(22))
                Sheets(nmshet).Range(Cells(A, frstc), Cells(A, lstc)).Value = table_m
                A = A + 1
            Next
            If bShowBar Then Unload frmStatusBar
        End If
    End If
Next temp_table

[al88sm 903]

  В 29.01.2024 в 14:54, kovan сказал:

Если не ошибаюсь, то эта часть кода партачит ( сравни с другими парсерами)

table_a = Array("_table_overall", "_table_home", "_table_away", "_form_overall", "_form_home", "_form_away")
For temp_table = 0 To 5
    A = 2 'Get Table
    If temp_table = 0 Then Sheets("Table").Select
    If temp_table = 3 Then Sheets("Form").Select
    Select Case temp_table
        Case 0: nmshet = "Table": frstc = 1: lstc = 6
        Case 1: nmshet = "Table": frstc = 11: lstc = 16
        Case 2: nmshet = "Table": frstc = 21: lstc = 26
        Case 3: nmshet = "Form": frstc = 1: lstc = 6
        Case 4: nmshet = "Form": frstc = 11: lstc = 16
        Case 5: nmshet = "Form": frstc = 21: lstc = 26
    End Select
    Call Download_site("https://d." & sourcer & "x/feed/ss_3_" & tournament_id & "_" & tournament_stage_id & table_a(temp_table) & "?hp1=" & home_id & "&hp2=" & away_id & "&e=" & id, fs_input)
    Set objRegExp = CreateObject("VBScript.RegExp"): objRegExp.Global = True: objRegExp.MultiLine = False
    objRegExp.Pattern = Chr(9): fs_input = objRegExp.Replace(fs_input, "")
    objRegExp.Pattern = Chr(10): fs_input = objRegExp.Replace(fs_input, "")
    objRegExp.Pattern = Chr(13): fs_input = objRegExp.Replace(fs_input, "")
    If InStr(1, fs_input, "col_wins_pen") = 0 And InStr(1, fs_input, "col_wins_ot") = 0 Then
        objRegExp.Pattern = ">(\d+)" & Chr(46) & "<(.*?)team_name(.*?)\;" & Chr(34) & ">(.*?)<(.*?)matches(.*?)>(.*?)<(.*?)>(.*?)>(.*?)<(.*?)>(.*?)>(.*?)<(.*?)>(.*?)>(.*?)<(.*?)>(.*?)>(.*?):(.*?)<(.*?)>(.*?)>(.*?)<"
        If objRegExp.test(fs_input) = True Then
            Set objMatches = objRegExp.Execute(fs_input)
'            cntx = objMatches.Count
             Call Show_PrBar_Or_No(cntx, "Загрузка таблиц...")
            For Each m In objMatches
                If bShowBar Then Call MyProgresBar
                table_m = Array(m.submatches(0), m.submatches(3), m.submatches(6), m.submatches(9), m.submatches(12), m.submatches(15), m.submatches(18), m.submatches(19), m.submatches(22))
                Sheets(nmshet).Range(Cells(A, frstc), Cells(A, lstc)).Value = table_m
                A = A + 1
            Next
            If bShowBar Then Unload frmStatusBar
        End If
    End If
Next temp_table

Показать  

ну это я как бы понял_ а что исправить тут надо?) 

[Florin Badoi 5]

Salut, ma puteti ajuta cu acest fisier sau macar sa imi dati un sfat?

delux_xg_.xlsmПолучение информации...

[Dorian 153]

  В 29.01.2024 в 14:50, kovan сказал:

Что вы льёте из пустого в порожнее!? У тебя был файл заблокирован паролем, потому и не активен пункт "показать". Сейчас я пароль снял, теперь о чём разговор!? 

Показать  

Так теперь она вообще не вычисляет и не показывает матчи с прогнозами. Загружает игры но дальше ничего не происходит.

[kovan 1 164]

  В 29.01.2024 в 23:00, Dorian сказал:

Так теперь она вообще не вычисляет и не показывает матчи с прогнозами. Загружает игры но дальше ничего не происходит.

Показать  

Тогда ищи хакера кто взломает пароль, а лучше выбрось это из головы! дешевле написать новую программу, чем взломать пароль.

[Godfrey Muruda 3]

  В 29.01.2024 в 22:05, Florin Badoi сказал:

Salut, ma puteti ajuta cu acest fisier sau macar sa imi dati un sfat?

delux_xg_.xlsm 3.31 MB · 9 downloads

Показать  

working but takes time,what adice did you need?

nice day brother

[Godfrey Muruda 3]

working but takes time,what advice did you need?

nice day brother

[Florin Badoi 5]

  В 30.01.2024 в 09:41, Godfrey Muruda сказал:

lucrează dar necesită timp, ce sfat ai avut nevoie?

o zi buna rate

Показать  

It downloads the matches but when I press analyze nothing happens

[Godfrey Muruda 3]

  В 30.01.2024 в 10:16, Florin Badoi сказал:

It downloads the matches but when I press analyze nothing happens

Показать  

am not an expert i could help,try region setting,or excel 2016,confirm if it helps,thanks

[Godfrey Muruda 3]

  В 30.01.2024 в 10:16, Florin Badoi сказал:

It downloads the matches but when I press analyze nothing happens

Показать  

works but very slow,hangs alot

[Florin Badoi 5]

  В 30.01.2024 в 10:41, Godfrey Muruda сказал:

funcționează dar foarte lent, se blochează mult

Показать  

It doesn't work for me, when I press the analysis, nothing happens

[A V 11]

Всем привет, надеюсь в правильную тему пишу.

Есть три интересных инструмента для помощи в ставках от Lux.

1. это программа Обовсем скайнер - в него нужно добавить кнопки на индивидуальный тотал больше 0,5 в первом тайме(рисунок 1), можно будет получать сигналы на интересные события (рисунок 2)

2. brc_fbs_mini программа парсит форебет(рисунок 3) ,но архив не обновляет и там старая информация-хотелось бы как то обновлять ее.

3. ексель файл называется Архив кеф (рисунок 4)- не обновляется-хотелось бы как то обновлять ее. 

Если все настроить, как я выше пишу, можно ловить большие коэффициенты

дайте плиз обратную связь

[Alex Pavlen 31]

[The Iron Wizard 1 136]

  В 30.01.2024 в 16:40, Alex Pavlen сказал:

Показать  

Трудно создать тему?

[The Iron Wizard 1 136]

  В 30.01.2024 в 12:40, A V сказал:

Всем привет, надеюсь в правильную тему пишу.

Есть три интересных инструмента для помощи в ставках от Lux.

1. это программа Обовсем скайнер - в него нужно добавить кнопки на индивидуальный тотал больше 0,5 в первом тайме(рисунок 1), можно будет получать сигналы на интересные события (рисунок 2)

2. brc_fbs_mini программа парсит форебет(рисунок 3) ,но архив не обновляет и там старая информация-хотелось бы как то обновлять ее.

3. ексель файл называется Архив кеф (рисунок 4)- не обновляется-хотелось бы как то обновлять ее. 

Если все настроить, как я выше пишу, можно ловить большие коэффициенты

дайте плиз обратную связь

Показать  

3. Эксель файл, тоже интересно, кто автор. В телеги обещали, что будет продолжение, но пока глухо.

[fenix 454]

Всем привет! Народ немножно не по теме, но может быть кто то делал для андроид такую программу по управлению банком, или встречал что то наподобие, но чтобы можно было для телефона на андроиде???

MM_Diff.exeПолучение информации...

[kovan 1 164]

  В 27.01.2024 в 21:22, Dorian сказал:

Везде менял адреса загрузок. Файл прикрепляю. Посмотри пожалуйста когда выспишься.

Quartz CoteBet (11).xlsb 1.1 MB · 13 загрузок

Показать  

Ну, вот выспался Решил сегодня посмотреть, что-за программа. Покопался,  запустил, кажется, что всё пахает.

(сменил только один верхний ресурс flashscorekz.com)

 

Quartz CoteBet_mod-KA.xlsbПолучение информации...

Изменено 10 февраля, 2024 пользователем kovan

[al88sm 903]

  В 18.01.2024 в 11:13, georgemanea сказал:

 

Показать  

нет! не грузит некоторые чемпионаты. 

[Valera 50]

Привет народ. Кто может починить?

BASKET_MRT_black SCORPION_2023_V.1.1.0.xlsmПолучение информации...

[kovan 1 164]

  В 15.02.2024 в 07:30, Valera сказал:

Привет народ. Кто может починить?

BASKET_MRT_black SCORPION_2023_V.1.1.0.xlsm 7.07 MB · 0 загрузок

Показать  

Сделал на скорую руку

BASKET_MRT_black SCORPION_2023_V.1.1.0.xlsmПолучение информации...

Изменено 15 февраля, 2024 пользователем kovan

[Valera 50]

Благодарю, но она все равно не грузит(

[Valera 50]

Вот еще есть интересная таблица, кто сможет сделать чтоб грузила данные с лайвскора?

ТБ2.5_Int(ALmod).xlsbПолучение информации...

[Alex Pavlen 31]

Валера выкладывай все сразу  потом благодари 

Изменено 15 февраля, 2024 пользователем Alex Pavlen

[kovan 1 164]

  В 18.01.2024 в 09:47, Дмитрий Монахов сказал:

Здравствуйте помогите пожалуйста  починить таблицу!!!  (на половине загрузки выскакивает ошибка)

MACBETH_OVER-0.5-HT_OVER-2.5-FT_MOD_FRNCE.xlsb 1.01 MB · 16 загрузок

Показать  

Грузило и так, но восстановил выбор ресурса, пробуй с разных

MACBETH_OVER-0.5-HT_OVER-2.5-FT_MOD_FRNCE.xlsbПолучение информации...

[kovan 1 164]

  В 15.02.2024 в 11:29, Valera сказал:

Благодарю, но она все равно не грузит(

Показать  

Грузит только НБА (а мне больше и не надо), а другие лиги зависает на загрузке турнирной таблицы (че-то там не так)

Маленько побаловался: перевёл загрузку, поставил выбор ресурсов

BASKET_MRT_black SCORPION_2023_V.1.1.0.xlsmПолучение информации...