Auslesen von Xml-Website mit Regex

CroNeX · 20. Januar 2019, 16:47

Moin Leute, ich habe da folgendes problem.
Ich möchte gerne aus einer xml website "parameter" auslesen also namen oder zahlen.
die website ist so aufgebaut:

XML-Quellcode

<steamid>4565667963536</steamid>
<communityvisibilitystate>3</communityvisibilitystate>
<profilestate>1</profilestate>
<personaname>peterpan</personaname>
<lastlogoff>1547951954</lastlogoff>

genau so ist die aufgebaut mit den selben umbrüchen etc.

das habe ich schon und funktioniert:

VB.NET-Quellcode

Imports System.Text.RegularExpressions
Dim wc1 As New Net.WebClient
wc1.DownloadStringAsync(New Uri("URL"))
AddHandler wc1.DownloadStringCompleted, AddressOf wc1_DownloadStringCompletedPrivate Sub wc1_DownloadStringCompleted(ByVal sender As Object, ByVal e As System.Net.DownloadStringCompletedEventArgs)
Dim text As String = e.Result
End Sub

so nun möchte ich die parameter auslesen, wozu ich schon vieles ausprobiert habe. wie z.b.

VB.NET-Quellcode

Dim stringSource As New Regex("<steamid>(\d+)</steamid>", RegexOptions.IgnoreCase Or RegexOptions.Singleline)
Dim stringMatches As MatchCollection = stringSource.Matches(text)
For Each match As Match In stringMatches
Label1.Text = match.Groups(1).Value

aber ich kann immer nur 1 string auslesen also 1 parameter , wie schreibe ich das, dass ich beispielweise steamid UND playername auslesen kann und in eine listbox oder label packen kann.
das sind meine probleme

Danke für eure hilfe

*Codetags eingefügt* ~NoFear23m

ErfinderDesRades · 20. Januar 2019, 17:27

VB.NET-Quellcode

Dim stringSource As New Regex("<(\w+>).*?\1", RegexOptions.IgnoreCase)
[...]
Label1.Text &= match.Groups(1).Value & " "

Ähm - warum heisst die Variable stringSource?? Es ist doch weder ein String noch eine Source, sondern ist ein Regex!?!?!

Ansonsten empfehle ich dringend, deinen Code in lesbarer Form zu präsentieren

Forum-Funktionalität – Klick mich!

Nofear23m · 20. Januar 2019, 17:40

Hallo @CroNeX

Vieleicht solltest du etwas mehr über die "Website" plaudern, allen anschein nach ist dies nämlich keine Website sondern das Ergebniss einer API/Webservice.
Und wenn dem so ist könntest dieses Webservice in VS einbinden und dir werden alle PRoxyklassen automatisch erzeugt, so brauchst du gar nicht mit XML, RegEx oder sonstwas herumhantieren.

Aber wie gesagt, da müssten wir mal wissen um was es genau geht.

Grüße
Sascha

CroNeX · 20. Januar 2019, 18:06

ja danke für die antworten.
ja genau durch die steam web api, erfrage ich durch die userID welche stats derjenige hat und das wird mir in einer json oder xml ausgegeben.
das möchte ich denn gerne angezeigt bekommen in einer listbox oder listview etc

Nofear23m · 20. Januar 2019, 19:21

Hallo @CroNeX

Du musst mich nicht unbedingt per PN anschreiben das du eine Antwort verfasst hast, ich bekomme ohnehin eine Benachrichtung.

Na wenn du eh eine JSON auch zurück bekommen kannst würde ich wie folgt vorgehen.
Den Response kopieren und mit jsonutils.com/ eine Klasse generieren lassen.

Zb. würde der Converter für die Adresse folgende KLasse ausspucken:

VB.NET-Quellcode

Public Class Todo
Public Property userId As Integer
Public Property id As Integer
Public Property title As String
Public Property completed As Boolean
End Class

Jetzt musst du nur noch mit Json.Net das ganze serialisieren.
Hierfür gibt es ein NuGet-Paket: nuget.org/packages/Newtonsoft.Json/

Das Bindest du ein und dann kannst du ganz einfach damit Serialisieren:

VB.NET-Quellcode

Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString("https://jsonplaceholder.typicode.com/todos")
Dim TodoList As List(Of Todo) = JsonConvert.DeserializeObject(Of List(Of Todo))(result)
TodoList.ForEach(Sub(x) Console.WriteLine($"Todo ID: {x.id} - Title: {x.title}"))

Folgender Screenshot zeigt das Ergebniss in der Console. Einfacher kann man finde ich eine WebAPI gar nicht mehr nutzen.

Grüße
Sascha

CroNeX · 21. Januar 2019, 19:34

Ja danke für die hilfe schon mal

Wie soll ich das sagen, kannst du mir dabei helfen das kleine programm zu schreiben ?
z.b. wie mach ich das am besten : "Den Response kopieren und mit jsonutils.com/ eine Klasse generieren lassen." ?
das habe ich schon: "Hierfür gibt es ein NuGet-Paket: nuget.org/packages/Newtonsoft.Json/"wäre echt klasse von dir, danke

Nofear23m · 21. Januar 2019, 20:15

Super, also das NuGet-Paket hast du schonmal eingebunden. Gut.

Jetzt zeige mal einen JSON Response und wir werden sehen wie wir dir diesen so schön wie möglich in eine Klasse packen.
Aller Anfang ist schwer, aber das schaffst du schon - solange der Wille zu lernen da ist.

Grüße
Sascha

CroNeX · 21. Januar 2019, 21:30

okay also der json string sieht so aus: api.steampowered.com/ISteamUse…1198403130256&format=json

Nofear23m · 21. Januar 2019, 21:50

Nene, du sollst den Response posten. Also das was du zurück bekommst wenn du ein Get diese URI sendest.

Beispiel für folgendes Webservice: jsonplaceholder.typicode.com/todos

Im Fiddler einen Request im Composer absetzen indem du die URI welche du an Steam sendest in das Feld kopierst.
Dann auf EXECUTE klicken.

Anschliessend wechselst du in den Reiter Inspector und dort wählst du für die Anzeige RAW.

Den String kannst du Posten.

Grüße
Sascha

CroNeX · 21. Januar 2019, 22:01

okay nun sollte ich es haben.

{"response":{"players":[{"steamid":"76561198403130256","communityvisibilitystate":3,"profilestate":1,"personaname":"peters12jolina","lastlogoff":1548048046,"profileurl":"https://steamcommunity.com/profiles/76561198403130256/","avatar":"https://steamcdn-a.akamaihd.net/steamcommunity/public/images/avatars/fe/fef49e7fa7e1997310d705b2a6158ff8dc1cdfeb.jpg","avatarmedium":"https://steamcdn-a.akamaihd.net/steamcommunity/public/images/avatars/fe/fef49e7fa7e1997310d705b2a6158ff8dc1cdfeb_medium.jpg","avatarfull":"https://steamcdn-a.akamaihd.net/steamcommunity/public/images/avatars/fe/fef49e7fa7e1997310d705b2a6158ff8dc1cdfeb_full.jpg","personastate":1,"primaryclanid":"103582791429521408","timecreated":1499157807,"personastateflags":0,"gameextrainfo":"Rust","gameid":"252490"}]}}

Nofear23m · 21. Januar 2019, 22:08

Naja, fast.

Das sollte nun deine Playerklasse sein welche du mit Newtonsoft.Json Serialisieren kannst:

VB.NET-Quellcode

Public Class Player
<JsonProperty("steamid")>
Public Property Steamid As String
<JsonProperty("communityvisibilitystate")>
Public Property Communityvisibilitystate As Integer
<JsonProperty("profilestate")>
Public Property Profilestate As Integer
<JsonProperty("personaname")>
Public Property Personaname As String
<JsonProperty("lastlogoff")>
Public Property Lastlogoff As Integer
<JsonProperty("profileurl")>
Public Property Profileurl As String
<JsonProperty("avatar")>
Public Property Avatar As String
<JsonProperty("avatarmedium")>
Public Property Avatarmedium As String
<JsonProperty("avatarfull")>
Public Property Avatarfull As String
<JsonProperty("personastate")>
Public Property Personastate As Integer
<JsonProperty("primaryclanid")>
Public Property Primaryclanid As String
<JsonProperty("timecreated")>
Public Property Timecreated As Integer
<JsonProperty("personastateflags")>
Public Property Personastateflags As Integer
<JsonProperty("gameextrainfo")>
Public Property Gameextrainfo As String
<JsonProperty("gameid")>
Public Property Gameid As String
End Class

Der Abruf läuft wie oben in Post 5 bereits von mit gepostet ab. Sollte was nicht klappen Poste die genaue Fehlermeldung setze einen Haltepunkt und Poste auch den String welcher sich in der Variable result befindet indem du auf die kleine Lupe klickst.

Viel Glück

Grüße
Sascha

CroNeX · 21. Januar 2019, 22:11

okay danke werde ich machen. melde mich wenn es klappt oder auch nicht, vllt aber auch erst morgen.

grüße cronex

CroNeX · 22. Januar 2019, 07:06

sooo da bin ich wieder. habe folgendes problem, wenn ich versuche das ganze zu Serialisieren kommt die Fehlermeldung das x.steamid oder x.personaname nicht exestiert, da ich das ganze in eine andere klasse packen muss. wie verweise ich auf die classe "player", damit es funktioniert ?

Das Bindest du ein und dann kannst du ganz einfach damit Serialisieren:

VB.NET-Quellcode

Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString("https://jsonplaceholder.typicode.com/todos")
Dim TodoList As List(Of Todo) = JsonConvert.DeserializeObject(Of List(Of Todo))(result)
TodoList.ForEach(Sub(x) Console.WriteLine($"Todo ID:[u][b] {x.id}[/b][/u] - Title: [u][b]{x.title}[/b][/u]"))

Nofear23m · 22. Januar 2019, 07:57

Hallo und guten Morgen

Moment mal....
Warum Postest du nun wieder meinen Quellcode? Hast du den etwas genau so übernommen? Wie soll das funktionieren?
Mein Autoschlüssel wird bei deinem Auto auch nicht passen oder? :whistling:

Du musst den Quellcode schon anpassen.

Du hast die Klasse Player erstellt richtig?
OK, dann passt du meinen Quellcode an:

VB.NET-Quellcode

Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString("https:\\dieUrlzudeinemWebservice")
Dim AllPlayers As List(Of Player) = JsonConvert.DeserializeObject(Of List(Of Player))(result)
TodoList.ForEach(Sub(x) Console.WriteLine($"Todo ID: {x.Streamid} - Title: {x.Personaname}"))

So sollte es mal kompilieren.
Sollte nun ein Fehler kommen, Poste bitte die genaue(!!) Fehlermeldung und wie oben schon genannt den Text in der Variable result !!

Grüße
Sascha

CroNeX · 22. Januar 2019, 18:44

moin, ja klar hatte ich dein code überarbeitet und ihn nicht 1 zu 1 übernommen

soo die erste fehlermeldung:

VB.NET-Quellcode

Newtonsoft.Json.JsonSerializationException ist aufgetreten.
HResult=0x80131500
Nachricht = Cannot deserialize the current JSON object (e.g. {"name":"value"}) into type 'System.Collections.Generic.List`1[Steam_Hour_Boostr_Info.Player]' because the type requires a JSON array (e.g. [1,2,3]) to deserialize correctly.
To fix this error either change the JSON to a JSON array (e.g. [1,2,3]) or change the deserialized type so that it is a normal .NET type (e.g. not a primitive type like integer, not a collection type like an array or List<T>) that can be deserialized from a JSON object. JsonObjectAttribute can also be added to the type to force it to deserialize from a JSON object.
Path 'response', line 1, position 12.
Quelle = <Die Ausnahmequelle kann nicht ausgewertet werden.>
Stapelüberwachung:
at Newtonsoft.Json.Serialization.JsonSerializerInternalReader.CreateObject(JsonReader reader, Type objectType, JsonContract contract, JsonProperty member, JsonContainerContract containerContract, JsonProperty containerMember, Object existingValue)
at Newtonsoft.Json.Serialization.JsonSerializerInternalReader.Deserialize(JsonReader reader, Type objectType, Boolean checkAdditionalContent)
at Newtonsoft.Json.JsonSerializer.DeserializeInternal(JsonReader reader, Type objectType)
at Newtonsoft.Json.JsonConvert.DeserializeObject(String value, Type type, JsonSerializerSettings settings)
at Newtonsoft.Json.JsonConvert.DeserializeObject[T](String value, JsonSerializerSettings settings)
at Steam_Hour_Boostr_Info.Form1.Button1_Click(Object sender, EventArgs e) in C:\Users\Max\documents\visual studio 2017\Projects\Steam Hour Boostr Info\Steam Hour Boostr Info\Form1.vb:line 30
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at Steam_Hour_Boostr_Info.My.MyApplication.Main(String[] Args) in :line 81

Nofear23m · 22. Januar 2019, 20:02

Und?
Wo ist der Inhalt der Variable Result und dein aktueller Code??

Lass dir bitte nicht alles aus der Nase ziehen.
Da ich keinen Steam Account habe und mir auch sicher keinen deshalb zulege kann ich nur mit den Daten Arbeiten die DU mir gibst.

Du gibst mir nur nichts.

CroNeX · 22. Januar 2019, 20:07

okay okay, also mein result ist immer noch der selbe.
hier mein cod:

VB.NET-Quellcode

Imports Newtonsoft.Json
Imports System.Net
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString("http://api.steampowered.com/ISteamUser/GetPlayerSummaries/v0002/?key=XXXXXXX&steamids=XXXXX&format=json")
Dim AllPlayers As List(Of Player) = JsonConvert.DeserializeObject(Of List(Of Player))(result)
AllPlayers.ForEach(Sub(x) Console.WriteLine($"Todo ID: {x.personaname} - Title: {x.steamid}"))
Public Class Player
Public Property steamid As String
Public Property communityvisibilitystate As Integer
Public Property profilestate As Integer
Public Property personaname As String
Public Property lastlogoff As Integer
Public Property profileurl As String
Public Property avatar As String
Public Property avatarmedium As String
Public Property avatarfull As String
Public Property personastate As Integer
Public Property primaryclanid As String
Public Property timecreated As Integer
Public Property personastateflags As Integer
Public Property gameextrainfo As String
Public Property gameid As String
End Class
Public Class Response
Public Property players As Player()
End Class
Public Class info
Public Property response As Response
End Class

*API Keys unkenntlich gemacht* ~NoFear23m

Nofear23m · 22. Januar 2019, 21:05

OK, fange ich mal an. Ich habs ja jetzt Testen können, du hast ja deine SteamId mit Online gestellt. Ich war so frei und habe diese entfernt.

1.) Du hast die Player Klasse nicht so übernommen wie ich sie in Post #11 gepostet hatte. Warum? Willst du nicht das es funktioniert?
2.) Wollte ich das du den Response postest, egal jetzt habe ich dank deines API Keys ja selbst testen können.

Also, beim deserialisieren mit Newtonsoft waren noch zwei ebenen mehr enthalten. Wie man an dem Response in Post #10 von dir eh auch sehen hat können, hier hätte dir dann 10 Sekunden Google folgende Seite offenbart:
newtonsoft.com/json/help/html/SerializingJSONFragments.htm
Auf dieser Seite sieht man gut wie man das anstellen muss um auf die unteren Knoten zu kommen um diese anschliessend in Objekte Casten zu können.

C#-Quellcode

JObject googleSearch = JObject.Parse(googleSearchText);
// get JSON result objects into a list
IList<JToken> results = googleSearch["responseData"]["results"].Children().ToList();
// serialize JSON results into .NET objects
IList<SearchResult> searchResults = new List<SearchResult>();
foreach (JToken result in results)
{
// JToken.ToObject is a helper method that uses JsonSerializer internally
SearchResult searchResult = result.ToObject<SearchResult>();
searchResults.Add(searchResult);
}

Wenden wir diesen C# Code auf unsere Struktur an und wandeln ihn in VB um erhalten wie ca. sowas:

VB.NET-Quellcode

Dim allPlayersToken As List(Of JToken) = response("response")("players").Children().ToList()
Dim allPlayers As New List(Of Player)
allPlayersToken.ForEach(Sub(x) allPlayers.Add(x.ToObject(Of Player)))

Tja, und nun müssen wir diese nur noch in der Console ausgeben mit: allPlayers.ForEach(Sub(x) Console.WriteLine($"Personenname: {x.Personaname} - SteamId: {x.Steamid}"))

Und alles ist gut. Man darf Code eben nicht einfach nur kopieren sondern muss versuchen ihn zu verstehen. Und gerade wenn man 3rd Party Bibliotheken wie NewtonsoftJSon verwendet sollte man auch man in deren Doku reinsehen. Ja, das ist Programmieren, der Anfang ist schwer, aber auch die Besten müssen sich schlau machen wie man welche Frameworks anwendet und wie man zum gewünschten Ergebniss kommt.
Hier ist eben eigeninitiative gefragt.

Anbei für ganz faule nun auch die Solution. (API Key habe ich rausgenommen, man wird gefragt und kann ihn dann in die Konsole kopieren.)
Es gehen übrigens auch mehrere abzufragen indem man die SteamIds mit ; trennt. Siehe Screenshot

Grüße
Sascha

CroNeX · 24. Januar 2019, 20:55

Ja danke danke danke für deine tolle Hilfe

es läuft nun endlich. habs statt in einem modul, in eine form1 gepackt und möchte damit noch ein bisschen rumprobieren

nun habe ich wieder 2 fragen an dich oder auch 3

kann ich das result also

VB.NET-Quellcode

allPlayers.ForEach(Sub(x) ListBox1.Items.Add($"Personenname: {x.personaname} - Test: {x.gameextrainfo}"))

auch mit zeilenumbruch anzeigen lassen ... d.h. untereinander oder muss ich es seperat coden ?

VB.NET-Quellcode

allPlayers.ForEach(Sub(x) ListBox1.Items.Add($"Name: {x.personaname}"))
allPlayers.ForEach(Sub(x) ListBox1.Items.Add($"Test: {x.gameextrainfo}"))

so nun 2 frage, kann ich den Text den ich vorher angebe wie "Personenname", mit einer bestimmten farbe versehen ? habe da nichts gefunden bis jetzt.

frage 3, die ist komplizierter. kann ich auch 2 hintereinander folgenede strings also "Urls" auslesen oder muss ich warten bis Json den 1 String fertig hat und denn den 2 String verarbeiten kann ?

also bei allen fragen habe ich schon gegoogelt und/oder nichts richtiges gefunden was mir weiterhelfen könnte.

VaporiZed · 25. Januar 2019, 08:10

CroNeX schrieb:

auch mit zeilenumbruch anzeigen lassen ... d.h. untereinander oder muss ich es seperat coden ?

Die ListBox unterstützt keine mehrzeiligen Einträge. Deinen Alternativ-Vorschlag hast Du wohl nicht ausprobiert, sonst wüsstest Du schon dass dabei rauskommen würde:

Quellcode

Person1
Person2
Person3
...
gameextrainfo1
gameextrainfo2
gameextrainfo3

CroNeX schrieb:

kann ich den Text [...] mit einer bestimmten farbe versehen

Nein, zumindest nicht in einer ListBox. Diese ermöglicht von Haus aus keine unterschiedlichen Zeilenfarben. Nimm stattdessen ein DGV, welches man so gestalten kann, dass es wie eine ListBox aussieht.

Auslesen von Xml-Website mit Regex

Auslesen von Xml-Website mit Regex

XML-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

CroNeX schrieb:

Quellcode

CroNeX schrieb:

Benutzer online 9

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben