Elegantere Lösung zum Einlesen XML Dateien

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von ryg.

    Elegantere Lösung zum Einlesen XML Dateien

    Hallo Paradise,

    ihr werdet es alle irgendwie kennen, das man die ganze Zeit ohne Probleme herum Coded, dann aber irgendwann an ein eigentlich total Simples Problem kommt, und euer Hirn einfach dicht macht.
    So auch grad bei mir... Normalerweise fällt mir die lösung beim Aufstehen oder auf'm Pott ein. Diesmla leider nicht... Und ich bin schon einige Tage dran... xD

    Folgendermaßen sieht es aus:
    Ich bekomme von einer Firefox Extension per XML Daten an einen Port gesendet. Dies funktioniert auch alles Tadellos. Ich kann die Daten lesen, und die Informationen dazu auch in Strukturen speichern. Alles nicht das Ding. Zur veranschaulichung einmal einer dieser XML Datensätze:

    XML-Quellcode

    1. <?xml version="1.0" encoding="UTF-8"?>
    2. <planetinfos xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="planetinfo.xsd">
    3. <header version="2.6" universe="Jupiter" debug="true" language="german" content_type="planetinfo"/>
    4. <planetinfo playername="xxx" playerid="111111" planetname="Atom" moon="false" galaxy="1" system="2" planet="3">
    5. <entry name="Metal" amount="46026"/>
    6. <entry name="Crystal" amount="46006"/>
    7. <entry name="Deuterium" amount="24340"/>
    8. <entry name="Energy" amount="2495"/>
    9. <entry name="Metal Mine" amount="16"/>
    10. <entry name="Crystal Mine" amount="15"/>
    11. <entry name="Deuterium Synthesizer" amount="10"/>
    12. <entry name="Solar Plant" amount="18"/>
    13. <entry name="Fusion Reactor" amount="7"/>
    14. <entry name="Solar Satellite" amount="0"/>
    15. <entry name="Metal Storage" amount="4"/>
    16. <entry name="Crystal Storage" amount="3"/>
    17. <entry name="Deuterium Tank" amount="2"/>
    18. </planetinfo>
    19. </planetinfos>



    An sich ist das Auslesen an dieser Stelle kein Problem. Habe ich ja soweit auch schon vorliegen. Das Problem ist hier, das ich per Endlosschliefe alle entry Nodes durchgehen muss, da abgesehen von dem "Solar Sattelite" Eintrag keine Einträge erstellt werden die eine "amount" von 0 haben.

    Im moment mache ich das ganze auf folgendem Weg:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Xml
    2. Imports System.Xml.Serialization
    3. Imports System.IO
    4. Imports ogTypes
    6. Public Class clsParseXML
    7. Private ParseType As New ogTypeParsePlanetinfo
    8. Private GTStrings() As String
    10. Private sPageType As String
    12. 'Seitentypen der PlanetInfo XML Seite der GT-Extension
    13. 'ress, faci, rese, fleet, def
    14. Private sPlanetInfoPage As String
    16. ' Öffentliche Klassenvariablen, Ändern des Pfades nach der Instanziierung möglich
    17. Public XMLData As String
    19. Sub New(ByVal Data As String)
    20. XMLData = Data
    22. ' hier nehme ich in der ersten Zeile 2 aufeinanderfolgende Leerzeichen weg
    23. ' das wird hier nur einmal ausgeführt.
    24. 'XMLData = Replace(XMLData, " ", "", 1, 1)
    26. 'Ich habe das hier ein wenig Umgeschrieben, da es (so wie ich das in einem Testfall mitbekommen habe)
    27. 'auch mal sein kann, das nicht nur 2 Stellen sondern auch mal nur eine oder 3 auftreten können.^^
    28. 'Und diese Lösung ist für all diese Fälle geeignet =D
    29. XMLData = "<" & SplitString(XMLData, "<", 2)
    31. End Sub
    33. ''' <summary>
    34. ''' Kategorisiert die einzelnen Planetinfo Daten und fügt diese in ein Parse-Struct
    35. ''' </summary>
    36. ''' <remarks>09.04.2011 - ryg</remarks>
    37. Sub ParseXML_PlanetInfo()
    38. Dim xmlDoc As New XmlDocument
    39. Dim ParseNodes As XmlNodeList
    40. Dim ParseNode As XmlNode
    41. Dim rawData As String
    43. rawData = XMLData
    45. xmlDoc.LoadXml(rawData)
    47. ParseNodes = xmlDoc.GetElementsByTagName("header")
    49. For Each ParseNode In ParseNodes
    50. ParseType.Uni = ParseNode.Attributes("universe").Value
    51. Next
    53. If Not ParseType.Uni = ogProfile.Uni.UniName Then
    54. ' An dieser Stelle sollte zusätzlich geprüft werden, ob ein Profil für die Daten vorhanden ist.
    55. '
    56. '
    57. '
    58. MsgBox(getLngTxt("XMLParse", "WrongUni"), MsgBoxStyle.Critical)
    59. Exit Sub
    60. End If
    62. ParseNodes = Nothing
    64. ParseNodes = xmlDoc.GetElementsByTagName("planetinfo")
    66. For Each ParseNode In ParseNodes
    68. 'Spielername auslesen
    69. ParseType.OwnerName = ParseNode.Attributes("playername").Value
    70. 'Planetenname auslesen
    71. ParseType.Planet.Planet.Name = ParseNode.Attributes("planetname").Value
    72. 'Koordinaten des Planeten auslesen
    73. ParseType.Planet.Koords.Galaxie = ParseNode.Attributes("galaxy").Value
    74. ParseType.Planet.Koords.System = ParseNode.Attributes("system").Value
    75. ParseType.Planet.Koords.Number = ParseNode.Attributes("planet").Value
    76. 'Hier wird geprüft ob es sich hierbei um einen Planeten oder Mond handelt
    77. If CBool(ParseNode.Attributes("moon").Value) = False Then
    78. ParseType.Planet.Planet.Name = ParseNode.Attributes("planetname").Value
    79. Else
    80. ParseType.Planet.Moon.Name = ParseNode.Attributes("planetname").Value
    81. End If
    82. Next
    84. ParseNodes = Nothing
    85. ParseNodes = xmlDoc.GetElementsByTagName("officer")
    86. sPlanetInfoPage = ""
    88. For Each ParseNode In ParseNodes
    89. Try
    90. If Not ParseNode.Attributes("name").Value = vbNullString Then
    91. ParseXML_Overview()
    92. Exit Sub
    93. End If
    94. Catch ex As Exception
    96. End Try
    97. Next
    99. ParseNodes = Nothing
    100. ParseNodes = xmlDoc.GetElementsByTagName("entry")
    101. sPlanetInfoPage = ""
    103. For Each ParseNode In ParseNodes
    104. '#####################################################
    105. 'Ermitteln der Ressourcen
    106. 'Energie wäre zwar auch möglich macht aber keinen Sinn, da wir das lieber mit hilfe der
    107. 'Gebäude und Forschungen errechnen =D
    108. If ParseNode.Attributes("name").Value = "Metal" Then
    109. ParseType.Planet.Planet.Supplies.Metal = ParseNode.Attributes("amount").Value
    110. End If
    111. If ParseNode.Attributes("name").Value = "Crystal" Then
    112. ParseType.Planet.Planet.Supplies.Crystal = ParseNode.Attributes("amount").Value
    113. End If
    114. If ParseNode.Attributes("name").Value = "Deuterium" Then
    115. ParseType.Planet.Planet.Supplies.Deuterium = ParseNode.Attributes("amount").Value
    116. End If
    118. '#####################################################
    119. 'Ermitteln der Gebäude (Ressourcen)
    120. If ParseNode.Attributes("name").Value = "Metal Mine" Then
    121. ParseType.Planet.Planet.Resources.MetalMine = ParseNode.Attributes("amount").Value
    122. sPlanetInfoPage = "ress"
    123. End If
    124. If ParseNode.Attributes("name").Value = "Crystal Mine" Then
    125. ParseType.Planet.Planet.Resources.CrystalMine = ParseNode.Attributes("amount").Value
    126. sPlanetInfoPage = "ress"
    127. End If
    128. If ParseNode.Attributes("name").Value = "Deuterium Synthesizer" Then
    129. ParseType.Planet.Planet.Resources.DeuteriumSynthesizer = ParseNode.Attributes("amount").Value
    130. sPlanetInfoPage = "ress"
    131. End If
    132. If ParseNode.Attributes("name").Value = "Solar Plant" Then
    133. ParseType.Planet.Planet.Resources.SolarPlant = ParseNode.Attributes("amount").Value
    134. sPlanetInfoPage = "ress"
    135. End If
    136. If ParseNode.Attributes("name").Value = "Fusion Reactor" Then
    137. ParseType.Planet.Planet.Resources.FusionReactor = ParseNode.Attributes("amount").Value
    138. sPlanetInfoPage = "ress"
    139. End If
    140. If ParseNode.Attributes("name").Value = "Solar Satellite" Then
    141. ParseType.Planet.Planet.Resources.SolarSatellite = ParseNode.Attributes("amount").Value
    142. ' An dieser Stelle wird der Seitenname NICHT übergeben! Könnte ja auch die Flottenseite sein.
    143. End If
    144. If ParseNode.Attributes("name").Value = "Metal Storage" Then
    145. ParseType.Planet.Planet.Resources.MetalStorage = ParseNode.Attributes("amount").Value
    146. sPlanetInfoPage = "ress"
    147. End If
    148. If ParseNode.Attributes("name").Value = "Crystal Storage" Then
    149. ParseType.Planet.Planet.Resources.CrystalStorage = ParseNode.Attributes("amount").Value
    150. sPlanetInfoPage = "ress"
    151. End If
    152. If ParseNode.Attributes("name").Value = "Deuterium Tank" Then
    153. ParseType.Planet.Planet.Resources.DeuteriumTank = ParseNode.Attributes("amount").Value
    154. sPlanetInfoPage = "ress"
    155. End If
    157. '#####################################################
    158. 'Ermitteln der Gebäude (Facilities)
    159. If ParseNode.Attributes("name").Value = "Robotics Factory" Then
    160. ParseType.Planet.Planet.Facilities.RoboticFactory = ParseNode.Attributes("amount").Value
    161. sPlanetInfoPage = "faci"
    162. End If
    163. If ParseNode.Attributes("name").Value = "Nanite Factory" Then
    164. ParseType.Planet.Planet.Facilities.RoboticFactory = ParseNode.Attributes("amount").Value
    165. sPlanetInfoPage = "faci"
    166. End If
    167. If ParseNode.Attributes("name").Value = "Shipyard" Then
    168. ParseType.Planet.Planet.Facilities.RoboticFactory = ParseNode.Attributes("amount").Value
    169. sPlanetInfoPage = "faci"
    170. End If
    171. If ParseNode.Attributes("name").Value = "Research Lab" Then
    172. ParseType.Planet.Planet.Facilities.RoboticFactory = ParseNode.Attributes("amount").Value
    173. sPlanetInfoPage = "faci"
    174. End If
    175. If ParseNode.Attributes("name").Value = "Terraformer" Then
    176. ParseType.Planet.Planet.Facilities.RoboticFactory = ParseNode.Attributes("amount").Value
    177. sPlanetInfoPage = "faci"
    178. End If
    179. If ParseNode.Attributes("name").Value = "Alliance Depot" Then
    180. ParseType.Planet.Planet.Facilities.RoboticFactory = ParseNode.Attributes("amount").Value
    181. sPlanetInfoPage = "faci"
    182. End If
    183. If ParseNode.Attributes("name").Value = "Missile Silo" Then
    184. ParseType.Planet.Planet.Facilities.RoboticFactory = ParseNode.Attributes("amount").Value
    185. sPlanetInfoPage = "faci"
    186. End If
    187. Next
    189. End Sub
    191. Sub ParseXML_Allypage()
    193. End Sub
    195. ''' <summary>
    196. ''' Erkennt die Hauptkategorie der XML Daten und startet die jehweiligen Parser
    197. ''' </summary>
    198. ''' <remarks>09.04.2011 - ryg</remarks>
    199. Public Sub ParseXML_Read()
    200. Dim xmlDoc As New XmlDocument
    201. Dim ParseNodes As XmlNodeList
    202. Dim ParseNode As XmlNode
    203. Dim rawData As String
    207. '#######################################
    208. '#######################################
    209. '## TEST
    210. ogProfile.Uni.UniName = "Jupiter"
    211. '#######################################
    212. '#######################################
    216. rawData = XMLData
    218. xmlDoc.LoadXml(rawData)
    220. ParseNodes = xmlDoc.GetElementsByTagName("header")
    222. For Each ParseNode In ParseNodes
    224. sPageType = ParseNode.Attributes("content_type").Value
    226. Select Case sPageType
    227. Case "planetinfo"
    228. ParseXML_PlanetInfo()
    229. Case "allypage"
    230. ParseXML_Allypage()
    231. Case "reports"
    232. ParseXML_Reports()
    233. Case "player_stats"
    234. ParseXML_PlayerStats()
    235. Case "ally_stats"
    236. ParseXML_AllyStats()
    237. End Select
    238. Next
    240. 'Bis hier wurden die Daten ausgelesen.
    241. 'Nun kommt das Aktualisieren der Structures.
    242. '(An dieser Stelle wird das Updaten für Deaktivierte Profile noch NICHT berücksichtigt.
    243. ParseXML_UpdateStruct()
    244. End Sub
    246. End Class
    Wie das abläuft sollte soweit ja klar sein. (Die ParseXML_PlanetInfo ist übrigens gekürzt. Sonst hätte es nicht in den Post gepasst.)
    Allerdings bin ich davon überzeugt, das dies auch ein wenig einfacher geht. Ich habe hier in diesem Beispiel grad mal 50% von dem hinzugefügt, das eigentlich noch kommen muss...
    Nur wird das ganze immer komplizierter.

    Hat jemand eine Idee, das ein wenig zu einfachen?
    Grüße,

    ryg

    Sorry, das ich Pushe.
    Allerdings sitze ich nun schon so lange daran, das ich irgendwie Hilfe erhoffe^^

    Und da ich, wenn ich nun weiter mache, keine Lust habe hinterher dann doch wieder alles ändern zu müssen... naja... warte ich lieber auf Ideen.

    Grüße,

    ryg

    Klar =)

    Beispiel:

    Ich weiß, das es folgende Daten gibt:

    Fusion Reactor
    Solar Satellite
    Metal Storage
    uvm.

    Ich weiß aber nicht wann sie kommen. Um das heraus zu bekommen habe ich diese Schleifen drin:

    For Each ParseNode In ParseNodes


    Die Sache ist allerdings folgende:
    Ich bekomme Pro schleifendurchgang eben nur von einem Eintrag heraus, ob er existiert oder nicht.
    Eleganter wäre es, finde ich, wenn ich alles nur einmal Abfragen müsste um eben das gleiche Ergebnis erzielen zu können.
    Also ein Durchlauf und er fülllt mir die Struktur mit allen Daten die vorhanden sind.

    Vieleicht ist dieses For Each ParseNode zeug nicht der richtige Weg. Wenn er es nicht ist, dann habe ich leider noch keinen Besseren gefunden. Und dafür bin ich hier =D


    Ein weiteres Problem meines Weges ist:

    XML-Quellcode

    1. <?xml version="1.0" encoding="UTF-8"?>
    2. <planetinfos xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="planetinfo.xsd">
    3. <header version="2.6" universe="Jupiter" debug="true" language="german" content_type="planetinfo"/>
    4. <planetinfo playername="xxx" rank="123" points="123" num_players="123" playerid="123" planetname="Atom" moon="false" galaxy="1" system="2" planet="3" used_fields="93" fields="194" max_temp="70">
    5. <officers>
    6. <officer name="commander" enabled="false"/>
    7. <officer name="admiral" enabled="false"/>
    8. <officer name="engineer" enabled="false"/>
    9. <officer name="geologist" enabled="true"/>
    10. <officer name="technocrat" enabled="false"/>
    11. </officers>
    12. <queue type="building">
    13. <entry name="Research Lab" level="5" year="2011" month="7" day="3" hour="1" minute="1" second="55"/>
    14. </queue>
    15. <queue type="research"/>
    16. </planetinfo>
    17. </planetinfos>



    Diese XML Daten können auch gesendet werden. Ich kann diese auch auslesen. Wenn aber diese Daten ankommen, habe ich das Problem, das er den entry Punkt im Queue bereich erkennt, wie die entrys im Planetinfo bereich der XML Daten aus dem ersten Post.
    Hier handelt es sich aber um daten einer Warteschlange. Nicht wie im ersten Fall um vorhandene Daten...


    Unter PHP würde ich das ganze mit Assoziativen Arrays machen. Hier funktioniert das allerdings nicht. Es sei denn ich würde mit collections arbeiten... Was in diesem Fall aber aufgrund von Bibliotheken, die ich nicht verändern kann, aber die Strukturen in genau meiner Form Benötigen.

    Ich hoffe das ist nun weniger verwirrend...

    ich habs Prob auch nicht ganz verstanden - vlt. möchtest du ja auf alle entries zugreifen:

    VB.NET-Quellcode

    1. Public Class Form2
    2. Dim XDoc As XDocument = _
    3. <?xml version="1.0" encoding="UTF-8"?>
    4. <planetinfos xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="planetinfo.xsd">
    5. <header version="2.6" universe="Jupiter" debug="true" language="german" content_type="planetinfo"/>
    6. <planetinfo playername="xxx" playerid="111111" planetname="Atom" moon="false" galaxy="1" system="2" planet="3">
    7. <entry name="Metal" amount="46026"/>
    8. <entry name="Crystal" amount="46006"/>
    9. <entry name="Deuterium" amount="24340"/>
    10. <entry name="Energy" amount="2495"/>
    11. <entry name="Metal Mine" amount="16"/>
    12. <entry name="Crystal Mine" amount="15"/>
    13. <entry name="Deuterium Synthesizer" amount="10"/>
    14. <entry name="Solar Plant" amount="18"/>
    15. <entry name="Fusion Reactor" amount="7"/>
    16. <entry name="Solar Satellite" amount="0"/>
    17. <entry name="Metal Storage" amount="4"/>
    18. <entry name="Crystal Storage" amount="3"/>
    19. <entry name="Deuterium Tank" amount="2"/>
    20. </planetinfo>
    21. </planetinfos>
    23. Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    24. For Each Xel As XElement In XDoc.<planetinfos>(0).<planetinfo>(0).<entry>
    25. Debug.WriteLine(Xel.@name & " - " & Xel.@amount)
    26. Next
    27. End Sub
    28. End Class

    Hrm... Das könnte doch schon so zeimlich die Lösung meines Problems Problems sein...

    Erstens ich umgehe 100.000 schleifen, und kann alles recht schnell und vor allem auch gezielter auslesen.
    Was will ich denn mehr?

    Hrm... Ich bin im moment auf der Arbeit und habe die Source nicht komplett vor Ort, daher werde ich das heute abend erst testen können. Wenn ich das gemacht habe, werde ich auf jeden Fall berichten ob es funktioniert hat oder nicht.

    Dank schon mal an euch. =D

    Okay, habe wieder das gleiche Problem.
    Auch wenn das ganze mit Linq wesentlich einfacher von der Hand geht, habe ich wieder den gleichen Logikfehler wie vorher.

    Wenn ich beispielsweise den Entry mit "name = Entry" auslesen will, dann müsste ich das so wie ich das sehe genau so machen wie bisher... In einer schleife und immer wieder einzeln eintrag für Eintrag durch gehen...

    Ich hatte mir das an sich so vorgestellt wie:

    SELECT amount INTO entry WHERE name="Metal"

    Und schon habe ich das ergebnis... Aber das bekomme ich weder mit Linq noch mit den vorher genutzten XmlDocuments hin...

    Wisst ihr was ich meine?

    Momentan gehe ich ja hin und frage ab:

    Wenn Akuteller Entry Name = "Metal" dann packe "amount" in die dazugehörige Variable.
    Und das mache ich in einer Schleife so lange bis ich alles zusammen habe... Gibts denn keinen Weg, das irgendwie so wie das SQL Query oben hinzubekommen?

    Ich habe in verschiedenen Quellen ansätze bezüglich Where Klauseln in Linq gefunden, leider aber da fragen die diese Daten auch ganz anders ab wie in meinem Query.

    Ich hoffe nun ist einigermaßen klar, was ich meine =/

    ryg schrieb:

    Ich hoffe nun ist einigermaßen klar, was ich meine =/

    nee, nicht wirklich. Jetzt scheint mir, du willst ein Dictionary(Of String, Integer) anlegen.

    VB.NET-Quellcode

    1. Private _Dic as new Dictionary(Of String, Integer)
    2. Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    3. For Each Xel As XElement In XDoc.<planetinfos>(0).<planetinfo>(0).<entry>
    4. _Dic(Xel.@name)= Integer.Parse(Xel.@amount)
    5. Next
    6. End Sub

    Okay... xD

    Ich versuchs mal anders:

    Momentan frage ich meine Daten ja wie folgt ab:

    Vereinfacht

    VB.NET-Quellcode

    1. for i = 0 to AnzahlderEntrys - 1
    3. if NameInEntry(i) = "Metal" then
    5. Struktur.Variable = AmountInEntry(i)
    7. end if
    9. next i


    Und diese IF Abfrage muss ich für ALLE Einträge machen.
    Also: Metal, Crystal, Deut, Metalmine, Crystalmine usw...

    Und der Punkt ist das ich versuchen will es ungefähr so hinzubekommen:

    VB.NET-Quellcode

    1. Struktur.Variable = DatenAus(SELECT amount INTO entry WHERE name="Metal")


    das Ergebnis ist das gleiche. Nur habe ich mir diese Schleife gespart. Und ich habe eine Zeile für die Zuweisung.
    Vieleicht habe ich auch einen total denkfehler...

    Ist es nun ein wenig deutlicher?
    Das ist definitiv nicht bös gemeint^^ Ich will ja das ihr mir helfen könnt, weiß nur nicht genau, wie das Problem am besten beschreiben soll xD

    kannst du das mal wenigstens für 2 (besser für 3) Struktur-Dinger ausführen?

    Übrigens käst es mich beinahe an - manche Leuts benennen ihre Klassen extra fürs Posten um, damit man ja keinen Schimmer haben kann, wozu das eiglich gut sein soll.

    Oder heißt deine Struktur tatsächlich "Struktur", und hat eine Property "Variable"?

    Dann Käst es mich an, das ich den Originalcode im ersten Post gepackt habe. Zwar sehr verkürzt was die unterschiedlichen zu sammelnden Daten angeht, da ich leider nur 15k Zeichen in einen Post setzen kann, aber er verdeutlicht was ich meine. Selbst die XML Dateien die ich auslesen will habe ich so ziemlich im Original gepostet... Die einzigen Änderungen sind nicht relevant für das was ich habe. =(

    Egal^^

    Wie die Struktur aufgebaut ist, ist doch einerlei. Ob ich die Daten die hinterher in ner Struktur, nem Array oder ner Variable speichere, tut bei diesem Problem nichts zur sache will ich meinen.

    Nur für den Fall das ich in der Sache doch falsch liege, im Anhang die Strukturen und die anderen Files, die benötigt werden:

    1. Der Bereich für die ParseType
    2. Weitere wichtige Datentypen
    3. Die Klasse, in der die Original XML Parse bereiche drin sind, die ich in einer Für mich umständlichen weise erstellt habe.
    4-10. 7 von insgesamt 12 unterschiedlichen Möglichkeiten, wie die XML Daten aussehen können.

    Nun sollte wirklich alles vorhanden sein. Alles was nun noch fehlt, würde den Rahmen sprengen und ist auch im aktuellen Zustand nicht relevant.

    Was ich bisher geändert habe ist folgendes:

    Neue clsParseXML.vb:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Xml
    2. Imports System.Xml.Serialization
    3. Imports System.Xml.Linq
    4. Imports System.IO
    5. Imports System.Linq
    7. Imports ogTypes
    9. Public Class clsParseXML
    10. Private ParseType As New ogTypeParsePlanetinfo
    11. Private GTStrings() As String
    13. Private sPageType As String
    15. 'Seitentypen der PlanetInfo XML Seite der GT-Extension
    16. 'ress, faci, rese, fleet, def
    17. Private sPlanetInfoPage As String
    19. ' Öffentliche Klassenvariablen, Ändern des Pfades nach der Instanziierung möglich
    20. Public XMLData As String
    22. Sub New(ByVal Data As String)
    23. XMLData = Data
    25. ' hier nehme ich in der ersten Zeile 2 aufeinanderfolgende Leerzeichen weg
    26. ' das wird hier nur einmal ausgeführt.
    27. 'XMLData = Replace(XMLData, " ", "", 1, 1)
    29. 'Ich habe das hier ein wenig Umgeschrieben, da es (so wie ich das in einem Testfall mitbekommen habe)
    30. 'auch mal sein kann, das nicht nur 2 Stellen sondern auch mal nur eine oder 3 auftreten können.^^
    31. 'Und diese Lösung ist für all diese Fälle geeignet =D
    32. XMLData = "<" & SplitString(XMLData, "<", 2)
    34. End Sub
    36. Sub ParseXML_AllyStats()
    38. End Sub
    40. Sub ParseXML_PlayerStats()
    42. End Sub
    44. Sub ParseXML_Reports()
    46. End Sub
    48. ''' <summary>
    49. ''' Erasst die Übersichtsdaten
    50. ''' </summary>
    51. ''' <remarks>09.04.2011 - ryg</remarks>
    52. Sub ParseXML_Overview()
    53. Dim xmlDoc As New XmlDocument
    54. Dim ParseNodes As XmlNodeList
    55. Dim ParseNode As XmlNode
    56. Dim rawData As String
    58. rawData = XMLData
    60. xmlDoc.LoadXml(rawData)
    62. ParseNodes = Nothing
    63. ParseNodes = xmlDoc.GetElementsByTagName("planetinfo")
    64. sPlanetInfoPage = ""
    66. For Each ParseNode In ParseNodes
    67. 'Hier sollen die Daten aus der Übersichts_Header geparst werden.
    68. With ParseType
    69. .Overview.RankScore = ParseNode.Attributes("rank").Value
    70. .Overview.Points = ParseNode.Attributes("points").Value
    71. .Overview.PlayerTotal = ParseNode.Attributes("num_player").Value
    72. .OwnerOgameID = ParseNode.Attributes("playerid").Value
    73. .Overview.Fields_Used = ParseNode.Attributes("used_fields").Value
    74. .Overview.Fields = ParseNode.Attributes("fields").Value
    75. .Overview.Temperature = ParseNode.Attributes("max_temp").Value
    76. End With
    77. Next
    80. ParseNodes = Nothing
    81. ParseNodes = xmlDoc.GetElementsByTagName("officer")
    82. sPlanetInfoPage = ""
    84. For Each ParseNode In ParseNodes
    85. If ParseNode.Attributes("name").Value = "commander" Then
    86. ParseType.Officers.Commander = ParseNode.Attributes("enabled").Value
    87. End If
    89. If ParseNode.Attributes("name").Value = "admiral" Then
    90. ParseType.Officers.Admiral = ParseNode.Attributes("enabled").Value
    91. End If
    93. If ParseNode.Attributes("name").Value = "engineer" Then
    94. ParseType.Officers.Engineer = ParseNode.Attributes("enabled").Value
    95. End If
    97. If ParseNode.Attributes("name").Value = "geologist" Then
    98. ParseType.Officers.Geologist = ParseNode.Attributes("enabled").Value
    99. End If
    101. If ParseNode.Attributes("name").Value = "technocrat" Then
    102. ParseType.Officers.Technocrat = ParseNode.Attributes("enabled").Value
    103. End If
    104. Next
    106. sPlanetInfoPage = "over"
    108. MsgBox(ParseType.Overview.PlayerTotal)
    110. End Sub
    111. ''' <summary>
    112. ''' Kategorisiert die einzelnen Planetinfo Daten und fügt diese in ein Parse-Struct
    113. ''' </summary>
    114. ''' <remarks>09.04.2011 - ryg</remarks>
    115. Sub ParseXML_PlanetInfo()
    116. Dim xDoc As XDocument = XDocument.Parse(XMLData)
    118. With ParseType
    119. 'Lesen des Headers
    120. .FFExtVersion = xDoc.<planetinfos>.<header>.@version
    121. .Uni = xDoc.<planetinfos>.<header>.@universe
    123. 'Lesen der Planetinfos
    124. .OwnerName = xDoc.<planetinfos>.<planetinfo>.@playername
    125. .OwnerOgameID = xDoc.<planetinfos>.<planetinfo>.@playerid
    126. .Planet.Planet.Name = xDoc.<planetinfos>.<planetinfo>.@planetname
    127. .Planet.Koords.Galaxie = xDoc.<planetinfos>.<planetinfo>.@galaxy
    128. .Planet.Koords.System = xDoc.<planetinfos>.<planetinfo>.@system
    129. .Planet.Koords.Number = xDoc.<planetinfos>.<planetinfo>.@planet
    130. .Overview.RankScore = xDoc.<planetinfos>.<planetinfo>.@rank
    131. .Overview.Points = xDoc.<planetinfos>.<planetinfo>.@points
    132. .Overview.PlayerTotal = xDoc.<planetinfos>.<planetinfo>.@num_players
    133. .OwnerOgameID = xDoc.<planetinfos>.<planetinfo>.@playerid
    134. .Planet.Planet.Fields = xDoc.<planetinfos>.<planetinfo>.@fields
    135. .Planet.Planet.Temperature = xDoc.<planetinfos>.<planetinfo>.@max_temp
    137. 'Hier wird geprüft, ob es sich bei dem Dantensatz um einen Mond oder einen Planeten handelt.
    138. 'Generell wichtig ist das erst beim Übertragen der erfassten Gesamtdaten an die LiveStructure
    139. If CBool(xDoc.<planetinfos>.<planetinfo>.@moon) = False Then
    140. .isPLanet = False
    141. Else
    142. .isPLanet = True
    143. End If
    145. 'Lesen der Ressourcen
    146. With .Planet.Planet.Supplies
    147. .Metal = xDoc.<planetinfos>.<planetinfos>.<entry>.@amount.Where(xDoc.<planetinfos>.<planetinfo>.<entry>.@name.Contains("Metal")
    148. .Crystal = ""
    149. .Deuterium = ""
    150. .Energy = ""
    151. End With
    153. 'Lesen der Ressourcen Seite
    154. With .Planet.Planet.Resources
    155. .MetalMine = xDoc.<planetinfos>.<planetinfo>.<entry>
    156. .CrystalMine = ""
    157. .DeuteriumSynthesizer = ""
    158. .SolarPlant = ""
    159. .FusionReactor = ""
    160. .SolarSatellite = ""
    161. .MetalStorage = ""
    162. .CrystalStorage = ""
    163. .DeuteriumTank = ""
    164. End With
    165. End With
    167. End Sub
    169. Sub ParseXML_Allypage()
    171. End Sub
    173. ''' <summary>
    174. ''' Erkennt die Hauptkategorie der XML Daten und startet die jehweiligen Parser
    175. ''' </summary>
    176. ''' <remarks>09.04.2011 - ryg</remarks>
    177. Public Sub ParseXML_Read()
    178. Dim xDoc As XDocument = XDocument.Parse(XMLData)
    180. MsgBox(xDoc.<planetinfos>.<header>.@version)
    182. '#######################################
    183. '#######################################
    184. '## TEST
    185. ogProfile.Uni.UniName = "Jupiter"
    186. '#######################################
    187. '#######################################
    190. sPageType = xDoc.<planetinfos>.<header>.@content_type
    192. Select Case sPageType
    193. Case "planetinfo"
    194. ParseXML_PlanetInfo()
    195. Case "allypage"
    196. ParseXML_Allypage()
    197. Case "reports"
    198. ParseXML_Reports()
    199. Case "player_stats"
    200. ParseXML_PlayerStats()
    201. Case "ally_stats"
    202. ParseXML_AllyStats()
    203. End Select
    205. 'Bis hier wurden die Daten ausgelesen.
    206. 'Nun kommt das Aktualisieren der Structures.
    207. '(An dieser Stelle wird das Updaten für Deaktivierte Profile noch NICHT berücksichtigt.
    208. ParseXML_UpdateStruct()
    209. End Sub
    211. ''' <summary>
    212. ''' Update der Spieleigenen Structs
    213. ''' </summary>
    214. ''' <remarks>09.04.2011 - ryg</remarks>
    215. Public Sub ParseXML_UpdateStruct()
    216. Select Case sPageType
    217. Case "planetinfo" 'Planeteninfos
    218. Select Case sPlanetInfoPage
    219. Case "ress" 'Ressourcen
    220. MsgBox("Planetinfo Ressoucen")
    221. Case "faci" 'Facilities
    222. MsgBox("Planetinfo Facilities")
    223. Case "rese" 'Research
    224. MsgBox("Planetinfo Research")
    225. Case "over" 'Overview
    226. MsgBox("Overview")
    227. End Select
    229. Case "reports" 'Reports (Spy&Plani)
    230. MsgBox("Reports")
    232. Case "allypage" 'Allianzseite
    233. MsgBox("Allypage")
    235. Case "player_stats" 'Spielerstats
    236. MsgBox("Spieler Stats")
    238. Case "ally_stats" 'Allianzstats
    239. MsgBox("Ally Stats")
    241. End Select
    242. End Sub
    244. End Class


    Ich hoffe das diese Informationen ausreichend sind.

    Grüße,
    ryg
    Dateien

    Ich glaub ich habs verstanden (sogar noch nach dem 3 Post xD).

    Du möchtest mit einer Abfrage ALLE Relevanten Daten aus der XML auslesen und sofort in die richtigen Variabeln schreiben.
    Dabei ist der Aufbau der XML unterschidlich.

    XML-Quellcode

    1. <entry name="Crystal Mine" amount="15"/>
    2. <entry name="Deuterium Synthesizer" amount="10"/>
    3. <entry name="Solar Plant" amount="18"/>
    4. <entry name="Fusion Reactor" amount="7"/>

    oder z. B.

    XML-Quellcode

    1. <entry name="Crystal Mine" amount="15"/>
    2. <entry name="Fusion Reactor" amount="7"/>
    3. <entry name="Solar Plant" amount="18"/>
    4. <entry name="Deuterium Synthesizer" amount="10"/>


    Du suchst jetzt eine Funktion alà:

    VB.NET-Quellcode

    1. Funktion Auslesen(XML As XML)
    2. Deuterium = Suche Sofort nur mit diese Zeile den Eintrag "name="Deuterium"" in XML und nimm den Wert amount davon
    3. Metall = Suche Sofort nur mit diese Zeile den Eintrag "name="Metall"" in XML und nimm den Wert amount davon
    4. Energie = Suche Sofort nur mit diese Zeile den Eintrag "name="Energie"" in XML und nimm den Wert amount davon
    5. ... = ...


    Alles Ohne 100 Schleifen etc.
    Richtig?

    PS: Irgendwie Fail das du Ogame 1:1 nachprogrammieren willst, aber jeder wie er meint ^^

    Die Interpretation von ihm stimmt! Ja! =DD
    Endlich xD
    Mein Gott, ich muss definitiv an meiner Fähigkeit arbeiten mich Sinnvoll mitzuteilen ^^


    Ich will Ogame nicht Nachbauen... xD Das wäre epic Fail!
    Falls du Ogame kennst, dann vieleicht auch den OGeneral. Ich habe damals den Source von diesem Tool bekommen und sollte das Teil weiter Pflegen. Allerdings war das anfangs nur ein kleines Tool mit dem man Timer für Ressourcen erstellen konnte.. Und ist dann Stück für Stück gewachsen. Jedenfalls war das ein unheimliches Sourcegewusel in VB6. Und wir mussten die Daten per Zwischenablage in das Programm einfügen. Mitlerweile bekommen wir die Daten allerdings von der FF-Extension von Galaxytool als Port.
    Und sowas ist das ganze dann auch. Eine komplette Verwaltung des Spiels, mit Raidlisten, Imperiumsansicht, Statistiken, Spioberichten Kampfsimulatoren, Baulisten, Bautimer, uvm...
    Das was ihr hier seht ist lediglich das zerlegen der Daten die von der Extension kommen.

    Aber egal^^

    Wie ihr in dem gestern geposteten Code sehen könnt, hab ich mit:

    xDoc.<planetinfos>.<planetinfos>.<entry>.@amount.Where(xDoc.<planetinfos>.<planetinfo>.<entry>.@name.Contains("Metal")

    Versucht genau das hinzubekommen was du eben meintest. Vor allem, da ich gelesen habe, das Linq (und darum gehts hier hierbei ja) eine an SQL angelehnte Syntax hat. Aber auch wirklich nur Grob... xD

    Jedenfalls habe ich dann irgendwo im Netz gelesen das man auch WHERE Klauseln hinzufügen kann. Leider bin ich damit noch nicht so erfolgreich gewesen. Ich habe das einfach nicht hinbekommen... Zumindest nicht so wie es sollte.^^

    VB.NET-Quellcode

    1. Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    2. Dim _Dic As New Dictionary(Of String, Integer)
    3. For Each Xel As XElement In XDoc.<planetinfos>(0).<planetinfo>(0).<entry>
    4. _Dic(Xel.@name) = Integer.Parse(Xel.@amount)
    5. Next
    6. Deuterium.Variable = _Dic("Deuterium")
    7. Metall.Variable = _Dic("Metall")
    8. Energie.Variable = _Dic("Energie")
    9. End Sub

Facebook
Telefonspende