WeWin.RU

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

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

    Вопросы и инструкции
    1
    2
    248
    Загружаем больше сообщений
    • Сначала старые
    • Сначала новые
    • По количеству голосов
    Ответить
    • Ответить, создав новую тему
    Авторизуйтесь, чтобы ответить
    Эта тема была удалена. Только пользователи с правом управления темами могут её видеть.
    • x
      x отредактировано 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 ответ Последний ответ Ответить Цитировать 0
      • x
        x отредактировано x

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

        1 ответ Последний ответ Ответить Цитировать 2
        • 1 / 1
        • Первое сообщение
          Последнее сообщение