Also ich hatte jetzt eher an sowas gedacht.
Dim xid As String, xspan As String, xStart As String, xEnde As String, Aufrufe As String
xid = InStr(1, Antwort, "<div id=""info-container""")
xspan = InStr(xid, Antwort, "<span")
xStart = InStr(xspan, Antwort, ">") + 1
xEnde = InStr(xStart, Antwort, " Aufrufe</span") - 1
Aufrufe = Mid(Antwort, xStart, xEnde - xStart + 1)
Allerdings hast du immer noch nicht geschrieben was in Antwort drin steht. Ich gehe mal davon aus, dass es der vollständige Quelltext ist. Eigentlich macht man das nicht so, sondern nutzt eine Referenz auf ein Internetobjekt wo man mit getElementByID usw. arbeiten kann. Leider kenne ich mich da noch zuwenig aus um dir einen Vorschlag zu machen. Auch habe ich festgestellt, dass es da verschiedene Ansätze gibt. Aber wenn du mit Stringbearbeitung am besten klarkommst, sollte das für den Anfang genügen.
Gruß Mr. K.
|