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

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

x

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