vadavada 3 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 Я пытаюсь получить следующий код для разбора личных встреч на flashscore, но столкнулся с проблемой. Может ли кто-нибудь помочь // I am trying to get the following code to parse the head-to-head matches on flashscore but i am encountering a problem. Can anyone help? a = 2 'Get H2H temp_hh = 0: temp_hh1 = 0: ttttttt = 0 Sheets("Totalconfrontation").Range("A1").Value = ActiveCell.Offset(, -6).Value Sheets("Totalconfrontation").Range("B1").Value = ActiveCell.Offset(, -5).Value Sheets("Totalconfrontation").Range("A1").Value = ActiveCell.Offset(, -6).Value Sheets("Totalconfrontation").Range("B1").Value = ActiveCell.Offset(, -5).Value Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") oXMLHTTP.Open "GET", "https://d." & sourcer & "x/feed/df_hh_1_" & id & suffix, False oXMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo" oXMLHTTP.Send fs_input = oXMLHTTP.responseText Set objRegExp = CreateObject("VBScript.RegExp") fs_rows = Split(fs_input, "~"): fs_rows_length = UBound(fs_rows) - LBound(fs_rows) Call Show_PrBar_Or_No(fs_rows_length, "Çàãðóçêà ïîñëåäíèõ èãð...") For i = 0 To fs_rows_length - 3 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) Select Case temp_hh Case 0: If fs_index_name = "KB" Then temp_hh = 1 Case 1: If fs_index_name = "KA" Then temp_hh = 2 If fs_index_name = "KB" Then temp_hh1 = temp_hh1 + 1 For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) Select Case fs_row_parts(0) Case "KH": tour_name1 = fs_row_parts(1) Case "KF": tour_name2 = fs_row_parts(1) Case "KC": 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") Case "KJ": home_name = fs_row_parts(1) Case "KK": away_name = fs_row_parts(1) Case "KU": home_first = fs_row_parts(1) Case "KT": away_first = fs_row_parts(1) End Select Next j tour_name = tour_name1 & ": " & tour_name2 home_name = Replace(home_name, "*", ""): away_name = Replace(away_name, "*", "") Case 2: End Select If temp_hh = 2 Or temp_hh1 <> 2 Then Else If ttttttt = 0 Then ttttttt = 1 Else hh_m = Array(tour_name, date_match, home_name, away_name, home_first, away_first) Sheets("Totalconfrontation").Range("A" & a & ":F" & a).Value = hh_m If home_name = Sheets("Totalconfrontation").Range("A1").Value Then: Sheets("Totalconfrontation").Range("A" & a & ":F" & a).Value = hh_m a = a + 1 End If End If Next i If bShowBar Then Unload frmStatusBar Sheets("Totalconfrontation").Range("A:F").Sort Key1:=Sheets("Totalconfrontation").Columns("B"), Header:=xlYes, Order1:=xlDescending Sheets("Totalconfrontation").Range("A:F").Sort Key1:=Sheets("Totalconfrontation").Columns("B"), Header:=xlYes, Order1:=xlDescending Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/ Поделиться на другие сайты Поделиться
WMI 10 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 44 минуты назад, vadavada сказал: Я пытаюсь получить следующий код для разбора личных встреч на flashscore, но столкнулся с проблемой. Может ли кто-нибудь помочь // I am trying to get the following code to parse the head-to-head matches on flashscore but i am encountering a problem. Can anyone help? a = 2 'Get H2H temp_hh = 0: temp_hh1 = 0: ttttttt = 0 Sheets("Totalconfrontation").Range("A1").Value = ActiveCell.Offset(, -6).Value Sheets("Totalconfrontation").Range("B1").Value = ActiveCell.Offset(, -5).Value Sheets("Totalconfrontation").Range("A1").Value = ActiveCell.Offset(, -6).Value Sheets("Totalconfrontation").Range("B1").Value = ActiveCell.Offset(, -5).Value Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") oXMLHTTP.Open "GET", "https://d." & sourcer & "x/feed/df_hh_1_" & id & suffix, False oXMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo" oXMLHTTP.Send fs_input = oXMLHTTP.responseText Set objRegExp = CreateObject("VBScript.RegExp") fs_rows = Split(fs_input, "~"): fs_rows_length = UBound(fs_rows) - LBound(fs_rows) Call Show_PrBar_Or_No(fs_rows_length, "Çàãðóçêà ïîñëåäíèõ èãð...") For i = 0 To fs_rows_length - 3 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) Select Case temp_hh Case 0: If fs_index_name = "KB" Then temp_hh = 1 Case 1: If fs_index_name = "KA" Then temp_hh = 2 If fs_index_name = "KB" Then temp_hh1 = temp_hh1 + 1 For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) Select Case fs_row_parts(0) Case "KH": tour_name1 = fs_row_parts(1) Case "KF": tour_name2 = fs_row_parts(1) Case "KC": 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") Case "KJ": home_name = fs_row_parts(1) Case "KK": away_name = fs_row_parts(1) Case "KU": home_first = fs_row_parts(1) Case "KT": away_first = fs_row_parts(1) End Select Next j tour_name = tour_name1 & ": " & tour_name2 home_name = Replace(home_name, "*", ""): away_name = Replace(away_name, "*", "") Case 2: End Select If temp_hh = 2 Or temp_hh1 <> 2 Then Else If ttttttt = 0 Then ttttttt = 1 Else hh_m = Array(tour_name, date_match, home_name, away_name, home_first, away_first) Sheets("Totalconfrontation").Range("A" & a & ":F" & a).Value = hh_m If home_name = Sheets("Totalconfrontation").Range("A1").Value Then: Sheets("Totalconfrontation").Range("A" & a & ":F" & a).Value = hh_m a = a + 1 End If End If Next i If bShowBar Then Unload frmStatusBar Sheets("Totalconfrontation").Range("A:F").Sort Key1:=Sheets("Totalconfrontation").Columns("B"), Header:=xlYes, Order1:=xlDescending Sheets("Totalconfrontation").Range("A:F").Sort Key1:=Sheets("Totalconfrontation").Columns("B"), Header:=xlYes, Order1:=xlDescending Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298674 Поделиться на другие сайты Поделиться
WMI 10 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 стоит ли лезть туда куда не знаешь? 1 Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298675 Поделиться на другие сайты Поделиться
Данила 29 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 13 минут назад, WMI сказал: Ты код выложи а не скрин. Что умничать то? 2 Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298679 Поделиться на другие сайты Поделиться
WMI 10 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 1 минуту назад, Данила сказал: Ты код выложи а не скрин. Что умничать то? зачем код? все умничаете же. скрин в помощь Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298680 Поделиться на другие сайты Поделиться
Данила 29 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 2 минуты назад, WMI сказал: зачем код? все умничаете же. скрин в помощь Человек спросил. Ты его культурно послал. Думаю он так воспринял Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298681 Поделиться на другие сайты Поделиться
WMI 10 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 Только что, Данила сказал: Человек спросил. Ты его культурно послал. Думаю он так воспринял ну а что я должен готовый код кому-то давать? там так-то километры строк и я не желаю его распространять. копипиздить все умеют и продавать потом. учитесь по скринам создавать хотяб свое а не чужое Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298682 Поделиться на другие сайты Поделиться
Данила 29 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 2 минуты назад, WMI сказал: ну а что я должен готовый код кому-то давать? там так-то километры строк и я не желаю его распространять. копипиздить все умеют и продавать потом. учитесь по скринам создавать хотяб свое а не чужое Так целый форум халявщиков. Бесплатный грааль ищут-с Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298688 Поделиться на другие сайты Поделиться
WMI 10 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 Только что, Данила сказал: Так целый форум халявщиков. Бесплатный грааль ищут-с ну поэтому кусочек рабочего кода скинул. пускай дальше ищут грааль. я то нашел уже давно его Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298689 Поделиться на другие сайты Поделиться
Олег Ланин 34 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 Откройте форточку, тут душно стало 1 Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298690 Поделиться на другие сайты Поделиться
WMI 10 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 5 минут назад, Олег Ланин сказал: Откройте форточку, тут душно стало она открыта была всегда, только хейтеры постоянно дышать не могут как смотрю в последнее время Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298695 Поделиться на другие сайты Поделиться
Администраторы ByRagimoff 270 293 Опубликовано 18 февраля, 2023 Администраторы Поделиться Опубликовано 18 февраля, 2023 Каждый помогает по-своему. Некоторые с картинками, некоторые с видео. Но я не видел, чтобы кто-то раздавал полный код бесплатно... Также, если это делает человек, написавший и разработавший код. Нужно уважение! Хоть бы спасибо сказали... 1 Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298696 Поделиться на другие сайты Поделиться
Администраторы ByRagimoff 270 293 Опубликовано 18 февраля, 2023 Администраторы Поделиться Опубликовано 18 февраля, 2023 Вы знаете, что все макрокоды excel (парсеры) на форумах украдены из infinitybook? Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298697 Поделиться на другие сайты Поделиться
Данила 29 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 2 минуты назад, ByRagimoff сказал: Вы знаете, что все макрокоды excel (парсеры) на форумах украдены из infinitybook? Прям все? Он сам их выложил насколько здесь писали. И Гигс вроде исходный код выкладывал с разрешения Администрации форум. Или нет? Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298698 Поделиться на другие сайты Поделиться
Sergei2020 56 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 1 минуту назад, Данила сказал: Прям все? Он сам их выложил насколько здесь писали. И Гигс вроде исходный код выкладывал с разрешения Администрации форум. Или нет? Все, все парсеры работают на коде infinitybook. Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298700 Поделиться на другие сайты Поделиться
Данила 29 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 Только что, Sergei2020 сказал: Все, все парсеры работают на коде infinitybook. Да. Ладно. Свежо предание да верится с трудом. Что там запрос сделать. Да разложить все регулярами. Ума много не надо Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298701 Поделиться на другие сайты Поделиться
WMI 10 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 4 минуты назад, Данила сказал: Прям все? Он сам их выложил насколько здесь писали. И Гигс вроде исходный код выкладывал с разрешения Администрации форум. Или нет? С не разрешения АДминистрации GeeGs выкладывал, и вообще ни с какого разрешения, и еще эти коды продавать начали под видом всяких бетпрофи всякие самые умные, а если взять всю историю то много каналов олеженька заблокал из-за этого - то что решил это его разработки спизженные - как типа автогол - тот же бетпрофи Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298705 Поделиться на другие сайты Поделиться
Sergei2020 56 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 1 минуту назад, Данила сказал: Да. Ладно. Свежо предание да верится с трудом. Что там запрос сделать. Да разложить все регулярами. Ума много не надо Ну видимо надо, раз постоянно проблема с прогами. Да и пока infinitybook не появился все ручками сидели стату копировали, это так если что) Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298706 Поделиться на другие сайты Поделиться
Данила 29 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 1 минуту назад, Sergei2020 сказал: Ну видимо надо, раз постоянно проблема с прогами. Да и пока infinitybook не появился все ручками сидели стату копировали, это так если что) Да писец. Прям Великий Инфинити. Минимум 3-4 програмеров знаю, новый парсер на коленке напишут Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298707 Поделиться на другие сайты Поделиться
Данила 29 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 2 минуты назад, WMI сказал: С не разрешения АДминистрации GeeGs выкладывал, и вообще ни с какого разрешения, и еще эти коды продавать начали под видом всяких бетпрофи всякие самые умные, а если взять всю историю то много каналов олеженька заблокал из-за этого - то что решил это его разработки спизженные - как типа автогол - тот же бетпрофи Т.е. Гигса турнули за то что выкладывал без разрешения Администрации и см был Админом Форума. Я правильно логику Вашу замысловатую понял Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298708 Поделиться на другие сайты Поделиться
WMI 10 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 2 минуты назад, Данила сказал: Да писец. Прям Великий Инфинити. Минимум 3-4 програмеров знаю, новый парсер на коленке напишут и где они интересно? Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298709 Поделиться на другие сайты Поделиться
WMI 10 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 1 минуту назад, Данила сказал: Т.е. Гигса турнули за то что выкладывал без разрешения Администрации и см был Админом Форума. Я правильно логику Вашу замысловатую понял смысл такой же был как и с Инфинити Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298710 Поделиться на другие сайты Поделиться
Данила 29 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 Только что, WMI сказал: и где они интересно? Да они не светятся. Вот тебе тоже скрин, как код вместо портянки Инфинити на несколько строк разложить. Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298711 Поделиться на другие сайты Поделиться
Данила 29 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 Только что, WMI сказал: смысл такой же был как и с Инфинити Какой? Поматосили и бросили? Извиняюсь... не политкоректно выразился. Закончился срок контракта Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298712 Поделиться на другие сайты Поделиться
WMI 10 Опубликовано 18 февраля, 2023 Поделиться Опубликовано 18 февраля, 2023 Только что, Данила сказал: Какой? Поматосили и бросили? Извиняюсь... не политкоректно выразился. Закончился срок контракта можно и так сказать Цитата Ссылка на комментарий https://brcbet.com/topic/265642-spravka-vb/#findComment-298713 Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.