Navigation

    WeWin.RU

    • Register
    • Login
    • Search
    • Categories
    • Tags
    • Unread
    • Popular
    • Users
    • Groups

    VBA Может кто знает?

    Вопросы и инструкции
    1
    2
    111
    Loading More Posts
    • Oldest to Newest
    • Newest to Oldest
    • Most Votes
    Reply
    • Reply as topic
    Log in to reply
    This topic has been deleted. Only users with topic management privileges can see it.
    • x
      x last edited by x

      Нихерово думаю даёт новая стратегия, радуюсь, смотрю блэт, а он не те кэфы считает...
      Тут много шарящих людей, поэтому спрошу, может кто знает как тут поменять код vba, чтобы парсил фору -1, а то он упорно парсит -1,75 ?
      Я понимаю что процесс видимо идёт по коду сверху и встречает первое вхождение, а там odds_ah_-1,75 , ну он и парсит "odds_ah_-1", что надо прописать, чтобы искал именно "odds_ah_-1"?

      objRegExp.Pattern = "odds_ah_-1(.*?)bookmaker(.*?)*(.*?)odds-wrap(.*?)alt=" & Chr(34) & "(.*?):" & Chr(34) & ">(.*?)<\/span>(.*?)odds-wrap(.*?)alt=" & Chr(34) & "(.*?):" & Chr(34) & ">(.*?)<\/span>"
          If objRegExp.test(fs_input) = True Then
              Set objMatches = objRegExp.Execute(fs_input)
              objRegExp.Pattern = "(.*)[(.*)](.*)"
              If objRegExp.test(objMatches.Item(0).submatches(4)) = True Then
                  Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(4))
                  Sheets("Коэффициенты").Range("A31").Value = "Ф1(-1)"
                  Sheets("Коэффициенты").Range("B31").Value = objMatches2.Item(0).submatches(0)
                  Sheets("Коэффициенты").Range("C31").Value = objMatches2.Item(0).submatches(2)
              Else
                  Sheets("Коэффициенты").Range("A31").Value = "Ф1(-1)"
                  Sheets("Коэффициенты").Range("B31").Value = objMatches.Item(0).submatches(5)
                  Sheets("Коэффициенты").Range("C31").Value = objMatches.Item(0).submatches(5)
              End If
              If objRegExp.test(objMatches.Item(0).submatches(8)) = True Then
                  Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(8))
                  Sheets("Коэффициенты").Range("A32").Value = "Ф2(+1)"
                  Sheets("Коэффициенты").Range("B32").Value = objMatches2.Item(0).submatches(0)
                  Sheets("Коэффициенты").Range("C32").Value = objMatches2.Item(0).submatches(2)
              Else
                  Sheets("Коэффициенты").Range("A32").Value = "Ф2(+1)"
                  Sheets("Коэффициенты").Range("B32").Value = objMatches.Item(0).submatches(9)
                  Sheets("Коэффициенты").Range("C32").Value = objMatches.Item(0).submatches(9)
              End If
          End If
      

      https://www.soccer24.com/match/d6UpT4Wn/#odds-comparison;asian-handicap;full-time

      1 Reply Last reply Reply Quote 0
      • x
        x last edited by x

        А всё разобрался, кавычки блин) , тему можно удалять

        1 Reply Last reply Reply Quote 2
        • 1 / 1
        • First post
          Last post