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

[kovan 1 153]

1 час назад, 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]

Только что, 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 149]

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

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

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

[kovan 1 153]

9 часов назад, Dorian сказал:

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

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

[Godfrey Muruda 3]

11 hours ago, Florin Badoi said:

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]

Acum 35 de minute, Godfrey Muruda a spus:

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]

18 минут назад, 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]

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

It downloads the matches but when I press analyze nothing happens

works but very slow,hangs alot

[Florin Badoi 5]

2 минуты назад, 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 105]

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

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

[The Iron Wizard 1 105]

15 часов назад, A V сказал:

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

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

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

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

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

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

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

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

[fenix 454]

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

MM_Diff.exe

[kovan 1 153]

В 28.01.2024 в 00: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 в 14:13, georgemanea сказал:

 

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

[Valera 50]

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

BASKET_MRT_black SCORPION_2023_V.1.1.0.xlsm

[kovan 1 153]

1 час назад, 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 153]

В 18.01.2024 в 12: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 153]

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

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

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

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

BASKET_MRT_black SCORPION_2023_V.1.1.0.xlsm