Webabfrage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marcel,
sorry für die späte Rückmeldung. Also ich habe mir die Seite angesehen, es aber bisher nicht hinbekommen alle von Dir gewünschten Daten einzusammeln. Über die Mobile-Seite fehlt ja ein ganz Teil, wie Du selber schon festgestellt hast. Ich hatte versucht die Ausgangsseite für das Mobile zu verwenden, um die Links zu den Spielen abzugreifen und dann für die Unterseiten wieder die normale Seite zu verwenden. Also einfach das m aus den Links kicken.
Die Links stimmen dann auch, aber das Problem des veralteten IE bleibt bestehen. Die Seiten werden nicht aufgebaut. Auch ein Ansatz, es über das Abgreifen eines JSON zu bewerkstelligen hat nicht funktioniert. Zwar habe ich ein JSON gefunden, in dem die Spielernamen auftauchen, aber das muss für etwas anderes sein, denn alle weiteren gewünschten Daten fehlen.
Unterm Strich wird es für die Seite auf die Verwendung von Selenium rauslaufen, womit ich bisher allerdings noch keine Erfahrung habe und Selenium muss auch auf dem Rechner installiert werden. Letzteres dürfte in Deinem Fall kein Problem sein, da ich annehme, das ist ein privates Projekt. Eine andere Möglichkeit ist die Verwendung einer anderen Quelle. Zu Tischtennis-Turnieren gibt es auch andere Seiten habe ich gesehen. Aber ich kann nicht prüfen, welche andere Seite die Daten enthält, die Du haben möchtest.
Viele Grüße,
Zwenn

a1 = Sheets("DataPort").Range("j1").Value b1 = 1 Set HTTP = CreateObject("MSXML2.XMLHTTP") HTTP.Open "GET", "https://d." & sourcer & "x/feed/f_1_" & dayzone & "_" & timezone & suffix, _ False HTTP.setRequestHeader "X-Fsign", "SW9D1eZo" HTTP.Send fs_input = HTTP.ResponseText fs_rows = Split(fs_input, "~") fs_rows_length = UBound(fs_rows) - LBound(fs_rows)

Set HTTP = CreateObject("MSXML2.XMLHTTP") HTTP.Open "GET", "https://d." & sourcer & "x/feed/f_1_" & dayzone & "_" & timezone & suffix, _ False HTTP.setRequestHeader "X-Fsign", "SW9D1eZo" HTTP.Send fs_input = HTTP.ResponseText fs_rows = Split(fs_input, "~") fs_rows_length = UBound(fs_rows) - LBound(fs_rows)

Hallo Marcel,
im responseText der von Dir geposteten URL sind keine Spielernamen zu finden. Deshalb nehme ich an, es ist der falsche Datenstrom. Es ist auch die englische Ausgabe der Seite. Hat das eine bestimmte Bedeutung? Ich habe jetzt einen Datenstrom gefunden, in dem alle Spielernamen der langen Tabelle der Spiele enthalten zu sein scheinen. Es ist aber eine URL auf die deutschsprachige Version der Seite.
Das Runterladen funktioniert auf jeden Fall mit der von Dir gefundenen Methode. Ich kann aber mit dem Datenformat absolut nix anfangen. Das sieht ziemlich kryptisch aus und außer den Spielernamen erkenne ich da keine sinnvollen Daten, wie z.B. Spielergebnisse. Das könnten alles Werte für irgendwelche Variablen eines JavaScriptes sein, die für wer weiß was stehen.
Ich poste hier mal mein etwas angepasstes Makro. Es schreibt die einzelnen Zeilen Deines SplitArrays in die erste Spalte der aktiven Tabelle. Schaut man sich das Ergebnis an, sieht man sofort, dass die einzelnen Datensätze alle gleich aufgebaut sind. (Außer in der ersten und der letzten Zeile). Aber wie gesagt, ich kann damit nix anfangen. Vielleicht hast Du eine Idee:


Sub TischTennis()
Dim http As Object
Dim fs_rows() As String
Dim fs_OneRow As Long
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "https://d.flashscore.de/x/feed/f_25_0_2_de_1", False
http.setRequestHeader "X-Fsign", "SW9D1eZo"
http.Send
'    Close
'    Open ThisWorkbook.Path & "\result.txt " For Output As #1
'    Print #1, http.responsetext
'    Close
fs_rows = Split(http.responsetext, "~")
For fs_OneRow = 0 To UBound(fs_rows)
Cells(fs_OneRow + 1, 1) = fs_rows(fs_OneRow)
Next fs_OneRow
End Sub

Viele Grüße,
Zwenn

If fs_index_name = "SA" Then sport_id = fs_index_value ElseIf fs_index_name = "ZA" Then For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) If fs_row_parts(0) = "ZA" Then tour_name = fs_row_parts(1) If fs_row_parts(0) = "ZB" Then country_id = fs_row_parts(1) Next j ElseIf fs_index_name = "AA" Then first_home = "": first_away = "": second_home = "": second_away = "" For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) If fs_row_parts(0) = "AA" Then match_id = fs_row_parts(1) If fs_row_parts(0) = "AD" Then date_match = DateAdd("s", fs_row_parts(1), "01/01/1970") date_match = DateAdd("h", timezone, date_match) date_match = Format(date_match, "dd.mm.yyyy hh:mm") End If If fs_row_parts(0) = "AE" Then home_name = fs_row_parts(1) If fs_row_parts(0) = "AF" Then away_name = fs_row_parts(1) If fs_row_parts(0) = "BA" Then first_home = fs_row_parts(1) If fs_row_parts(0) = "BB" Then first_away = fs_row_parts(1) If fs_row_parts(0) = "BC" Then second_home = fs_row_parts(1) If fs_row_parts(0) = "BD" Then second_away = fs_row_parts(1) Next j

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread