[XSLT] XML to Text

Version imprimable

[XSLT] XML to Text

Bonjour à tous,

Je suis encore un peu perdu dans la transformation par XSL :oops: . je n'arrive pas à faire marcher mon code suivant:

Mon XML

Code:

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
 
<?xml version="1.0" encoding="UTF-8"?>
<exp
  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
  xsi:noNamespaceSchemaLocation="T.xsd">
  <action action-type="create">
    <cats>
      <cat id="AD" status="A">
        <effective-date date="10-26-2005" format="mm-dd-yyyy"/>
        <owner id="Nancy"/>
        <title lang="en_US"><![CDATA[adM]]></title>
        <title lang="fr_CA"><![CDATA[ADM]]></title>
        <description lang="en_US"><![CDATA[DESC1]]></description>
        <description lang="fr_CA"><![CDATA[desc2]]></description>
      </cat>
      <cat id="oD" status="A">
        <effective-date date="10-26-2005" format="mm-dd-yyyy"/>
        <owner id="PAUL"/>
        <title lang="en_US"><![CDATA[OdM]]></title>
        <title lang="fr_CA"><![CDATA[ODM]]></title>
        <description lang="en_US"><![CDATA[DESC1]]></description>
        <description lang="fr_CA"><![CDATA[desc2]]></description>
      </cat>
    </cats>
  </action>
</exp>

Mon XSL

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
<?xml version='1.0'?>
<xsl:stylesheet version="1.0"
     xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="text" encoding="UTF-8"/>
 
<xsl:template match="cats">
 
  <xsl:for-each select="cats/cat">INSERT INTO TCAT VALUES ("
    <xsl:value-of select="@id"/>", "
    <xsl:value-of select="title" />", "
    <xsl:value-of select="description" />");
  </xsl:for-each>
 
</xsl:template>

Merci d'avance. ;)

07/06/2006, 14h36
pistache42
Citation:
Envoyé par syvid

Code:

1 2 3 4 5 6 <xsl:template match="cats"> <xsl:for-each select="cats/cat"> <xsl:text>INSERT INTO TCAT VALUES ("</xsl:text> <xsl:value-of select="@id">
il me semble que tu devrais mettre "cat", à la place de "cats/cat" dans ce template...;)
07/06/2006, 14h46
syvid

Citation:

Envoyé par pistache42

il me semble que tu devrais mettre "cat", à la place de "cats/cat" dans ce template...;)

Salut pistache42!
Merci pour ta réponse mais ca change rien. J'ai toujours un output "vide"....
:(

Correction, mon fichier XSL ne serait directement en cause. Je transforme mon XML par VB et je ne sais pas pourquoi, celui ci me renvoie toujours du text vide......

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Dim oXSL As DOMDocument50
    Set oXSL = New DOMDocument50
 
    Dim objDOMDocument As DOMDocument50
    Set objDOMDocument = New DOMDocument50
 
    objDOMDocument.async = False
    objDOMDocument.Load "C:\Documents and Settings\Administrator\My Documents\EXTAXM37.xml"
 
    oXSL.async = False
    oXSL.Load "C:\Documents and Settings\Administrator\My Documents\Project\XSL\xml2EEs.xsl"
 
    ' transformation du document complet
    Dim str As String
    str = objDOMDocument.transformNode(oXSL)
    MsgBox (str)

!!?? :roll:

07/06/2006, 15h26
pistache42

effectivement ça doit venir du VB, car je viens de tester avec "cat" ça marche, par contre, je ne peux pas t'aider pour le VB, désolé...:?
07/06/2006, 15h38
syvid

c'est pas grave! Merci de tes réponses!
++

Merci de tes réponse pistache!!:ccool: ;) je te mangerai pas pour la peine...bon ok je :arrow:

Citation:

Envoyé par syvid

Correction, mon fichier XSL ne serait directement en cause. Je transforme mon XML par VB et je ne sais pas pourquoi, celui ci me renvoie toujours du text vide......

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Dim oXSL As DOMDocument50
    Set oXSL = New DOMDocument50
 
    Dim objDOMDocument As DOMDocument50
    Set objDOMDocument = New DOMDocument50
 
    objDOMDocument.async = False
    objDOMDocument.Load "C:\Documents and Settings\Administrator\My Documents\EXTAXM37.xml"
 
    oXSL.async = False
    oXSL.Load "C:\Documents and Settings\Administrator\My Documents\Project\XSL\xml2EEs.xsl"
 
    ' transformation du document complet
    Dim str As String
    str = objDOMDocument.transformNode(oXSL)
    MsgBox (str)

!!?? :roll:

Résolu:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Dim oXSL As DOMDocument
    Set oXSL = New DOMDocument
    
    Dim objDOMDocument As DOMDocument
    Set objDOMDocument = New DOMDocument
    
    objDOMDocument.async = False
    objDOMDocument.Load "C:\Documents and Settings\Administrator\My Documents\EXTAXM37.xml"

    oXSL.async = False
    oXSL.Load "C:\Documents and Settings\Administrator\My Documents\Project\XSL\xml2EEs.xsl"
    
    ' transformation du document complet
    Dim str As String
    str = objDOMDocument.transformNode(oXSL)
    MsgBox (str)