Опубликовано 29 января, 20242 г. Постоянный 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
Опубликовано 29 января, 20242 г. Модераторы Только что, 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 ну это я как бы понял_ а что исправить тут надо?)
Опубликовано 29 января, 20242 г. Salut, ma puteti ajuta cu acest fisier sau macar sa imi dati un sfat? delux_xg_.xlsm
Опубликовано 29 января, 20242 г. 8 часов назад, kovan сказал: Что вы льёте из пустого в порожнее!? У тебя был файл заблокирован паролем, потому и не активен пункт "показать". Сейчас я пароль снял, теперь о чём разговор!? Так теперь она вообще не вычисляет и не показывает матчи с прогнозами. Загружает игры но дальше ничего не происходит.
Опубликовано 30 января, 20242 г. Постоянный 9 часов назад, Dorian сказал: Так теперь она вообще не вычисляет и не показывает матчи с прогнозами. Загружает игры но дальше ничего не происходит. Тогда ищи хакера кто взломает пароль, а лучше выбрось это из головы! дешевле написать новую программу, чем взломать пароль.
Опубликовано 30 января, 20242 г. 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
Опубликовано 30 января, 20242 г. 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
Опубликовано 30 января, 20242 г. 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
Опубликовано 30 января, 20242 г. 23 минуты назад, Florin Badoi сказал: It downloads the matches but when I press analyze nothing happens works but very slow,hangs alot
Опубликовано 30 января, 20242 г. 2 минуты назад, Godfrey Muruda сказал: funcționează dar foarte lent, se blochează mult It doesn't work for me, when I press the analysis, nothing happens
Опубликовано 30 января, 20242 г. Всем привет, надеюсь в правильную тему пишу. Есть три интересных инструмента для помощи в ставках от Lux. 1. это программа Обовсем скайнер - в него нужно добавить кнопки на индивидуальный тотал больше 0,5 в первом тайме(рисунок 1), можно будет получать сигналы на интересные события (рисунок 2) 2. brc_fbs_mini программа парсит форебет(рисунок 3) ,но архив не обновляет и там старая информация-хотелось бы как то обновлять ее. 3. ексель файл называется Архив кеф (рисунок 4)- не обновляется-хотелось бы как то обновлять ее. Если все настроить, как я выше пишу, можно ловить большие коэффициенты дайте плиз обратную связь
Опубликовано 31 января, 20242 г. Постоянный 15 часов назад, A V сказал: Всем привет, надеюсь в правильную тему пишу. Есть три интересных инструмента для помощи в ставках от Lux. 1. это программа Обовсем скайнер - в него нужно добавить кнопки на индивидуальный тотал больше 0,5 в первом тайме(рисунок 1), можно будет получать сигналы на интересные события (рисунок 2) 2. brc_fbs_mini программа парсит форебет(рисунок 3) ,но архив не обновляет и там старая информация-хотелось бы как то обновлять ее. 3. ексель файл называется Архив кеф (рисунок 4)- не обновляется-хотелось бы как то обновлять ее. Если все настроить, как я выше пишу, можно ловить большие коэффициенты дайте плиз обратную связь 3. Эксель файл, тоже интересно, кто автор. В телеги обещали, что будет продолжение, но пока глухо.
Опубликовано 3 февраля, 20242 г. Модераторы Всем привет! Народ немножно не по теме, но может быть кто то делал для андроид такую программу по управлению банком, или встречал что то наподобие, но чтобы можно было для телефона на андроиде??? MM_Diff.exe
Опубликовано 10 февраля, 20242 г. Постоянный В 28.01.2024 в 00:22, Dorian сказал: Везде менял адреса загрузок. Файл прикрепляю. Посмотри пожалуйста когда выспишься. Quartz CoteBet (11).xlsb 1.1 MB · 13 загрузок Ну, вот выспался😄 Решил сегодня посмотреть, что-за программа. Покопался, запустил, кажется, что всё пахает. (сменил только один верхний ресурс flashscorekz.com) Quartz CoteBet_mod-KA.xlsb Изменено 10 февраля, 20242 г. пользователем kovan
Опубликовано 14 февраля, 20242 г. Модераторы В 18.01.2024 в 14:13, georgemanea сказал: нет! не грузит некоторые чемпионаты.
Опубликовано 15 февраля, 20242 г. Привет народ. Кто может починить? BASKET_MRT_black SCORPION_2023_V.1.1.0.xlsm
Опубликовано 15 февраля, 20242 г. Постоянный 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 февраля, 20242 г. пользователем kovan
Опубликовано 15 февраля, 20242 г. Вот еще есть интересная таблица, кто сможет сделать чтоб грузила данные с лайвскора? ТБ2.5_Int(ALmod).xlsb
Опубликовано 15 февраля, 20242 г. Валера выкладывай все сразу 😆 потом благодари 🫠 Изменено 15 февраля, 20242 г. пользователем Alex Pavlen
Опубликовано 16 февраля, 20242 г. Постоянный В 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
Опубликовано 16 февраля, 20242 г. Постоянный В 15.02.2024 в 14:29, Valera сказал: Благодарю, но она все равно не грузит( Грузит только НБА (а мне больше и не надо😆), а другие лиги зависает на загрузке турнирной таблицы (че-то там не так🙄) Маленько побаловался: перевёл загрузку, поставил выбор ресурсов😉 BASKET_MRT_black SCORPION_2023_V.1.1.0.xlsm
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.