X = UBound(Split(antwort, Chr(10)))
For
I = 0
To
X - 1
If
InStr(Split(antwort, Chr(10))(I),
"watch-view-count"
) > 0
Then
Ergebnis = Replace(Split(antwort, Chr(10))(I),
""
,
""
)
Y = UBound(Split(Ergebnis,
"<"
))
Ergebnis2 = Replace(Split(Ergebnis,
">"
)(Y - 1),
"Aufrufe</div"
,
""
) * 1
End
If
Next
I