Discussion :

[syvid]

Bonjour à tous,

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

Mon XML

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
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 :

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

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.

[pistache42]

Code :

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

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...

[syvid]

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"....

[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 :

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
 
    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)

!!??

[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é...

[syvid]

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

[syvid]

Merci de tes réponse pistache!! je te mangerai pas pour la peine...bon ok je

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 :

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
 
    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)

!!??

Résolu:

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
    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)