Einzelne Elemente aus XML-Datei lesen - gibts da nichts in .NET ?

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von dive26.

    Einzelne Elemente aus XML-Datei lesen - gibts da nichts in .NET ?

    Ich stehe vor folgenden Probel:

    Ich bekomme von einer Webanwendung eine XML-Datei zurück in der verschieden tief geschachtelte Werte stehen. Je nach Abfrage im Onlineshystem kommen mehr oder weniger Daten zurück.

    In der Anlage findet Ihr ein Beispiel-XML aus dem ich folgende Werte auslesen möchte:

    1. <HotelName> <![CDATA[SH2]]> </HotelName> . Dies befindet sich in <HotelDescriptiveContents> <HotelDescriptiveContent ... <HotelInfo..

    2. <GuestRoom Code="7420" ID="7420" MaxAdultOccupancy="1" MaxOccupancy="1" Quantity="3" RoomTypeName="Komfort Einzelzimmer"> . Hier brauche ich den Wert von "Code" oder "ID" (also 7420). Es gibt aber meist mehrere solche Einträge (im Beispiel 3 Stück mit 7420, 7421 und 7422).
    Hier möchte ich folgende Daten für jeden GuestRoom Eintrag auslesen:
    Code (z.B. 7420)
    Quantity (z.B. 3)
    RoomTypeName (z.B. Komfort Einzelzimmer)

    Jetzt kann ich zwar im "Text" nach diversen Zeichenfolgen suchen und dann mit Stringoperationen mich dahinhangeln, aber es sollte für XML (Microsoft stehts sich ja drauf) eine .NET Möglichkeit geben.

    Habt Ihr da einen Tipp für mich?

    PS: Die XML-Datei lässt sich z.B. im Firefox fehlerfrei anzeigen - die Struktur dürfte also in Ordnung sein.
    Dateien
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    Ich habe das mal irgendwann so gelöst.

    VB.NET-Quellcode

    1. Public Sub XMLReader()
    3. Dim strLetztesElement As String = ""
    5. ' Wir benötigen einen XmlReader für das Auslesen der XML-Datei
    6. Dim XMLReader As Xml.XmlReader _
    7. = New Xml.XmlTextReader(strDatei)
    9. ' Es folgt das Auslesen der XML-Datei
    10. With XMLReader
    12. Do While .Read ' Es sind noch Daten vorhanden
    14. ' Welche Art von Daten liegt an?
    15. Select Case .NodeType
    17. ' Ein Element
    18. Case Xml.XmlNodeType.Element
    20. strLetztesElement = .Name
    21. ' Alle Attribute (Name-Wert-Paare) abarbeiten
    22. If .AttributeCount > 0 Then
    23. ' Es sind noch weitere Attribute vorhanden
    24. While .MoveToNextAttribute ' nächstes
    25. 'Console.WriteLine("Feldname: " & .Name & _
    26. '" -> " & _
    27. '"Feldwert: " & .Value)
    28. End While
    30. End If
    32. ' Ein Text
    33. Case Xml.XmlNodeType.Text
    35. Select Case strLetztesElement
    36. Case "TerminalId"
    37. frmSonstigeEinstellungen.txtTerminalId.Text = .Value
    38. Case "Communication"
    39. frmSonstigeEinstellungen.txtCommunication.Text = .Value
    40. Case "IPAdresse"
    41. frmSonstigeEinstellungen.txtIPAdresse.Text = .Value
    42. Case "PortNr"
    43. frmSonstigeEinstellungen.txtPort.Text = .Value
    44. Case "COMPort" 'Lesen wir nicht aus. Wird nicht gebraucht
    45. Case "Databits" 'Lesen wir nicht aus. Wird nicht gebraucht
    46. Case "Parity" 'Lesen wir nicht aus. Wird nicht gebraucht
    47. Case "Stopbits" 'Lesen wir nicht aus. Wird nicht gebraucht
    48. Case "Passwort" 'Lesen wir nicht aus. Wird nicht gebraucht
    49. frmSonstigeEinstellungen.txtKassiererPasswort.Text = .Value
    50. Case "Druckzahlung"
    51. If .Value = "true" Then
    52. frmSonstigeEinstellungen.chkKasseDruckenZahlung.CheckState = CheckState.Checked
    53. Else
    54. frmSonstigeEinstellungen.chkKasseDruckenZahlung.CheckState = CheckState.Unchecked
    55. End If
    56. Case "Betragsanzeige"
    57. If .Value = "true" Then
    58. frmSonstigeEinstellungen.chkBetragsanzeige.CheckState = CheckState.Checked
    59. Else
    60. frmSonstigeEinstellungen.chkBetragsanzeige.CheckState = CheckState.Unchecked
    61. End If
    62. Case "Zwischenstatus"
    63. If .Value = "true" Then
    64. frmSonstigeEinstellungen.chkZwischenstatus.CheckState = CheckState.Checked
    65. Else
    66. frmSonstigeEinstellungen.chkKasseDruckenZahlung.CheckState = CheckState.Unchecked
    67. End If
    68. Case "Druckverwaltung"
    69. If .Value = "true" Then
    70. frmSonstigeEinstellungen.chkKasseDruckenVerwaltung.CheckState = CheckState.Checked
    71. Else
    72. frmSonstigeEinstellungen.chkKasseDruckenVerwaltung.CheckState = CheckState.Unchecked
    73. End If
    74. Case "Zahlungsart"
    75. frmSonstigeEinstellungen.txtZahlungsart.Text = .Value
    76. Case "Trace"
    77. If .Value = "true" Then
    78. frmSonstigeEinstellungen.chkTrace.CheckState = CheckState.Checked
    79. Else
    80. frmSonstigeEinstellungen.chkTrace.CheckState = CheckState.Unchecked
    81. End If
    82. Case "MaxTraceData" 'Lesen wir nicht aus. Wird nicht gebraucht
    83. Case "MaxPaymentData" 'Lesen wir nicht aus. Wird nicht gebraucht
    85. End Select
    86. ' Ein Kommentar
    87. Case Xml.XmlNodeType.Comment
    89. End Select
    91. Loop
    93. .Close() ' XMLTextReader schließen
    95. End With

    Ich täte sehr vom Gemurkel mit XmlReader abraten.
    Die aktuelle Technologie ist Xml.Linq, und die zu verwendenden Klassen heissen XDocument, XElement, XAttribute.
    Aber beschäftige dich auch mit Xml als Sprache.
    Es gibt da Fachbegriffe wie Element, Attribut, Knoten etc. - wenn man da nicht den Sinn von verstanden hat, wird man ziemlich jämmerlich herumstümpern müssen.
    Xml-Tutorial
    Hingegen wenn verstanden, dann kann man eigene Xml-Abfragen formulieren, und Xml zeigt sich dann als eine Art Datenbank.

    Oder du bildest, das was du brauchst als Klassen nach und deserialisierst das ganze. So z.B. wenn du das aus c# übersetzen kannst:

    C#-Quellcode

    1. public class OTA_HotelDescriptiveInfoRS {
    2. public HotelDescriptiveContents HotelDescriptiveContents { get; set; }
    3. }
    5. public class HotelDescriptiveContents {
    6. public HotelDescriptiveContent HotelDescriptiveContent { get; set; }
    7. }
    9. public class HotelDescriptiveContent {
    10. public HotelInfo HotelInfo { get; set; }
    11. public FacilityInfo FacilityInfo { get; set; }
    12. }
    14. public class HotelInfo {
    15. public string HotelName { get; set; }
    16. }
    18. public class FacilityInfo {
    19. public List<GuestRoom> GuestRooms { get; set; }
    20. }
    22. public class GuestRoom {
    23. [XmlAttribute]
    24. public string Code { get; set; }
    26. [XmlAttribute]
    27. public string ID { get; set; }
    29. [XmlAttribute]
    30. public string Quantity { get; set; }
    32. [XmlAttribute]
    33. public string RoomTypeName { get; set; }
    34. }
    36. class Program {
    37. static void Main(string[] args) {
    38. XmlSerializer ser = new XmlSerializer(typeof(OTA_HotelDescriptiveInfoRS), "http://www.opentravel.org/OTA/2003/05");
    39. using (FileStream fs = new FileStream(@"C:\Users\Bluespide\Desktop\HotelDescriptiveInfo.txt.xml", FileMode.Open, FileAccess.Read, FileShare.ReadWrite)) {
    40. OTA_HotelDescriptiveInfoRS hotelDesc = (OTA_HotelDescriptiveInfoRS)ser.Deserialize(fs);
    42. //hotelDesc.HotelDescriptiveContents.HotelDescriptiveContent.HotelInfo.HotelName
    43. //hotelDesc.HotelDescriptiveContents.HotelDescriptiveContent.FacilityInfo.GuestRooms[0].RoomTypeName
    44. //...
    45. }
    46. }
    47. }

    Vielen Dank, Euch allen.
    Ich habe jetzt einen gangbaren Weg über die Mischung verschiedener Techniken gefunden.

    Einerseits über XML und eine Mischung aus XML und Instr().
    Leider wars nicht so einfach, weil in einer Zimmerreservierung (childnode) nicht nur Zimmer einer Kategorie sein können, sondern beliebig viele Zimmer mit verschiedenen Kategorien und auch immer anderen Preisen.

    Daher lese ich zuerst die Childnodes mit den einzelnen Reservierungen aus und gehe dann die Childnodes einem nach dem anderen durch und extrahiere die entsprechenden Infos die ich daraus brauche. Teilweise auch mit Instr() und Mid(). So funktioniert es.

    VB.NET-Quellcode

    1. '1. Zuerst die Reservierungsnodes <HotelReservation>auslesen
    2. If root.HasChildNodes Then
    3. For HauptNodes As Integer = 0 To root.ChildNodes.Count - 1
    4. If root.ChildNodes(HauptNodes).Name.ToUpper = "RESERVATIONSLIST" Then
    5. HRNode = root.ChildNodes(HauptNodes)
    6. 'Hier die einzelnen "HotelReservation" durchgehen, falls vorhanden
    7. If HRNode.HasChildNodes Then
    8. For ReservationNodes As Integer = 0 To HRNode.ChildNodes.Count - 1
    9. HotelReservation_OuterXML_Zaehler += 1
    10. HotelReservation_OuterXML(HotelReservation_OuterXML_Zaehler) = HRNode.ChildNodes(ReservationNodes)
    11. Next ReservationNodes
    12. End If
    13. End If
    14. Next HauptNodes
    15. End If



    VB.NET-Quellcode

    1. 'Alle Reservierungen durchgehen und Daten extrahieren
    2. For i As Integer = 1 To HotelReservation_OuterXML_Zaehler
    3. 'Datum der Buchungserstellung
    4. CreateDateTime = DateTime.Parse(HotelReservation_OuterXML(i).Attributes.GetNamedItem("CreateDateTime").InnerText)
    5. 'Buchungs-ID ermitteln
    6. If HotelReservation_OuterXML(i).HasChildNodes Then
    7. For UnterNodes As Integer = 0 To HotelReservation_OuterXML(i).ChildNodes.Count - 1
    8. 'Buchungs-ID ermitteln
    9. If HotelReservation_OuterXML(i).ChildNodes(UnterNodes).Name.ToUpper = "UNIQUEID" Then
    10. UniqueID = HotelReservation_OuterXML(i).ChildNodes(UnterNodes).Attributes.GetNamedItem("ID").InnerText
    11. End If
    12. 'Roomstays
    13. If HotelReservation_OuterXML(i).ChildNodes(UnterNodes).Name.ToUpper = "ROOMSTAYS" Then
    14. RoomStaysXMLText = HotelReservation_OuterXML(i).ChildNodes(UnterNodes).OuterXml
    15. 'Suchen nach "<RoomType NumberOfUnits"
    16. Dim TempString As String = ""
    17. Dim Startpos As Integer
    18. While InStr(RoomStaysXMLText, "<RoomType NumberOfUnits=") > 0


    (nur ein Ausschnitt aus dem Code).

    Das Ergebnis und die XML-Datei die dem zugrunde lag findet Ihr im Anhang.
    Bilder

    • 05042020203332.jpg

      244,76 kB, 1.170×482, 88 mal angesehen
    Dateien
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

Facebook