3 мар. 2021 г., 07:59
Нихерово думаю даёт новая стратегия, радуюсь, смотрю блэт, а он не те кэфы считает...
Тут много шарящих людей, поэтому спрошу, может кто знает как тут поменять код 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