Im Artikel “XML-Dokumente erstellen mit XmlWriter” haben wir beschrieben, wie Sie XML-Dokumente mit der XmlWriter-Klasse schreiben. Dort können Elemente nur sequenziell hinzugefügt werden. Die Methoden des Object Document Models erlauben eine wesentlich flexiblere Vorgehensweise. Dieser Artikel zeigt, wie Sie mit dem Document Object Model neue XML-Dokumente erstellen und Elemente der verschiedenen Typen hinzufügen und mit Daten füllen.<\/b><\/p>\n
Beispieldaten<\/b><\/p>\n
Die Beispiele aus dem ersten Teil des Artikels finden Sie im Beispielprojekt XmlBeispiele <\/b>aus dem Download.<\/p>\n
Erstellen eines neuen XML-Dokuments<\/b><\/p>\n
Im Artikel XML lesen mit dem Document Object Model <\/b>(www.datenbankentwickler.net\/****<\/b>) haben Sie neue XML-Dokument-Objekte erstellt und diese mit Load <\/b>oder LoadXml <\/b>befüllt. Nun wollen wir ein neues, leeres XML-Dokument erstellen und dieses speichern. Die Mindestanforderung ist dabei, dass das Dokument ein Stammelement enthält. Um das mit VB zu realisieren, benötigen wir wie in den vorherigen Artikeln einen Verweis auf den Namespace System.Xml<\/b>:<\/p>\n Danach können wir mit der folgenden Methode ein neues XmlDocument <\/b>erstellen. Bevor wir dieses speichern können, fügen wir das Stammelement in zwei Schritten hinzu:<\/p>\n Danach können wir das Dokument mit Save <\/b>und dem gewünschten Dateipfad speichern:<\/p>\n Das Dokument enthält nun schlicht folgenden Text:<\/p>\n Prolog hinzufügen<\/b><\/p>\n Für manche Anwendungen ist es wichtig, dass die XML-Datei einen Prolog enthält, also folgende Zeile:<\/p>\n Diese nennt man auch Processing Instruction. Und genau so ein Objekt gibt es auch im Namespace System.Xml<\/b>. Um dieses zu erstellen, deklarieren wir eine Variable des Typs XmlProcessingInstruction <\/b>sowie eine für den Inhalt dieses Objekts:<\/p>\n Dann schreiben wir den Text in strPI <\/b>und erstellen mit der Methode CreateProcessingInstruction <\/b>das XmlProcessingInstruction<\/b>-Element. Der erste Parameter ist der Name, der hinter < <\/b>erscheinen soll, also xml<\/b>, der zweite die Angabe der gewünschten Name-Wert-Paare. Danach hängen wir das Element wie herkömmliche Elemente mit der AppendChild<\/b>-Methode an das Dokument an und speichern es anschließend:<\/p>\n Das Ergebnis lautet, kombiniert mit den Anweisungen des ersten Beispiele, wie folgt:<\/p>\n Da wir eine solche Processing Instruction allen XML-Dokumenten voranstellen, gliedern wir die notwendigen Anweisungen in eine eigene Methode aus, die wie folgt aussieht:<\/p>\n Den Aufruf können wir dann so in die eigentliche Methode zum Erstellen des XML-Dokuments einstreuen:<\/p>\n Unterelemente hinzufügen<\/b><\/p>\n Unser XML-Dokument besteht nun gerade mal aus der Processing Instruction und dem Stammelement Bestellverwaltung<\/b>. Weitere Elemente müssen wir zwingend dem Stammelement unterordnen. Dieses haben wir aber bereits mit objElement <\/b>referenziert, sodass wir eigentlich direkt loslegen können. Allerdings machen wir uns direkt an dieser Stelle Gedanken über die Benennung der XmlElement<\/b>-Variablen, denn wir werden ja vielleicht noch weitere verschachtelte Elemente wie Kunden, Bestellungen und Bestellpositionen einfügen wollen und wir benötigen für alle zumindest eine Objektvariable je Typ. Also ändern wir den Namen der Objektvariablen für das Stammelement in objBestellverwaltung<\/b>. Die folgenden Elemente wollen wir dann objKunden<\/b>, objKunde<\/b>, objBestellungen<\/b>, objBestellung <\/b>und so weiter nennen. Als Erstes wollen wir nur das Unterelement Kunden <\/b>hinzufügen. Dazu legen wir die Variable objKunden <\/b>mit dem Typ XmlElement <\/b>an.<\/p>\n Dieser weisen wir dann das mit der CreateElement <\/b>von objXml <\/b>erstellte Objekt mit dem Namen Kunden <\/b>zu. Allerdings hängen wir das Kunden<\/b>-Element nicht an das XML-Dokument aus objXml <\/b>an, sondern an das Element aus objBestellverwaltung<\/b>:<\/p>\n Das Ergebnis sieht dann genau wie gewünscht aus:<\/p>\n Elemente mit Werten hinzufügen <\/b><\/p>\n Nun nähern wir uns den Elementen, die selbst Werte enthalten, also zum Beispiel das folgende:<\/p>\n Texte wie hier innerhalb des Elements Firma <\/b>sind Elemente des Typs XmlText<\/b>. Neben den übrigen neu hinzugekommenen Elementen deklarieren wir dieses entsprechend. Danach legen wir unterhalb des Elements aus objKunden <\/b>weitere neue Elemente namens objKunde <\/b>und objFirma <\/b>an, beide des Typs XmlElement<\/b>. Schließlich erstellen wir ein neues Element des Typs XmlText <\/b>und weisen diesem mit dem Parameter text <\/b>den gewünschten Inhalt zu. Dieses Objekt hängen wir an objFirma <\/b>an:<\/p>\n Damit hätten wir die Werkzeuge zum Zusammenstellen der Grundstruktur vollständig und können uns anderen Elementen zuwenden.<\/p>\n Attribute hinzufügen<\/b><\/p>\n Die Elemente Kunde<\/b>, Bestellung <\/b>und Bestellposition <\/b>sollen jeweils um ein Attribut namens ID <\/b>ergänzt werden:<\/p>\n Dazu deklarieren wir eine Variable des Typs XmlAttribute<\/b>:<\/p>\n Nach dem Erstellen des Elements, das wir mit dem Attribut ausstatten wollen, erzeugen wir das XmlAttribute<\/b>-Objekt. Dann weisen wir diesem über das Attribut Value <\/b>den gewünschten Wert zu und hängen das Attribut über die Methode Append <\/b>der Auflistung Attributes <\/b>an das XmlElement<\/b>-Objekt an. Schließlich fügen wir das XmlElement<\/b>-Objekt zum übergeordneten Objekt zu:<\/p>\n Sie können das Attribut allerdings auch erst nach dem Anhängen des XmlElement<\/b>-Objekts an das übergeordnete Element hinzufügen.<\/p>\n CDATA-Block hinzufügen<\/b><\/p>\n Mit der Methode CreateCDataSection<\/b> erstellen Sie ein Element mit einem CDATA<\/b>-Block. Den Inhalt des CDATA<\/b>-Blocks übergeben Sie als Parameter der Methode CreateCDataSection<\/b>. Heraus kommt ein Objekt des Typs XmlCDataSection<\/b>, das Sie wie gewohnt mit der AppendChild<\/b>-Methode an das übergeordnete Element anfügen:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Imports System.Xml<\/pre>\n
\n
Private Sub <\/span>btnDokumentErstellenDOM_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n Dim <\/span>objXml As <\/span>XmlDocument\r\n Dim <\/span>objElement As <\/span>XmlElement\r\n Dim <\/span>strDocument As String<\/span>\r\n strDocument = \"C:\\...\\BestellverwaltungDOM.xml\"\r\n objXml = New<\/span> XmlDocument\r\n objElement = objXml.CreateElement(\"Bestellverwaltung\")\r\n objXml.AppendChild(objElement)\r\n objXml.Save(strDocument)\r\nEnd Sub<\/span><\/pre>\n<Bestellverwaltung \/><\/pre>\n
<xml version=\"1.0\" encoding=\"utf-8\"><\/pre>\n
Dim <\/span>objPI As <\/span>XmlProcessingInstruction\r\nDim <\/span>strPI As String<\/span><\/pre>\nstrPI = \"version=\"\"1.0\"\" encoding=\"\"utf-8\"\"\"\r\nobjPI = objXml.CreateProcessingInstruction(\"xml\", strPI)\r\nobjXml.AppendChild(objPI)\r\n...\r\nobjXml.Save(strDocument)<\/pre>\n
<xml version=\"1.0\" encoding=\"utf-8\">\r\n<Bestellverwaltung \/><\/pre>\n
Public Sub <\/span>AddProcessingInstruction(ByVal objXml As <\/span>XmlDocument)\r\n Dim <\/span>objPI As <\/span>XmlProcessingInstruction\r\n Dim <\/span>strPI As String<\/span>\r\n strPI = \"version=\"\"1.0\"\" encoding=\"\"utf-8\"\"\"\r\n objPI = objXml.CreateProcessingInstruction(\"xml\", strPI)\r\n objXml.AppendChild(objPI)\r\nEnd Sub<\/span><\/pre>\nAddProcessingInstruction(objXml)<\/pre>\n
Private Sub <\/span>btnDokumentErstellenDOM_Unterelemente_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n ...\r\n Dim <\/span>objKunden As <\/span>XmlElement\r\n ...\r\n objBestellverwaltung = objXml.CreateElement(\"Bestellverwaltung\")\r\n objXml.AppendChild(objBestellverwaltung)\r\n objKunden = objXml.CreateElement(\"Kunden\")\r\n objBestellverwaltung.AppendChild(objKunden)\r\n objXml.Save(strDocument)\r\nEnd Sub<\/span><\/pre>\n<xml version=\"1.0\" encoding=\"utf-8\">\r\n<Bestellverwaltung>\r\n <Kunden \/>\r\n<\/Bestellverwaltung><\/pre>\n
<Kunden>\r\n <Kunde>\r\n <Firma>André Minhorst Verlag<\/Firma>\r\n <\/Kunde>\r\n <\/Kunden><\/pre>\n
Dim <\/span>objKunde As <\/span>XmlElement\r\nDim <\/span>objFirma As <\/span>XmlElement\r\nDim <\/span>objText As <\/span>XmlText\r\n...\r\nobjKunde = objXml.CreateElement(\"Kunde\")\r\nobjKunden.AppendChild(objKunde)\r\nobjFirma = objXml.CreateElement(\"Firma\")\r\nobjKunde.AppendChild(objFirma)\r\nobjText = objXml.CreateTextNode(\"André Minhorst Verlag\")\r\nobjFirma.AppendChild(objText)\r\nobjXml.Save(strDocument)<\/pre>\n<Kunde ID=\"123\"><\/pre>\n
Dim <\/span>objID As <\/span>XmlAttribute<\/pre>\nobjKunde = objXml.CreateElement(\"Kunde\")\r\nobjID = objXml.CreateAttribute(\"ID\")\r\nobjID.Value = \"123\"\r\nobjKunde.Attributes.Append(objID)\r\nobjKunden.AppendChild(objKunde)<\/pre>\n
Dim <\/span>objCData As <\/span>XmlCDataSection\r\n...\r\nobjCData = objXml.CreateCDataSection(\"Dies ist ein CDATA-Block mit Sonderzeichen wie <>&.\")\r\nobjBestellverwaltung.AppendChild(objCData)<\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t