Hallo zusammen,
ich muss nochmal um Rat fragen :)
Ich lese Youtube Views und Likes über den Quellcode aus.
Das funktioniert super, ich habe nur das Problem, wenn die Likes deaktiviert sind, bekommen ich einen fehler und das script stoppt mit Laufzeitfehler.
im Quellcode von dem jeweilgen Video steht aber 0 für die Likes.
Das Script müsste mir aber auch 0 zurückgeben statt Fehler. Vielleicht habt ihr eine idee?
Sub Youtube_Vue_Anzahl()
Dim accessToken, antwort As String
Dim start As Long
Dim ende As Long
Dim anwort As String
accessToken = "???"
graphURL = graphURL & "?access_token=" & accessToken
Dim objHttp As Object
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
Call objHttp.Open("GET", graphURL, False)
Call objHttp.Send
antwort = objHttp.ResponseText
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
start = InStr(1, antwort, "(wie ", vbTextCompare) + 5
ende = InStr(1, antwort, "andere auch)", vbTextCompare)
Ergebnis3 = CLng(Trim(Mid(antwort, start, ende - start)))
End Sub
viele Grüße
|