[XML] Transformation XSL

**abertaud** · 07/05/2007, 16h43

J'ai un fichier XML que je voudrais transformer en un autre fichier XML, un peu plus optimisé.

J'ai fait pour cela un fichier XSLT, qui permet de supprimer toutes les balises qui ne m'interessent pas.

Est-il possible de faire appliquer ce XSL à mon fichier XML directement dans un VBScript. J'ai eu beau chercher, je n'ai pour l'instant rien trouvé qui puisse me mettre sur la voie.

**SfJ5Rpw8** · 07/05/2007, 18h02

tiens issue de l'aide MSDN :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim oXml 
set oXml = CreateObject("MSXML2.DOMDocument")
Dim oXsl 
set oXsl = CreateObject("MSXML2.DOMDocument")
oXml.validateOnParse = False
oXml.async = False
oXml.Load ("hello.xml") 'Attention au chemin du fichier
If oXml.parseError.errorCode <> 0 Then
  MsgBox "erreur chargement XML : " & oXml.parseError.reason
Else
 oXsl.async = False
 oXsl.Load ("hello.xsl")
 If oXsl.parseError.errorCode <> 0 Then
  MsgBox "erreur chargement XsL : " & oXsl.parseError.reason
 Else
  wScript.Echo oXml.transformNode(oXsl.documentElement)
 
End If
End If

le fichier helo.xml correspondant :

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
<?xml version="1.0"?>
<?xml-stylesheet type="text/xsl" href="hello.xsl"?>
<hello-world>   <greeter>An XSLT Programmer</greeter>   <greeting>Hello, World!</greeting></hello-world>

le fichier hello.xsl :

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
<?xml version="1.0"?><xsl:stylesheet       xmlns:xsl="http://www.w3.org/1999/XSL/Transform"      version="1.0">
   <xsl:template match="/hello-world">       <HTML>         <HEAD>
           <TITLE></TITLE>
         </HEAD>         <BODY>            <H1><xsl:value-of select="greeting"/></H1>            <xsl:apply-templates select="greeter"/>         </BODY>       </HTML>   </xsl:template>
   <xsl:template match="greeter">       <DIV>from            <I><xsl:value-of select="."/></I>       </DIV>
   </xsl:template>
</xsl:stylesheet>

**abertaud** · 09/05/2007, 10h09

Ca ne fonctionne pas tel quel, mais ca "marchouille" :

Je perds en fait l'indentation mais surtout, je ne peux pas faire marcher la fonction si mon fichier XML initial garde la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
<ElementsRecuperes xmlns:xsi="http://www.w3.org/2000/10/XMLSchema-instance" 
  xsi:noNamespaceSchemaLocation="20070503-090205-export.xsd">

Référence à un préfixe d'espace de noms non déclaré : 'xsi'.

Pour que la processus fonctionne, je dois supprimer les attributs de ma balise racine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<ElementsRecuperes>

Que l'indentation disparaisse, ce n'est pas gênant, elle doit pouvoir être recréée facilement. Par contre, être obligé de supprimer mon "SchemaLocation", c'est bien plus embêtant...

**SfJ5Rpw8** · 09/05/2007, 10h14

ben on n'as vu ni ton XML ni ton XSL...? cela viens peu-être d'eux...

si c'est un probléme spécifique XML/XSL .. tu aurai peu-être de meilleure réponse ici XSL/XSLT/XPATH

PS: merci quand même de nous tenir au courant...

**abertaud** · 09/05/2007, 10h29

Je doute que le souci vienne d'eux ; la transformation a déjà été testée "à la main" avec un logiciel d'édition XML et XSLT. Tout se passe bien. C'est la mise en place de l'automatisation par VBScript de la transformation qui donne ces problèmes.

Mon SXL est très simple, il permet de supprimer un type de balise (ID_Source) et de garder TOUT le reste:

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<?xml version="1.0" encoding="ISO-8859-15"?>
<xsl:transform  version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
	<xsl:output method="xml" version="1.0" encoding="ISO-8859-15" indent="yes"/>
	<xsl:template match="node()" priority="1">
		<xsl:copy>
			<xsl:apply-templates select="node()|@*"/>
		</xsl:copy>
	</xsl:template>
	<!-- règles pour les contenus de balise : on recopie -->
	<xsl:template match="text()" priority="1">
		<xsl:value-of select="."/> 
	</xsl:template>
	<!-- regle pour les balises : on recopie -->
	<xsl:template match="@*" priority="1">
		 <xsl:attribute name="{name()}">
			<xsl:value-of select="."/>
		</xsl:attribute> 
	</xsl:template>
	<!-- règle spécifique à la balise ID_Source : on vire la ligne (pas de recopie) -->
	<xsl:template match="ID_Source" priority="2"/>
</xsl:transform>

le XML est lui aussi plutôt basique :

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

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
33
<?xml version="1.0" encoding="ISO-8859-15"?>
<ElementsRecuperes xmlns:xsi="http://www.w3.org/2000/10/XMLSchema-instance" 
  xsi:noNamespaceSchemaLocation="20070503-090205-export.xsd">
    <ObjetRecupere>
        <Application>
            <Identifiant>iDJWHEiW5Te5</Identifiant>
            <Nom>Réservation</Nom>
            <Commentaire></Commentaire>
            <Numéro_de_version>2.1</Numéro_de_version>
        </Application>
        <Lien>
            <Nom>Message-Emis</Nom>
            <ID_Source>iDJWHEiW5Te5</ID_Source>
            <ID_Destination>ACJWJRiW5vD6</ID_Destination>
        </Lien>
        <Lien>
            <Nom>Message-Emis</Nom>
            <ID_Source>iDJWHEiW5Te5</ID_Source>
            <ID_Destination>VFJW3RiW5DC6</ID_Destination>
        </Lien>
    </ObjetRecupere>
    <ObjetRecupere>
        <Message>
            <Identifiant>ACJWJRiW5vD6</Identifiant>
            <Nom>ventes réalisées </Nom>
        </Message>
        <Lien>
            <Nom>Application-Emettrice</Nom>
            <ID_Source>ACJWJRiW5vD6</ID_Source>
            <ID_Destination>iDJWHEiW5Te5</ID_Destination>
        </Lien>
    </ObjetRecupere>
    ...

Appliqué à la main avec XMLSpy, le XSL permet bien d'aboutir au résultat cherché

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

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
<?xml version="1.0" encoding="ISO-8859-15"?>
<ElementsRecuperes xmlns:xsi="http://www.w3.org/2000/10/XMLSchema-instance" 
  xsi:noNamespaceSchemaLocation="20070503-090205-export.xsd">
    <ObjetRecupere>
        <Application>
            <Identifiant>iDJWHEiW5Te5</Identifiant>
            <Nom>Réservation</Nom>
            <Commentaire></Commentaire>
            <Numéro_de_version>2.1</Numéro_de_version>
        </Application>
        <Lien>
            <Nom>Message-Emis</Nom>
            <ID_Destination>ACJWJRiW5vD6</ID_Destination>
        </Lien>
        <Lien>
            <Nom>Message-Emis</Nom>
            <ID_Destination>VFJW3RiW5DC6</ID_Destination>
        </Lien>
    </ObjetRecupere>
    <ObjetRecupere>
        <Message>
            <Identifiant>ACJWJRiW5vD6</Identifiant>
            <Nom>ventes réalisées </Nom>
        </Message>
        <Lien>
            <Nom>Application-Emettrice</Nom>
            <ID_Destination>iDJWHEiW5Te5</ID_Destination>
        </Lien>
    </ObjetRecupere>
    ...

[XML] Transformation XSL

VBScript

Discussions similaires

Partager

Partager