Auslesen von Xml-Website mit Regex

CroNeX · 25. Januar 2019, 19:15

ja da habe ich mich wohl falsch ausgedrückt, ich meinte wie ich 2 strings gleichzeitig oder hintereinander abfragen kann

VB.NET-Quellcode

Dim result As String = webClient.DownloadString($"http://api.steampowered.com/ISteamUser/GetPlayerSummaries/v0002/?key={apiKey}&steamids={steamID}&format=json")

aber danke für die antwort

Nofear23m · 25. Januar 2019, 22:46

CroNeX schrieb:

ich meinte wie ich 2 strings gleichzeitig oder hintereinander abfragen kann

Sehe ich das richtig mit "2 Strings" das du meinst das du zwei oder mehr User gleichzeitig abrufen willst?

Genau das macht ja mein Beispiel. Siehe Screenshot. Oder komme ich jetzt nicht mit?

Versuche bitte dich korrekt auszudrücken. Meinst du vieleicht das du zwei Abfragen (vielleicht mit unterschiedlicher URL, also unterschiedlicher API Endpunkte)?
In dem Fall kannst du ja eine zweite Variable erstellen und wieder mit DownloadString arbeiten. Sollte ja klar sein anhand meines Beispiels. Insofern verstehe ich die Frage nicht wirklich.

Grüße
Sascha

CroNeX · 26. Januar 2019, 12:57

also ich möchte gerne 2 verschiedene urls auslesen mit einem button in die beiden results in die listbox laden.
so wie schreibe ich das hier auch damit ich meine werte playtime 2 weeks und playtime forever bekomme.

VB.NET-Quellcode

{"response":{"game_count":2,"games":[{"appid":252490,"playtime_2weeks":3740,"playtime_forever":3740},{"appid":700580,"playtime_forever":0}]}}

VB.NET-Quellcode

Dim allPlayersToken2 As List(Of JToken) = response2("response")("games").Children().ToList()

das geht nicht und als fehler habe ich das bekommen: System.NullReferenceException: "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt."

das habe ich auch schon:

VB.NET-Quellcode

Public Class Game
Public Property appid As Integer
Public Property playtime_2weeks As Integer
Public Property playtime_forever As Integer
End Class
Public Class Response
Public Property game_count As Integer
Public Property games As Game()
End Class
Public Class GamesInfo
Public Property response As Response
End Class

Nofear23m · 26. Januar 2019, 22:31

Hallo

Sorry, aber ich habe dir ein komplett funktionierendes Beispiel hochgeladen.
Ich kau dir sicher nicht alles vor, da würde der lerneffekt total auf der Strecke bleiben.

Schau dir wegen deiner Exception mal folgenden Thread GENAU an: Debuggen, Fehler finden und beseitigen

Versuche der Code von mir zu verstehen. Also nicht nur Copy&Paste sondern Analysiere Zeile für Zeile und schau dir genau an was die macht.
Dann solltest du eigendlich kein Problem mehr haben.

Grüße
Sascha

CroNeX · 27. Januar 2019, 13:45

Ja Freunde, ich versuche den Code zu verstehen.
Also mein fehler den ich gepostet habe, habe ich gefixt. nun geht alles soweit.

Nur hierbei brauche ich hilfe.

VB.NET-Quellcode

{"response":{"game_count":2,"games":[{"appid":252490,"playtime_2weeks":4543,"playtime_forever":4543},{"appid":700580,"playtime_forever":0}]}}

mit dem .Children() wähle ich ja somit die untergruppen-Tokens aus, stimmts ?
nun wird aber bei der abfrage 2 mal "appid" oder "playtime_forever" abgefragt. kann ich mit .Children() das so schreiben da er nur die ersten "appid" und "playtime_forever" nimmt ?

probiert habe ich schon .Children()("playtime_forever") aber da gibt er mir den error das er den string, also die zahl die er hat, nicht umwandeln kann da er ja denn direkt die "playtime" nimmt und nicht später, wie in deinem code.
Oder müsste ich den code denn komplett umschreiben um denn speziell nur "playtime_forever" raus zu bekommen.

Ich weiß es ist schwer mit mir aber ich versuche mein bestes und versuche auch es klar und deutlich zu schildern was für ein problem ich habe.
Danke

Nofear23m · 27. Januar 2019, 17:50

Hallo @CroNeX

Naja, aber wenn du eh schon die Klasse Response und die Klasse GamesInfo erstellt hast ist es ja sowieso ganz einfach.
Dann reicht ja ein Simples Dim gi As GamesInfo = JsonConvert.DeserializeObject(Of GamesInfo)(result)
Das wars dann auch.

Weist du, ich verstehe nicht warum man sich die Doku von Newtonsoft.Json nicht durchlesen kann. Wenn man ein Framework verwenden will, muss man sich damit beschäftigen, was du aber nicht machst. Und das kostet dir mehr Zeit als du glaubst.

Hoffe jetzt klappt ews bei dir.

Grüße
Sascha

CroNeX · 28. Januar 2019, 20:36

Nofear23m schrieb:

Dann reicht ja ein Simples Dim gi As GamesInfo = JsonConvert.DeserializeObject(Of GamesInfo)(result)
Das wars dann auch.

okay damit verwirsst du mich jetzt

Nofear23m · 28. Januar 2019, 21:36

Und in welcher Hinsicht??
Ein bischen konkreter musst du schon werden.
Hast du es schon probiert??

Hast du schin nen Haltepunkt gesetzt?
Wie man das macht habe ich dir ja verlinkt. Gelesen?

Grüße
Sascha

CroNeX · 29. Januar 2019, 07:15

Moin, ja Haltepunkte kann ich setzen und mir nachrichten per Debug ausgeben auch.
nur verstehe ich den Sinn hinter deinem code nicht. magst du ihn mir erklären

VB.NET-Quellcode

Dim gi As GamesInfo = JsonConvert.DeserializeObject(Of GamesInfo)(result)

ja ich habe klassen angelegt.

VB.NET-Quellcode

Public Class Game
Public Property appid As Integer
Public Property playtime_2weeks As Integer
Public Property playtime_forever As Integer
End Class
Public Class Response
Public Property game_count As Integer
Public Property games As Game()
End Class
Public Class GamesInfo
Public Property response As Response
End Class

aber wie bekomme ich nun dein code in einklang mit meinen klassen, also das ich die liste korrekt ausgeben lassen kann per listbox ?

Nofear23m · 29. Januar 2019, 10:29

Hallo

CroNeX schrieb:

nur verstehe ich den Sinn hinter deinem code nicht. magst du ihn mir erklären

Wie? Mittels Json.Net wird der JSon String Deserialisiert und du erhaltest genau das was du willst. ein Instanz von deiner Response Klasse.

CroNeX schrieb:

aber wie bekomme ich nun dein code in einklang mit meinen klassen, also das ich die liste korrekt ausgeben lassen kann per listbox ?

Das ist schon im "Einklang" mit deinen Klassen. Was du dann damit machst bleibt dir überlassen. Ob du eine ListBox füllst oder die PlayTime deiner Omi per SMS schickst ist ja nun völlig irrelevant.
Es geht hier ja um den Abruf. Ich hoffe doch das du weist wie man eine ListBox füllt, ansonsten ist dies ein Thema für einen neuen Thread.

Fakt ist: Mit dieser einen Zeile hast du alles was benötigt wird, vorausgesetzt der Response der API sieht so aus wie von dir oben gepostet.

Grüße
Sascha

CroNeX · 30. Januar 2019, 06:20

Ja Moin,Danke für die Hilfe die du mir immer gibst, aber da läuft was nicht. bin auf deine tipps eingegangen und manche sachen funktionieren und manche nicht, magst du dir das mal angucken und mir sagen wo da mein fehler liegt ?
Danke

CroNeX · 1. Februar 2019, 16:32

Kann mir nun jemand dabei helfen oder nicht.
Danke

Nofear23m · 1. Februar 2019, 22:00

Oh, hab den letzten Beitrag von dir Total übersehen.
Werde mir morgen mal die Solution laden und nachsehen was du da überhaupt hast.

Grüße
Sascha

Nofear23m · 2. Februar 2019, 11:23

@CroNeX

Ich weis ja nicht was genau du vorhast und was du alles mit der API machen willst. Sollte es mehr sein/werden als nun in deinem aktuellen Projekt ersichtlich solltest du zusehen das du das ganze etwas generischer gestaltest, auf lange sicht gesehen hast du so viel weniger Arbeit.

Ich habe mal einen Primitiven Ansatz erstellt indem ich eine Klasse SteamHelper erstellt habe. Dieser Helper kümmert sich um alles was den Abruf von Webservice betrifft.
Die Klasse setzt die URI zusammen und kümmert sich um die Deserialisierung des JSon-Response in die Klasse ApiResponse. Von dort aus geht es weiter.

VB.NET-Quellcode

Imports System.Net
Imports System.Text
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Public NotInheritable Class SteamHelper
Private ReadOnly _steamBaseApiUri As String = "http://api.steampowered.com"
Private ReadOnly _apiKey As String
Private ReadOnly _apiVersion As String
Private Const ApiResponseFormat As String = "json"
Public Sub New(apiKey As String)
Me.New(apiKey, "http://api.steampowered.com")
End Sub
Public Sub New(apiKey As String, rootUrl As String, Optional version As Integer = 1)
_apiKey = apiKey
_apiVersion = $"v{version.ToString("####")}"
_steamBaseApiUri = rootUrl
End Sub
Public Function GetApiResponse(steamInterface As SteamInterface, steamMethod As String, ParamArray parameter() As String) As ApiResponse
Using webClient As New WebClient
Dim result As String = webClient.DownloadString(GetRequestUri(steamInterface, steamMethod, parameter))
Dim response As ApiResponse = JsonConvert.DeserializeObject(Of ApiResponse)(result)
Return response
End Using
End Function
Private Function GetRequestUri(steamInterface As SteamInterface, steamMethod As String, ParamArray parameter() As String) As String
Dim tempUriString = String.Format(GetBaseUri(steamInterface), steamMethod)
For Each p In parameter
tempUriString += $"&{p}"
Next
Return tempUriString
End Function
Private Function GetBaseUri(steamInterface As SteamInterface) As String
'http://api.steampowered.com/ISteamUser/GetPlayerSummaries/v0002/?key={apiKey}&steamids={steamID}&format=json
Return $"{_steamBaseApiUri}/I{steamInterface.ToString}/{{0}}/{_apiVersion}/?key={_apiKey}&format={ApiResponseFormat}"
End Function
End Class
Public Enum SteamInterface
SteamNews = 0
SteamUserStats = 1
SteamUser = 2
PlayerService = 3
End Enum

Das ganze könnte man noch viel besser gestallten, es soll für dich aber im Moment nur als "anregung" dienen.
Es gibt ein Modul welches die Methoden der API als Constanten hält, damit man nicht immer gucken muss wie nun die Methode heisst sowie einen Enumerator für die Interfaces der SteamApi. Aus dem selben Grund.

Eines der Grundgesetze beim Programmieren: Wiederhole dich nicht. Also, schreibe Code nicht mehrmals. Du hast die ganze Response-Sache immer und immer wieder geschrieben. Warum? Pack das in eine Methode oder wie ich in eine Klasse und gut ists.

Generell musst du dir bei solchen Unternehmungen immer vorher gut überlegen was du genau alles machen willst und danach gestaltest du deine Klassen. Gewöhne dir überhaupt an immer mit Klassen zu Arbeiten.
Wenn du dir den Code ansiehst wirst du merken wie einfach ich nun beispielsweise die PlayerInfos auslese:

VB.NET-Quellcode

Dim steamApi As New SteamHelper(apiKey)
Dim gi As ApiResponse = steamApi.GetApiResponse(SteamInterface.SteamUser, SteamUserMethods.GetPlayerSummaries, "steamIds=" & steamID)
gi.response.players.player.ToList.ForEach(Sub(x) ListBox1.Items.Add($"Name: {x.personaname} - Aktuelles Game: {x.gameextrainfo}" ))

3 Zeilen. Man kanns sogar in eine oder zwei Zeilen packen aber egal, es ist auf jeden fall kürzer. UND... was ist wenn sich die Version der API ändert? Was ist wenn sich die URL ändert?
Tja, in deinem Fall darfst du dann an 100 stellen immer und immer wieder die Version anpassen. Und nix vergessen sonst suchst du dann!!
So hast du eine Klasse und die regelt dir alles. Änderungen machst du 1x in dieser Klasse. Fertig.

Gut, anbei das Projekt. Ich habe dir ein paar Abfragen reingepackt, die restlichen darfst du selbst erweitern.

Grüße
Sascha

CroNeX · 2. Februar 2019, 13:16

Ja Moin, da hast du mir aber einen grooooßen ansatz gegeben, da muss ich mich erstmal reinlesen und erkunden. das ist aber echt eine menge, dankeschön.
kannst du mir sagen wie ich an den einfachen result in der Form1 komme.
also wie schreibe ich das in dem falle wie z.b. hier

VB.NET-Quellcode

Dim steamApi As New SteamHelper(apiKey)

das wäre meine einzige frage bis jetzt.

gruß CroNeX

Nofear23m · 2. Februar 2019, 14:26

CroNeX schrieb:

kannst du mir sagen wie ich an den einfachen result in der Form1 komme.

Ich habe dir bereits oben den Link zum Thread Debuggen, Fehler finden und beseitigen verlinkt, wenn du das nicht lernst kann ich dir nicht Helfen.
Schau dir dir Klassenstruktur an, dann sollte der rest selbsterklärend sein. Echt jetzt, ich kann dir ja nicht die Grundlagen hier beibringen.

Besorg dir ein Buch oder lade dir eines der kostenlosen eBooks und lerne die Grundlagen. Dir das hier beizubringen würde den Rahmen des Forums echt sprengen.
Wenn ICH dir die Grundlagen der Objektorientierten Programmierung beibringen soll kannst du gerne was mit mir ausmachen und ich stelle dir eine Rechnung aus. 8-)

Im ernst, etwas eigeninitiative musst du schon zeigen. In dem Beispiel habe ich die Struktur EXTRA einfach gehalten, das schaffst du.

Grüße
Sascha

CroNeX · 4. Februar 2019, 18:25

okay danke, ja werde ich

CroNeX · 17. März 2019, 19:02

Moin Leute da bin ich wieder.
Lange ist es her, aber ich arbeite wieder an meinem tool

Kurze frage an euch:
Wie kann ich eine NullReferenceException verhindern oder abfangen bei meiner funktion. ( siehe bild)

">

Also gehen wir davon aus das der Anwender eine nicht vorhandene SteamID eingibt, kommt ein error.
momentan crasht die anwendung und ich weiß nicht wie ich diese NullReference abfangen soll, da in der bestimmung von result ja abgefragt wird

Wenn nötig reupload ich meine neuere version vom tool

Danke.

VaporiZed · 17. März 2019, 19:07

Fang bitte erstmal damit an, die Infos richtig wiederzugeben. Du hast keine NullReferenceException, sondern eine WebException. Du könntest die Zeile natürlich mit einem Try-Catch ummanteln und daraufhin entsprechend reagieren (z.B. Programmabbruch o.ä.). Aber besser wäre, wenn Du die Ex im Voraus verhinderst. Weißt Du denn, wodurch der Fehler überhaupt kommt?

xChRoNiKx · 17. März 2019, 19:09

@VaporiZed das ist ein 500er Fehler den kann man ja nur bekommen nachdem der Request gesendet worden ist also würde ich hier
mal doch ein Try-Catch setzten und die WebException behandeln.

Auslesen von Xml-Website mit Regex

VB.NET-Quellcode

CroNeX schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Nofear23m schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

CroNeX schrieb:

CroNeX schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

CroNeX schrieb:

Benutzer online 3

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben