Moin! Also ganz gleich ist der Code nicht. :-) Bei dem Code steht hinter der Zahl nur ein </div>, beim anderen vorhin waren es 2. Das könnte man durch die suche und einen vergleich nach </div> beseitigen (wieder mit einem if then). Problem ist aber das du damit jede Möglichkeit beachten müsstest - vllt. gibt es ja auch mal 3 von den Dingern. Mein Vorschlag wäre deshalb der Code hier. Da wird die Anzahl der Klicks wieder anders ermittelt. Ist bei beiden Codes getestet und würde da laufen. Schau mal ob es auch bei den anderen Varianten läuft.
Sub Youtube_Vue_Anzahl2()
Dim accessToken, antwort As String
Dim start As Long
Dim ende As Long
Dim anwort As String
Dim temp 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
If InStr(1, antwort, "watch-view-count", vbTextCompare) > 0 Then
temp = Split(antwort, "watch-view-count")(1)
temp = Split(temp, "Aufrufe")(0)
Ergebnis2 = Trim(Replace(temp, Chr(34) & ">", ""))
End If
start = InStr(1, antwort, "(wie ", vbTextCompare) + 5
ende = InStr(1, antwort, "andere auch)", vbTextCompare)
Ergebnis3 = CLng(Trim(Mid(antwort, start, ende - start)))
End Sub
|