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

[TORPEDONN91 620]

Ребят, да это просто тенденция забитых 1К и пропущенных 2К минус тенденция забитых 2К и пропущенных 1К. Вот и все)

[TORPEDONN91 620]

19 минут назад, cywkaywka сказал:

ребят , скиньте рабочую версию , писал выше что она не работает 

Просто смени сайт

[The Iron Wizard 1 146]

31 минуту назад, lkxxxlk сказал:

Господа специалисты...Продублирую свой вопрос в этой теме...Есть специалист который сможет сделать парсер fon или pari...по неактивным событиям...С вас техническая часть с меня...мои наработки...далее все это в свободном доступе...ну или другая договоренность...Как мне сказал один участник форума - "затухания".... был очень хороший скрипт, который погас. На фрилансе валенки откликнувшиеся, изначально готовы были взяться...

Не каждый спец может сразу войти в колею, что кому нужно спарсить с сайта. Нужно с человеком пообщается, показать на примере, что ты хочешь спарсить, а уже потом можно с ним и дальше работать. Это я на своем примере описываю. 

[Валерий Иванович 498]

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

Ребят, да это просто тенденция забитых

К сожалению да, печально однако )

[Elimay1998 57]

День добрый , всем. Вопрос, кто нить архив собирал по хоккею (по коэффициентов открытия линии и прочее).

[KAISER 325]

Hockey-Pro.xlsmЗавалялась таблица на хоккей, так как таблиц почти нет на хоккей, может починит кто-нибудь.

Изменено 30 сентября, 2024 пользователем KAISER

[RomanTok 85]

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

Hockey-Pro.xlsmЗавалялась таблица на хоккей, так как таблиц почти нет на хоккей, может починит кто-нибудь.

Рабочие таблицы на хоккей.

 

HOCKEY .xlsm HOCKEY FORMULA vs POISSON.xlsm HOCKEY mod.CS.xlsm hockey.xlsm

[RomanTok 85]

Есть еще рабочие таблицы. 

В таблице TEREZA-HOCKEY - ручной ввод со флешскора

HOCKEY 2024.xlsm ICESTORM_V4 (1).xlsm TEREZA-HOCKEY.xlsm

[Elimay1998 57]

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

Есть еще рабочие таблицы. 

В таблице TEREZA-HOCKEY - ручной ввод со флешскора

HOCKEY 2024.xlsm 1.55 MB · 10 загрузок ICESTORM_V4 (1).xlsm 6.88 MB · 11 загрузок TEREZA-HOCKEY.xlsm 72.11 kB · 10 загрузок

Доброго. случаем , архива собранного нет по коэффициентам ?

[Валерий Иванович 498]

Продолжаем помогать вам составлять новые парсеры. Я уже скидывал модуль, который парсит все таблицы с флэшскора. Эта парсит исключительно Head-To-Head историю. Всю благодарность Шурику91, я чутка изменил его исходник под свои (стандартные) нужды 

 

Sub getVersus(match_id)
On Error Resume Next
Dim timezone As Long: timezone = Sheets("Settings").Range("B1").value - 1
selectSource
optimize True
Sheets("Home").Range("A2:J51").ClearContents
Sheets("Away").Range("A2:J51").ClearContents
Call Download_site("https://d." & sourcer & "x/feed/df_hh_4_" & match_id & suffix, fs_input)
Dim fs_rows As Variant: fs_rows = Split(fs_input, "~")
Dim tmp_1 As Long, tmp_2 As Long
For i = 0 To UBound(fs_rows) - 3
Dim fs_row As Variant: fs_row = Split(fs_rows(i), "¬")
If IsArray(Split(fs_row(0), ChrW(&HF7))) Then
Dim fs_index_name As String: fs_index_name = Split(fs_row(0), ChrW(&HF7))(0)
Select Case fs_index_name
Case "KA": tmp_1 = tmp_1 + 1
Case "KB": tmp_2 = tmp_2 + 1
Case Else
If tmp_1 = 1 And tmp_2 >= 1 And tmp_2 <= 2 Then
Dim country As String, tournament As String, date_match As String, home_name As String, away_name As String
Dim home_goal As Long, away_goal As Long, result As String, place As String, ft_score As String
For j = 0 To UBound(fs_row)
Dim fs_row_parts As Variant: fs_row_parts = Split(fs_row(j), ChrW(&HF7))
Select Case fs_row_parts(0)
Case "KH": country = fs_row_parts(1)
Case "KF": tournament = fs_row_parts(1)
Case "KC": date_match = Format(DateAdd("h", timezone, DateAdd("s", fs_row_parts(1), "01/01/1970")), "yyyy.mm.dd hh:mm")
Case "KJ": home_name = Replace(fs_row_parts(1), "*", "")
Case "KK": away_name = Replace(fs_row_parts(1), "*", "")
Case "KU": home_goal = CLng(fs_row_parts(1))
Case "KT": away_goal = CLng(fs_row_parts(1))
Case "KL": ft_score = fs_row_parts(1)
Case "KN": result = fs_row_parts(1)
Case "KS": place = fs_row_parts(1)
End Select
Next j
result = IIf(result = "w", "В", IIf(result = "l", "П", "Н"))
place = IIf(place = "home", "Дома", "Гости")
Dim rwData(1 To 10) As Variant
rwData(1) = country & ": " & tournament
rwData(2) = date_match
rwData(3) = home_name
rwData(4) = away_name
rwData(5) = home_goal
rwData(6) = away_goal
rwData(7) = ft_score
rwData(8) = result
rwData(9) = place
rwData(10) = home_goal + away_goal
Dim tSheet As String: tSheet = IIf(tmp_2 = 1, "Home", "Away")
Dim rw As Long: rw = Sheets(tSheet).Cells(rows.count, 1).End(xlUp).Row + 1
Sheets(tSheet).Range("A" & rw & ":J" & rw).value = rwData
End If
End Select
End If
Next i
With Sheets("Home").Range("A:J"): .Sort Key1:=.Columns("B"), Header:=xlYes, Order1:=xlDescending: End With
With Sheets("Away").Range("A:J"): .Sort Key1:=.Columns("B"), Header:=xlYes, Order1:=xlDescending: End With
optimize False
End Sub

Парсит последние 50 записей отсюда как хозяев так и гостей, пишет соответственно на две страницы Home и Away:


Результат выполнения такой, от столбца A до столбца J:

 

[Burn Marlon 236]

21 час назад, Валерий Иванович сказал:

Продолжаем помогать вам составлять новые парсеры.

 

Ну вот, можешь же!....когда захочешь 

[Валерий Иванович 498]

3 часа назад, Burn Marlon сказал:

Ну вот, можешь же!....когда захочешь 

Могу, когда в ответ что-то получаю )
А когда просят таблицы ремонтировать, и не говорить как по ней работать - в этом случае, не могу

[Rony 349]

Здарова парни. на мой взгляд интересная табла от наших коллег из Италии. но к сожалению перестала работать. если кто сможет то реанимируйте ПЛИЗ. Есть несколько программ этой серии. если починится то выложу остальные. Спасибо

SenatoreKILLLER_V15H.zip

[Elimay1998 57]

50 минут назад, Rony сказал:

Здарова парни. на мой взгляд интересная табла от наших коллег из Италии. но к сожалению перестала работать. если кто сможет то реанимируйте ПЛИЗ. Есть несколько программ этой серии. если починится то выложу остальные. Спасибо

SenatoreKILLLER_V15H.zip 1.47 MB · 3 загрузки

судя по названию. не первая версия уже ее)

 

[Rony 349]

26 минут назад, Elimay1998 сказал:

судя по названию. не первая версия уже ее)

 

да не первая. у меня их несколько . проблема в том что они заткнулись

[Elimay1998 57]

10 минут назад, Rony сказал:

да не первая. у меня их несколько . проблема в том что они заткнулись

качество первых версий было удручающим, есть ли смысл ее починки то?

[Rony 349]

ну с этим бы я поспорил) программа интересная. стата в ней норм. 

[Elimay1998 57]

22 минуты назад, Rony сказал:

ну с этим бы я поспорил) программа интересная. стата в ней норм. 

сколько матчей проанализировано ? по скольких матчам архива? 

[Rony 349]

3 минуты назад, Elimay1998 сказал:

сколько матчей проанализировано ? по скольких матчам архива? 

пока что только задумки и вообще интересно поработать. а про архивы так по inplayguru достаточно)

[Skill Man 0]

В 30.09.2024 в 20:11, RomanTok сказал:

Есть еще рабочие таблицы. 

В таблице TEREZA-HOCKEY - ручной ввод со флешскора

HOCKEY 2024.xlsm 1.55 MB · 42 загрузки ICESTORM_V4 (1).xlsm 6.88 MB · 36 загрузок TEREZA-HOCKEY.xlsm 72.11 kB · 28 загрузок

А есть еще у кого таблички, в которые нужно вручную вводить данные с флешскора? 
заранее спасибо 

[Druskoking777 268]

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

Здарова парни. на мой взгляд интересная табла от наших коллег из Италии. но к сожалению перестала работать. если кто сможет то реанимируйте ПЛИЗ. Есть несколько программ этой серии. если починится то выложу остальные. Спасибо

SenatoreKILLLER_V15H.zip 1.47 MB · 18 загрузок

Исправлен файл и работает в более поздней версии Senatore.
Сенатор V16
но расчеты точно такие же.
Есть проблема почти во всех версиях Senatore, при наличии чемпионатов с участием более 20 команд или разделенных на несколько групп они тоже не скачиваются, не знаю причину.

 

SenatoreKILLLER_V16H.xlsm

[RomanTok 85]

31 минуту назад, Skill Man сказал:

А есть еще у кого таблички, в которые нужно вручную вводить данные с флешскора? 
заранее спасибо 

Есть

BANKO_MATCH.xlsx Cifte-Sans.xlsb H2H.xlsx HAANLAND V1 ( 2021) (ТАБЛИЦА РАБОЧАЯ - ПРОСТО МЕНЯТЬ СЧЕТА).xlsm HAANLAND-V2-2021.xlsm LIVE-BET-FLASHSCORE.xlsx TYRESYAS_2016.xlsx VARDY v 2.1.xlsx

[Rony 349]

46 минут назад, Druskoking777 сказал:

Исправлен файл и работает в более поздней версии Senatore.
Сенатор V16
но расчеты точно такие же.
Есть проблема почти во всех версиях Senatore, при наличии чемпионатов с участием более 20 команд или разделенных на несколько групп они тоже не скачиваются, не знаю причину.

 

SenatoreKILLLER_V16H.xlsm 1.01 MB · 6 загрузок

 

СПАСИБО

[Elimay1998 57]

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

пока что только задумки и вообще интересно поработать. а про архивы так по inplayguru достаточно)

архив должен быть для каждый программы свой)

[Elimay1998 57]

7 часов назад, Druskoking777 сказал:

Исправлен файл и работает в более поздней версии Senatore.
Сенатор V16
но расчеты точно такие же.
Есть проблема почти во всех версиях Senatore, при наличии чемпионатов с участием более 20 команд или разделенных на несколько групп они тоже не скачиваются, не знаю причину.

стоит ограничение (назовем так) , по скачиванию (сканированию) , 20 и не более, расчет по среднему. 

SenatoreKILLLER_V16H.xlsm 1.01 MB · 16 загрузок