1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
rsXsltTemplate = '<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">' +
'<xsl:output method="xml" indent="yes"/>'+
'<xsl:template match="@* | node()">'+
'<xsl:copy>'+
'<xsl:apply-templates select="@* | node()"/>'+
'</xsl:copy>'+
'</xsl:template>'+
'</xsl:stylesheet>';
var
aXml, aXsl, aXmlToSave: IXMLDOMDocument;
begin
// Création de l'objet xml
aXml := CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
aXml.async := False;
// On charge le fichier xml
aXml.load(sFileName);
// Feuille de style
aXsl := CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
aXsl.async := False;
// On charge le fichier xml
aXsl.loadXml(rsXsltTemplate);
// On enregistre le fichier xml avec la feuille de style
aXmlToSave := CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
aXmlToSave.async := False;
aXmlToSave.validateOnParse := true;
aXml.TransformNodeToObject(aXsl,aXmlToSave);
aXmlToSave.Save(sFileName);
end; |
Partager