Public Function <\/span>Transformieren(strQuelle As String<\/span>, strXSL As String<\/span>, strZiel As String<\/span>, Optional<\/span> strFehler As String<\/span>) As Long<\/span>\r\n Dim <\/span>objQuelle As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>objXSL As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>objZiel As <\/span>MSXML2.DOMDocument\r\n Set<\/span> objQuelle = New<\/span> MSXML2.DOMDocument\r\n objQuelle.Load strQuelle\r\n If <\/span>objQuelle.parseError = 0 Then<\/span>\r\n Set<\/span> objXSL = New<\/span> MSXML2.DOMDocument\r\n objXSL.Load strXSL\r\n If <\/span>objXSL.parseError = 0 Then<\/span>\r\n Set<\/span> objZiel = New<\/span> MSXML2.DOMDocument\r\n objQuelle.transformNodeToObject objXSL, objZiel\r\n objZiel.Save strZiel\r\n Else<\/span>\r\n Transformieren = objXSL.parseError.errorCode\r\n strFehler = \".xsl-datei: \" & vbCrLf<\/span> & strXSL & vbCrLf<\/span> & objXSL.parseError.reason\r\n End If<\/span>\r\n Else<\/span>\r\n Transformieren = objQuelle.parseError.errorCode\r\n strFehler = \"Quelldatei: \" & vbCrLf<\/span> & strQuelle & vbCrLf<\/span> & objQuelle.parseError.reason\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nListing 1: Die Prozedur Transformieren<\/p>\n
Mit dieser Funktion werden wir die folgenden Beispiele dieses Artikels durchführen. Sie lädt als erstes das XML-Dokument aus strQuelle <\/b>mit der Load<\/b>-Methode in das DOMDocument<\/b>-Element objQuelle<\/b>. Dann prüft sie, ob das Dokument einen Fehler enthält. Falls nicht, lädt sie das XSL-Dokument in die Variable objXSL<\/b>.<\/p>\n
Auch hier folgt eine Prüfung auf eventuelle Fehler beim Parsen der Datei. Erfolgt auch dies fehlerfrei, ruft die Prozedur die transformNodeToObject<\/b>-Methode von objQuelle <\/b>auf und übergibt objXSL <\/b>als ersten und objZiel <\/b>als zweiten Parameter. Danach speichert sie das neu erstellte Objekt mit der Save<\/b>-Methode des Objekts objZiel<\/b>, und zwar unter dem Namen, der in der Variablen strZiel <\/b>angegeben ist.<\/p>\n
Sollte an irgendeiner Stelle ein Fehler beim Parsen aufgetreten sein, liefert <\/p>\n
Für all dies ist ein Verweis auf die Bibliothek Microsoft XML, v3.0 <\/b>erforderlich. Es gibt zwar moderne Versionen dieser Bibliothek, aber wir verwenden diese, weil die XPath-Befehle damit besser funktionieren – mehr dazu im Artikel XML-Dokumente mit XPath durchsuchen<\/b>.<\/p>\n
Diesen Verweis fügen wir über den Verweise<\/b>-Dialog hinzu, den Sie im VBA-Editor mit dem Menüeintrag Extras|Verweise <\/b>aktivieren (siehe Bild 1).<\/p>\n
![\"Hinzufügen](\"..\/tl_files\/images\/pic_449_001.png\")
<\/a><\/p>\nBild 1: Hinzufügen eines Verweises auf die XML-Bibliothek<\/p>\n
Wir gehen an dieser Stelle davon aus, dass Sie bereits eine Beispiel-XML-Datei erstellt haben, die im gleichen Verzeichnis wie die Datenbank liegt.<\/p>\n
Fehler ausgeben<\/h2>\n
Um eventuell auftretende Fehler auszugeben, rufen wir die Prozedur Transformieren <\/b>wie folgt auf und übergeben dabei noch die Variable strFehler<\/b>:<\/p>\nPublic Sub <\/span>TransformierenMitMeldungen()\r\n Dim <\/span>strFehler As String<\/span>\r\n Transformieren CurrentProject.Path & \"\\KategorienUndArtikel.xml\", CurrentProject.Path & \"\\KategorienUndArtikel.xsl\", CurrentProject.Path & \"\\Transformiert.xml\", strFehler\r\n Debug.Print<\/span> strFehler\r\nEnd Sub<\/span><\/pre>\nTritt hier ein Fehler auf, wird dieser mit dem Parameter strFehler<\/b> an die aufrufende Prozedur zurückgegeben. Diese gibt ihn dann im Direktbereich des VBA-Editors aus.<\/p>\nBeispieldokument als Quelle<\/h2>\n
Als Beispiel verwenden wir wie in einigen anderen Artikeln den Export der Tabelle tblKategorien<\/b>, für die wir zusätzlich die Tabelle tblArtikel <\/b>hinzugefügt haben. Diese sieht in stark gekürzter Form wie folgt aus:<\/p>\n<xml version=\"1.0\" encoding=\"UTF-8\">\r\n<dataroot xmlns:od=\"urn:schemas-microsoft-com:officedata\" generated=\"2019-08-01T21:45:19\">\r\n<tblKategorien>\r\n<KategorieID>1<\/KategorieID>\r\n<Kategoriename>Getränke<\/Kategoriename>\r\n<Beschreibung>Alkoholfreie Getränke...<\/Beschreibung>\r\n<Abbildung>FRwvAAIAAAANAA4AFAAhAP...<\/Abbildung>\r\n<tblArtikel>\r\n<ArtikelID>1<\/ArtikelID>\r\n<Artikelname>Chai<\/Artikelname>\r\n<LieferantID>1<\/LieferantID>\r\n<KategorieID>1<\/KategorieID>\r\n<Liefereinheit>10 Kartons x 20 Beutel<\/Liefereinheit>\r\n<Einzelpreis>9<\/Einzelpreis>\r\n<Lagerbestand>39<\/Lagerbestand>\r\n<BestellteEinheiten>0<\/BestellteEinheiten>\r\n<Mindestbestand>10<\/Mindestbestand>\r\n<Auslaufartikel>0<\/Auslaufartikel>\r\n<\/tblArtikel>\r\n...\r\n<\/tblKategorien>\r\n...\r\n<\/dataroot><\/pre>\nIm einführenden Beispiel des Artikels Kategorie-XML-Export mit Transformation <\/b>haben wir aus diesem Dokument ein Dokument gemacht, das so aussieht, wie wir uns ein solches Dokument vorgestellt hätten, also etwa so:<\/p>\n<xml version=\"1.0\" encoding=\"UTF-16\">\r\n<Bestellverwaltung xmlns=\"http:\/\/www.w3.org\/TR\/REC-html40\">\r\n <Kategorien>\r\n <Kategorie ID=\"1\">\r\n <Kategoriename>Getränke<\/Kategoriename>\r\n <Beschreibung>Alkoholfreie Getränke, Kaffee, Tee, Bier<\/Beschreibung>\r\n <Artikelliste>\r\n <Artikel ID=\"1\">\r\n <Artikelname>Chai<\/Artikelname>\r\n <\/Artikel>\r\n ...\r\n <\/Artikelliste>\r\n <\/Kategorie>\r\n ...\r\n <\/Kategorien>\r\n<\/Bestellverwaltung><\/pre>\nFür die komplette XSL-Datei, die wir hier verwendet haben, verweisen wir Sie auf den Artikel Kategorie-XML-Export mit Transformation<\/b>.<\/p>\nKopf einer XSL-Datei<\/h2>\n
Die erste Zeile einer XSL-Datei sieht immer wie folgt aus:<\/p>\n
<xsl:stylesheet version=\"1.0\"\r\n xmlns:xsl=\"http:\/\/www.w3.org\/1999\/XSL\/Transform\"\r\n xmlns=\"http:\/\/www.w3.org\/TR\/REC-html40\"><\/pre>\nDynamische und statische Anweisungen<\/h2>\n
Danach folgen einige weitere Anweisungen, die sich vor allem durch ein Merkmal unterscheiden: Sie beginnen entweder mit <xsl: <\/b>oder eben nicht. Wenn Sie schon einmal eine PHP- oder ASP-Seite programmiert haben, kennen Sie das Prinzip: Sie mischen dort HTML-Code und dynamische Skriptbestandteile. Der HTML-Code wird 1:1 in das resultierende HTML-Dokument übernommen, der PHP- oder ASP-Code fügt weitere, dynamisch ermittelte Inhalte etwa aus einer Datenbank hinzu oder strukturiert die Inhalte etwa durch den Einsatz von Schleifen oder Bedingungen. Genau das Gleiche finden Sie auch in XSL-Dokumenten vor. Der Unterschied ist, dass die Daten, die im Zieldokument abgebildet werden sollen, aus dem Quelldokument stammen und nicht etwa aus einer Datenbank.<\/p>\nDas template-Element als Wurzelelement<\/h2>\n
Genau wie ein XML-Dokument hat auch das XSL-Dokument ein Wurzelelement, nämlich das Element template<\/b>. Dieses verlangt zwingend nach der Angabe des Parameters match. match <\/b>gibt an, auf welches Element der Originaldatei sich die nachfolgenden Anweisungen beziehen beziehungsweise welches Element samt Unterelementen die Daten für das Zielelement liefern soll. Hier stellen wir match <\/b>mit „\/“ <\/b>auf das Wurzelelement ein. Außerdem wollen wir als Basis ein öffnendes und schließendes Element namens Bestellverwaltung <\/b>anlegen:<\/p>\n<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http:\/\/www.w3.org\/1999\/XSL\/Transform\">\r\n <xsl:template match=\"\/\">\r\n <Bestellverwaltung>\r\n <\/Bestellverwaltung>\r\n <\/xsl:template>\r\n<\/xsl:stylesheet><\/pre>\nDas Ergebnis sieht dann so aus:<\/p>\n
<xml version=\"1.0\" encoding=\"UTF-16\">\r\n<Bestellverwaltung><\/Bestellverwaltung><\/pre>\nZeilenumbrüche<\/h2>\n
Hier wollen wir nun zunächst einen Zeilenumbruch einfügen, denn obwohl wir das öffnende und schließende Bestellverwaltung<\/b>-Element in zwei Zeilen geschrieben haben, wird der Zeilenumbruch nicht in das Ergebnis übernommen. Das gelingt nur, wenn das entsprechende Zeichen innerhalb eines öffnenden und schließenden Elements xsl:text <\/b>eingefasst wird, also etwa so:<\/p>\n<Bestellverwaltung>\r\n <xsl:text>\r\n <\/xsl:text>\r\n <\/Bestellverwaltung><\/pre>\nEinzelne Elemente des Quelldokuments ausgeben<\/h2>\n
Sie können auf einzelne Elemente des Quelldocuments mit dem Element xsl:value-of <\/b>zugreifen und dabei den Pfad zu dem Element mit dem Attribut select <\/b>angeben.<\/p>\n
Wenn sie etwa den Wert des ersten KategorieID<\/b>-Elements unterhalb der Elemente dataroot\/tblKategorien <\/b>ausgeben wollen, verwenden Sie:<\/p>\n<xsl:value-of select=\"\/dataroot\/tblKategorien\/KategorieID\"\/><\/pre>\nFür das Feld Kategoriename <\/b>nutzen Sie:<\/p>\n<xsl:value-of select=\"\/dataroot\/tblKategorien\/Kategoriename\"\/><\/pre>\nSie müssen also den kompletten Pfad vom Wurzelelement aus angeben.<\/p>\n
<xsl:value-of select=\"\/dataroot\/tblKategorien\/KategorieID\"\/><\/pre>\nWenn es Elemente des Typs KategorieID <\/b>nur an einer Stelle gibt, können Sie auch gezielt auf das erste überhaupt verfügbare Element KategorieID <\/b>zugreifen:<\/p>\n<xsl:value-of select=\"\/\/KategorieID\"\/><\/pre>\nIn diesem Fall bedeutet \/\/<\/b>, dass an beliebiger Stelle unabhängig von der Ebene gesucht wird.<\/p>\nLeerzeichen zwischen Elemente<\/h2>\n
übrigens können Sie auch Leerzeichen zwischen zwei zusammengesetzte Textelemente nur mit xsl:text <\/b>einfügen. Einfach ein Leerzeichen wie hier reicht nicht:<\/p>\n<xsl:value-of select=\"\/\/KategorieID\"\/> <\/pre>\nStattdessen fügen Sie das Leerzeichen in xsl:text <\/b>eingefasst hinzu:<\/p>\n<xsl:value-of select=\"\/\/KategorieID\"\/><xsl:text> <\/xsl:text><xsl:value-of select=\"\/\/Kategoriename\"\/><\/pre>\nSchleifen mit for-each<\/h2>\n
Mit xsl:value-of <\/b>greifen Sie nur auf den ersten gefundenen Wert zu. Wenn Sie alle Werte mit diesem Pfad zugreifen wollen, etwa in einer Schleife, können Sie xsl:for-each <\/b>verwenden.<\/p>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 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