WeWin.RU

    • Зарегистрироваться
    • Войти
    • Поиск
    • Категории
    • Метки
    • Непрочитанные
    • Популярные
    • Пользователи
    • Группы

    код требует исправления

    Обзоры, отзывы, предложения
    1
    1
    228
    Загружаем больше сообщений
    • Сначала старые
    • Сначала новые
    • По количеству голосов
    Ответить
    • Ответить, создав новую тему
    Авторизуйтесь, чтобы ответить
    Эта тема была удалена. Только пользователи с правом управления темами могут её видеть.
    • G
      Gambit365 отредактировано

      Re: Парсер Delux_plus```

      this piece of code has recently stopped working hope someone can fix

      Этот фрагмент кода недавно перестал работать, надеюсь, кто-нибудь сможет исправить

      'Get Home Matches

      rowindx = 2
       Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
      oXMLHTTP.Open "GET", "https://d." & Sourcer & "x/feed/pr_1_" & country_id & "_" & participantEncodedIds1 & "_0_0_ru_1", False
      oXMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo"
      oXMLHTTP.Send
      response = oXMLHTTP.ResponseText
      fs_rows = Split(response, "~")
      fs_rows_length = UBound(fs_rows) - LBound(fs_rows)
      Call Show_PrBar_Or_No(fs_rows_length, "Loading home ...")
      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)
                  If fs_row_parts(0) = "ZC" Then tour_id = fs_row_parts(1)
              Next J
          ElseIf fs_index_name = "AA" Then
              home_name = ""
              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) = "AA" Then idios = fs_row_parts(1)
                  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)
                  If fs_row_parts(0) = "BA" Then home_first = fs_row_parts(1)
                  If fs_row_parts(0) = "BB" Then away_first = fs_row_parts(1)
                  If fs_row_parts(0) = "BC" Then home_second = fs_row_parts(1)
                  If fs_row_parts(0) = "BD" Then away_second = fs_row_parts(1)
                  If fs_row_parts(0) = "PX" Then participantEncodedIds12 = fs_row_parts(1)
              Set oRegExp = CreateObject("VBScript.RegExp")
              oRegExp.Pattern = "\s\(...\)"
              home_name = oRegExp.Replace(home_name, "")
              away_name = oRegExp.Replace(away_name, "")
              
              Next J
              'If fs_index_value = id Then home_name = ""
          End If
          If tour_name = "" Or home_name = "" Then
          Else
              Sheets("Athome").Range("A" & rowindx).Value = tour_name
              Sheets("Athome").Range("B" & rowindx).Value = date_match
              Sheets("Athome").Range("C" & rowindx).Value = home_name
              Sheets("Athome").Range("D" & rowindx).Value = away_name
              Sheets("Athome").Range("E" & rowindx).Value = home_first
              Sheets("Athome").Range("F" & rowindx).Value = away_first
              Sheets("Athome").Range("G" & rowindx).Value = home_second
              Sheets("Athome").Range("H" & rowindx).Value = away_second
              If participantEncodedIds12 = participantEncodedIds1 Then
                  Sheets("Athome").Range("I" & rowindx).Value = "Athome"
                  Sheets("Athome2").Range("A" & rowindx).Value = tour_name
                  Sheets("Athome2").Range("B" & rowindx).Value = date_match
                  Sheets("Athome2").Range("C" & rowindx).Value = home_name
                  Sheets("Athome2").Range("D" & rowindx).Value = away_name
                  Sheets("Athome2").Range("E" & rowindx).Value = home_first
                  Sheets("Athome2").Range("F" & rowindx).Value = away_first
                  Sheets("Athome2").Range("G" & rowindx).Value = home_second
                  Sheets("Athome2").Range("H" & rowindx).Value = away_second
                  Sheets("Athome2").Range("I" & rowindx).Value = "Athome"
              Else
                  Sheets("Athome").Range("I" & rowindx).Value = "Guests"
                  Sheets("Athome3").Range("A" & rowindx).Value = tour_name
                  Sheets("Athome3").Range("B" & rowindx).Value = date_match
                  Sheets("Athome3").Range("C" & rowindx).Value = home_name
                  Sheets("Athome3").Range("D" & rowindx).Value = away_name
                  Sheets("Athome3").Range("E" & rowindx).Value = home_first
                  Sheets("Athome3").Range("F" & rowindx).Value = away_first
                  Sheets("Athome3").Range("G" & rowindx).Value = home_second
                  Sheets("Athome3").Range("H" & rowindx).Value = away_second
                  Sheets("Athome3").Range("I" & rowindx).Value = "Guests"
              End If
              rowindx = rowindx + 1
          End If
      Next i
      If bShowBar Then Unload frmStatusBar
      Sheets("Athome").Range("A:I").Sort Key1:=Sheets("Athome").Columns("B"), Header:=xlYes, Order1:=xlDescending
      Sheets("Athome2").Range("A:I").Sort Key1:=Sheets("Athome2").Columns("B"), Header:=xlYes, Order1:=xlDescending
      Sheets("Athome3").Range("A:I").Sort Key1:=Sheets("Athome3").Columns("B"), Header:=xlYes, Order1:=xlDescending
      
      1 ответ Последний ответ Ответить Цитировать 0
      • 1 / 1
      • Первое сообщение
        Последнее сообщение