AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein XML Delphi XML parsen mit MSXML oder xpath

XML parsen mit MSXML oder xpath

Ein Thema von Ajintaro · begonnen am 4. Mär 2015
Antwort Antwort
Benutzerbild von Ajintaro
Ajintaro

Registriert seit: 20. Okt 2004
Ort: Sankt Augustin
138 Beiträge
 
Delphi XE6 Starter
 
#1

XML parsen mit MSXML oder xpath

  Alt 4. Mär 2015, 11:12
Hallo DP !

Ich habe eine überschaubare XML-Datei:

Code:
<?xml version="1.0" encoding="UTF-8"?>
<dpraxis>
   <meta>
      <name>Peter</name>
      <pageTitle>Peter Lustig reloaded</pageTitle>
   </meta>   
   <Auftritt id="0" datum="2016-01-21" name="Heiopei">
      <segmentIds>0</segmentIds>
   </Auftritt>
   
   <Segment id="0">
      <seatAvailabilities seatId="0" seatStatus="NOT_AVAILABLE">
         <pricePerTravelerType priceId="5"/>
      </seatAvailabilities>
      <seatAvailabilities seatId="1" seatStatus="NOT_AVAILABLE">
         <pricePerTravelerType priceId="6"/>
      </seatAvailabilities>
      <seatAvailabilities seatId="2" seatStatus="NOT_AVAILABLE">
         <pricePerTravelerType priceId="5"/>
      </seatAvailabilities>
      <seatAvailabilities seatId="72" seatStatus="AVAILABLE">
         <pricePerTravelerType travelerTypeId="0" priceId="5"/>
      </seatAvailabilities>
      <seatAvailabilities seatId="73" seatStatus="AVAILABLE">
         <pricePerTravelerType travelerTypeId="0" priceId="6"/>
      </seatAvailabilities>
   </Segment>
   
   <seatRows rowNumber="55">
      <items id="71" columnLetter="A" type="SEAT"/>
      <items id="72" columnLetter="B" type="SEAT"/>
   </seatRows>
   <seatRows rowNumber="56">
      <items id="73" columnLetter="A" type="SEAT"/>
      <items id="74" columnLetter="B" type="SEAT"/>
   </seatRows>
</dpraxis>
Aus dieser XML Datei möchte ich verschiedene Dinge lesen. Ich habe folgende Funktion gebastelt, welche mir ein Value eines Attributes einer Node zurückgibt.

Delphi-Quellcode:
uses MSXML
class Function GetNodeItem(xml, singlenode,item:string):string;

class Function TmyXMLdriss.GetNodeItem(xml, singlenode,item:string):string;
var
  XMLDOMDocument : IXMLDOMDocument;
  XMLDOMNode : IXMLDOMNode;
  XMLDOMNodeList : IXMLDOMNodeList;
  aXMLDOMNode : IXMLDOMNode;
  i: Integer;

begin
    XMLDOMDocument:=CoDOMDocument.Create;
    try
      XMLDOMDocument.loadXML(xml);
      if (XMLDOMDocument.parseError.ErrorCode<>0) then raise Exception.CreateFmt('Error in Xml Data %s', [XMLDOMDocument.parseError]);
      try
        XMLDOMNode := XMLDOMDocument.selectSingleNode(singlenode);
      Except
        result := '';
      end;
      if XMLDOMNode<>nil then
      begin
        try
          result := (XMLDOMNode.attributes.getNamedItem(item).Text);
        Except
          result := '';
        end;
      end;

    finally
      XMLDOMDocument:=nil;
    end;
  End;
Beispielaufruf:

  TXmyXMLdriss.SearchSinglevalue(fmain.memo_xml.text,'//Auftritt','datum',xpath_memo) gibt mir 2016-01-21 aus. So weit so gut. Jetzt habe ich aber gesehen, dass z.B. auf online xpath tester gibt es lustige Optionen wie z.B. das Letzte Element auswählen mit last() oder vorkommen zählen mit count()

In meinem Speziellen Fall habe ich versucht, eine Funktion zu bauen die mir aus dem Segment 0 alle noch verfügbaren Sitzplätze ausgibt.

Die Frage ist nun: ist eine Lösung mit MSXML zu umständlich und Xpath einfacher ? Ich habe auch diese XPathHelper.Pas gesichtet, allerdings konnte ich damit noch keinen Erfolg verbuchen.

Was meint ihr ?
Jaimy
DAoC 2.0 -> Camelot Unchained !
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf