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

[kovan 2 211]

4 часа назад, sad сказал:

Скачал попробовать. Работает только с ВПН и почему то кэфы не грузятся 

Во-первых пользуйте livescore.in/ru, во-вторых всё грузится:

[kirs_andre 1]

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

[sad 16]

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

Во-первых пользуйте livescore.in/ru, во-вторых всё грузится:

Эта прога грузиться всё нормально. Я имел ввиду Делюкс с архивом(РЕН). Если можно исправьте пожалуйста загрузку кефов на странице Лист.

DeluX+СИСТЕМА 2025 АРХИВ(РЕН).xlsm

[kovan 2 211]

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

Эта прога грузиться всё нормально. Я имел ввиду Делюкс с архивом(РЕН). Если можно исправьте пожалуйста загрузку кефов на странице Лист.

DeluX+СИСТЕМА 2025 АРХИВ(РЕН).xlsm 10.43 MB · 0 загрузок

Я про этот файл и писал. Но, скачал ваш, запустил, действительно нет кеф. Но когда запустил свой, он работает, следом запустил вновь ваш - и он заработал.  Не знаю, что не так. Вот мой файл, он на 5Мб больше, пробуй.

DeluX+СИСТЕМА 2025 АРХИВ (РЕН).xlsm

[sad 16]

3 часа назад, kovan сказал:

Я про этот файл и писал. Но, скачал ваш, запустил, действительно нет кеф. Но когда запустил свой, он работает, следом запустил вновь ваш - и он заработал.  Не знаю, что не так. Вот мой файл, он на 5Мб больше, пробуй.

DeluX+СИСТЕМА 2025 АРХИВ (РЕН).xlsm 15.19 MB · 9 загрузок

Не не пашет с кефами. Может из за скорости у нас глушат по чёрному я пробовал с ВПН и без не грузятся остальное всё работает.

[Farel 1 220]

2 минуты назад, sad сказал:

Не не пашет с кефами. Может из за скорости у нас глушат по чёрному я пробовал с ВПН и без не грузятся остальное всё работает.

Да бестолковая эта программа, у меня есть архив всех этих алгоритмов, все они минусовые на дистанции. Лучше бы в соседнюю тему заглянул, и сделал бы потихоньку нормальную программу с помощью ИИ, совершенно бесплатно. Без знания кода, без каких-либо знаний вообще, в теме есть все, чтобы потратив всего 1 минуту, можно создать готовую программу на 80%, а потом ее также с помощью ИИ, совершенно бесплатно доделать и превратить в продукт уровня Sas, которым пользуются мировые аналитики и синдикаты.

[Тимур Зубик 253]

1 минуту назад, Farel сказал:

в продукт уровня Sas, которым пользуются мировые аналитики и синдикаты

окак! Скорее sos, но это мелочи.

[Farel 1 220]

16 минут назад, Тимур Зубик сказал:

окак! Скорее sos, но это мелочи.

Sos, это как раз в Эксель программах. А в моей новой программе на пайтон, теперь ИИ бесплатно все могут отремонтировать, за считанные секунды. Только скажи, все делают, даже алгоритмы в любом количестве напишут, останется только кнопку добавить алгоритм нажать. Они уже и плюсовую ройку мне ищут, может скоро даже на полном автомате сделаю, тупо написал, и они делают, ищут, добавляют, а мы на печи сидим, как Иванушка в сказке. Только теперь это уже не сказка, а реальность.

[sad 16]

В 16.07.2026 в 13:38, Farel сказал:

Sos, это как раз в Эксель программах. А в моей новой программе на пайтон, теперь ИИ бесплатно все могут отремонтировать, за считанные секунды. Только скажи, все делают, даже алгоритмы в любом количестве напишут, останется только кнопку добавить алгоритм нажать. Они уже и плюсовую ройку мне ищут, может скоро даже на полном автомате сделаю, тупо написал, и они делают, ищут, добавляют, а мы на печи сидим, как Иванушка в сказке. Только теперь это уже не сказка, а реальность.

Ждём с нетерпением плюсовую ройку на полном автомате  Можно в личку прислать что бы кефы слишком не проседали

[Nazarnineangels 7 518]

1 час назад, sad сказал:

Ждём с нетерпением плюсовую ройку на полном автомате  Можно в личку прислать что бы кефы слишком не проседали

Цену набивает

[The Iron Wizard 3 001]

В 16.07.2026 в 08:07, kovan сказал:

Я про этот файл и писал. Но, скачал ваш, запустил, действительно нет кеф. Но когда запустил свой, он работает, следом запустил вновь ваш - и он заработал.  Не знаю, что не так. Вот мой файл, он на 5Мб больше, пробуй.

DeluX+СИСТЕМА 2025 АРХИВ (РЕН).xlsm 15.19 MB · 29 загрузок

Таблица неправильно парсит форму команд, я уже об этом писал.  

[sad 16]

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

Таблица неправильно парсит форму команд, я уже об этом писал.  

Да и в верхнем левом поле где цветом показаны матчи обычно показывают в зеркальном виде (навстречу друг другу) а здесь показаны итоги слева направо у обеих команд.

[igorek 7]

В 15.07.2026 в 16:53, Clirim сказал:

'Get Odds

Set HTTP = CreateObject("MSXML2.XMLHTTP")

 

' usa lo stesso sourcer e suffix dei match

HTTP.Open "GET", "http://www." & sourcer & "x/feed/fo_1_" & dayzone & "_" & timezone & suffix & "0", False

' esempio finale: fo_1_..._en_1_0 oppure fo_1_..._ru_1_0

 

HTTP.setRequestHeader "X-Fsign", "SW9D1eZo"

HTTP.Send

 

fs_input = HTTP.ResponseText

fs_rows = Split(fs_input, "¬~")

fs_rows_length = UBound(fs_rows) - LBound(fs_rows)

 

Call Show_PrBar_Or_No(fs_rows_length, "Incarca Odds ....")

 

For i = 0 To fs_rows_length - 4

 

    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)

    End If

 

    If fs_index_name = "SA" Then

        sport_id = fs_index_value

 

    ElseIf fs_index_name = "ZA" Then

        tour_name = ""

        home_name = ""

        For j = 0 To fs_row_length - 1

            fs_row_parts = Split(fs_row(j), ChrW(&HF7))

            If fs_row_parts(0) = "ZA" Then tour_name = fs_row_parts(1)

            If fs_row_parts(0) = "ZB" Then country_id = fs_row_parts(1)

        Next j

 

    ElseIf fs_index_name = "AA" Then

 

        home_name = ""

        start_home = 0: start_draw = 0: start_away = 0

        current_home = 0: current_draw = 0: current_away = 0

        match_id = ""

 

        For j = 0 To fs_row_length - 1

 

            fs_row_parts = Split(fs_row(j), ChrW(&HF7))

 

            If fs_row_parts(0) = "AA" Then match_id = fs_row_parts(1)

 

            If fs_row_parts(0) = "AD" Then

                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")

            End If

 

            If fs_row_parts(0) = "AE" Then home_name = fs_row_parts(1)

            If fs_row_parts(0) = "AF" Then away_name = fs_row_parts(1)

 

            ' quote apertura 1X2 (tag storici XA/XB/XC)

            If fs_row_parts(0) = "XA" Then start_home = Val(fs_row_parts(1))

            If fs_row_parts(0) = "XB" Then start_draw = Val(fs_row_parts(1))

            If fs_row_parts(0) = "XC" Then start_away = Val(fs_row_parts(1))

 

            ' quote live 1X2 (tag storici YA/YB/YC)

            If fs_row_parts(0) = "YA" Then current_home = Val(fs_row_parts(1))

            If fs_row_parts(0) = "YB" Then current_draw = Val(fs_row_parts(1))

            If fs_row_parts(0) = "YC" Then current_away = Val(fs_row_parts(1))

 

        Next j

 

        ' scrittura su LISTE

        If match_id <> "" And start_home > 0 Then

 

            Set rFndRng = Sheets("LISTE").Columns("E").Find(match_id, , xlValues, xlWhole)

 

            If Not rFndRng Is Nothing Then

 

                ' Quote apertura (L, M, N)

                Sheets("LISTE").Cells(rFndRng.Row, "L").Value = start_home

                Sheets("LISTE").Cells(rFndRng.Row, "M").Value = start_draw

                Sheets("LISTE").Cells(rFndRng.Row, "N").Value = start_away

 

                ' Quote live (O, P, Q)

                Sheets("LISTE").Cells(rFndRng.Row, "O").Value = current_home

                Sheets("LISTE").Cells(rFndRng.Row, "P").Value = current_draw

                Sheets("LISTE").Cells(rFndRng.Row, "Q").Value = current_away

 

            End If

 

        End If

 

    End If

 

Next i

 

If bShowBar Then Unload frmStatusBar

 

Application.ScreenUpdating = True

Application.Calculation = xlAutomatic

Application.EnableEvents = True

Application.StatusBar = True

 

End Sub

Спасибо большое. Завтра доберусь до дому попробую исправить. Еще раз спасибо за помощь

[sad 16]

Подскажите какой выбрать бесплатный апи для создания программы по стате по футболу?

[Farel 1 220]

14 минут назад, sad сказал:

Подскажите какой выбрать бесплатный апи для создания программы по стате по футболу?

https://arena.ai/ через акк Гугла зайди. Куча мощных ИИ. От кодеров, до чат кодеров с загрузкой скринов. Более детально можно в моей теме посмотреть. Тут можно создать любую программу, хоть ту, которая тебе во сне снилась. Все абсолютно бесплатно. Бесплатные толковые ИИ через api, не попадались. Лимиты и сами ИИ бестолковые. Поэтому проще зайти на Арена АИ, дать нормальный промт glm 5.2 max, тот который кодер. Он твою программу за 5 минут сделает, потом если не доделал, ещё промт. И так пока не сделает. Если сессия закончится. Тупо скачивай и Max, и другие ИИ через чат доделать не составит особого труда. Было бы желание.

[good_bye 2 009]

5 часов назад, Farel сказал:

https://arena.ai/ через акк Гугла зайди. Куча мощных ИИ. От кодеров, до чат кодеров с загрузкой скринов. Более детально можно в моей теме посмотреть. Тут можно создать любую программу, хоть ту, которая тебе во сне снилась. Все абсолютно бесплатно. Бесплатные толковые ИИ через api, не попадались. Лимиты и сами ИИ бестолковые. Поэтому проще зайти на Арена АИ, дать нормальный промт glm 5.2 max, тот который кодер. Он твою программу за 5 минут сделает, потом если не доделал, ещё промт. И так пока не сделает. Если сессия закончится. Тупо скачивай и Max, и другие ИИ через чат доделать не составит особого труда. Было бы желание.

а почему ты не доделал?