Справка ВБ

[Данила 29]

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

Форум нужен продвижение (с личного средства уже 6 лет работает)

И скрины Вы обещали какие именно пункты я нарушил

[Данила 29]

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

Ето тема пролистать будет много пользователей.  И думаю правильно было предупреждение 

За что именно предупреждение? Можно ссылки на Вами придуманные правила?

[ByRagimoff 270 293]

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

За что именно предупреждение? Можно ссылки на Вами придуманные правила?

 

[ByRagimoff 270 293]

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

За что именно предупреждение? Можно ссылки на Вами придуманные правила?

Придуманный правила нет! Есть правила которые  все должны соблюдать! Если кто-то не нравится правила "придуманный" может просто выйти и больше не заходить! 

Фарел и поэтому больше нет...

[Данила 29]

Только что, ByRagimoff сказал:

 

И что именно нарушено из правил? Оскорбление где? Или критика=оскорбление. Тогда Ваш ресурс самый недемократический в Европе, и нужно жаловаться  Еропейский суд по правам человека

[ByRagimoff 270 293]

Только что, Данила сказал:

И что именно нарушено из правил? Оскорбление где? Или критика=оскорбление. Тогда Ваш ресурс самый недемократический в Европе, и нужно жаловаться  Еропейский суд по правам человека

Мы не Европа сидим, мы здесь обши национальный форуме 

[Данила 29]

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

Мы не Европа сидим, мы здесь обши национальный форуме 

В чем именно оскорбление и нарушение Ваших правил?

[WMI 10]

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

И что именно нарушено из правил? Оскорбление где? Или критика=оскорбление. Тогда Ваш ресурс самый недемократический в Европе, и нужно жаловаться  Еропейский суд по правам человека

а можно подробности как это будет происходить в ЛС повторять?

[Данила 29]

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

а можно подробности как это будет происходить в ЛС повторять?

Да здесь что хотят то и творят. Здесь нужны: читатели, сексоты, лизоблюзы, едросы, #славаукраинцы, #славароссияне. Остальные нет. Так что Вы правильно делаете что скрины выкладываете...

[ByRagimoff 270 293]

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

В чем именно оскорбление и нарушение Ваших правил?

Не видно в скрина? Пользователь оскорбление от медали. И по правилам дали ваши медал...

[ByRagimoff 270 293]

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

Да здесь что хотят то и творят. Здесь нужны: читатели, сексоты, лизоблюзы, едросы, #славаукраинцы, #славароссияне. Остальные нет. Так что Вы правильно делаете что скрины выкладываете...

И 100 бал, навсегда

 

10. Запрещается публикация тем содержащих насилие, порнографию, расовую или национальную дискриминацию.

[Denis221 73]

9 часов назад, 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

Sub getОчные(sourcer As String, suffix As String, match_id As String, date_match As String, home_name As String, away_name As String)
Dim fs_rows_length As Long
Dim A As Long
Dim cntx As Long
Dim cnt As Long

    Dim lr As Long
    
    Dim celPaste As Range
    Dim silence_mod As Integer

            
            A = 2 'Get H2H
            temp_hh = 0: temp_hh1 = 0
            Sheets("Очные").Range("A1").Value = home_name
            Sheets("Очные").Range("B1").Value = away_name
            Sheets("Очныедома").Range("A1").Value = home_name
            Sheets("Очныедома").Range("B1").Value = away_name
            Set http = CreateObject("MSXML2.XMLHTTP")
            http.Open "GET", "https://d." & sourcer & "x/feed/df_hh_1_" & match_id & suffix, False
            http.setRequestHeader "X-Fsign", "SW9D1eZo"
            http.Send
            fs_input = http.ResponseText
            
            Set objRegExp = CreateObject("VBScript.RegExp")
Set objRegExp = CreateObject("VBScript.RegExp")
fs_rows = Split(fs_input, "~"): fs_rows_length = UBound(fs_rows) - LBound(fs_rows)

For i = 0 To fs_rows_length - 3
 
    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("Очные").Range("A" & A & ":F" & A).Value = hh_m
        If home_name = Sheets("Очные").Range("A1").Value Then: Sheets("Очныедома").Range("A" & A & ":F" & A).Value = hh_m
        
                            A = A + 1
                        End If
                         End If
                    Next

            Sheets("Очные").Range("A:F").Sort Key1:=Sheets("Очныедома").Columns("B"), Header:=xlYes, Order1:=xlDescending
            Sheets("Очныедома").Range("A:F").Sort Key1:=Sheets("Очныедома").Columns("B"), Header:=xlYes, Order1:=xlDescending
End Sub

[vadavada 3]

This is the file i want to add the head to head matches to.
Can anyone help?

5in1_eng_FX2.xlsm

[Zmey 7]

22 часа назад, WMI сказал:

Интиресно. Прям копия с Alradar от Инфинити. Спасибо Вам))

[WMI 10]

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

Интиресно. Прям копия с Alradar от Инфинити. Спасибо Вам))

она и есть

[vadavada 3]

Any help in correcting the error in 

[vadavada 3]

Can anyone help correct the following code?

[vadavada 3]

i need to automate the files so that it analyses all matches instead of one by one

Sub tumanaliz()
    Dim LastRow As Long
    Dim hyperlink As hyperlink
    Dim i As Long
    
    With Sheets("Listing")
        LastRow = .Cells(.Rows.Count, "I").End(xlUp).Row
        
        i = 2
        Do While i <= LastRow
            If Not IsEmpty(.Cells(i, "I")) Then ' Check if cell is not empty
                Application.StatusBar = "Processing row " & i
                .Cells(2, 32).Value = .Cells(i, 30).Value ' Set value in cell AG2
                
                Set hyperlink = .Cells(i, "I").Hyperlinks(1)
                hyperlink.Follow ' Click on the hyperlink
                
                i = i + 1 ' Move to next row in column I
                Application.StatusBar = ""
            Else
                i = i + 1 ' Move to next row in column I
            End If
        Loop
    End With
End Sub

5in1_eng_FX2.xlsm