Discussion :

[aupawi]

Bonjour,

J'essaie de d’exécuter un VBScript au sein d'un XSLT en vain, le but étant d'aller chercher des informations dans un objet COM (CATIA) pour s'en servir dans une fonction java.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
<?xml version="1.0" encoding="UTF-8"?>
 
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxsl="urn:schemas-microsoft-com:xslt"
 
  xmlns:lxslt="http://xml.apache.org/xslt"
  xmlns:PP="ARC-LH-COMAU"
 
  xmlns:my="urn:my-namespace"
  extension-element-prefixes="PP">
 
 
  <lxslt:component prefix="PP" functions="comau" elements="">
    <lxslt:script lang="javaclass" src="cmp.delmia.tools.ARC_LH_COMAU"/>
  </lxslt:component>  
 
  <msxsl:script language="VBScript" implements-prefix="my"><![CDATA[
 function xmlFileDirectory(task)
 
    Set CATIA = Wscript.GetObject(,"CATIA.Application")
 
 
    Set myProcess = CATIA.ActiveDocument
    Set mySP = myProcess.PPRDocument.Resources.Item(1)
    Set myProductRobot = mySP.Products.Item(1)
    Set RPM = myProductRobot.GetTechnologicalObject("ResourceProgramManager")
 
 
    RPM.GetTask task, oTask
 
     Set oOlp = myProductRobot.GetTechnologicalObject("OLPTranslator")
 
     xmlfileDirectory=oOlp.GetXMLFileDirectory
 end function
  ]]> </msxsl:script>
 
  <xsl:variable name="srcPath" select="/OLPData/Resource/GeneralInfo/TempPath"/>
  <xsl:variable name="TaskName" select="/OLPData/Resource/ActivityList/@Task"/>
  <xsl:variable name="destPath" select="my:xmlFileDirectory $TaskName"/>
 
 
  <xsl:template match="OLPData">
 
        <xsl:value-of select="PP:comau($destPath,$srcPath)"/>
 
  </xsl:template>
</xsl:stylesheet>

Je précise que le code vbscript s'éxécute très bien à partir d'un fichier VBS.

Merci d'avance à toutes les bonnes âmes passant par là.

[tsuji]

Enlevez le host WScript pour GetObject, il n'est pas disponible dans ce genre d'environnement sauf que le processus soit lancé par wscript/cscript. Essayez-le, comme ça.

Code :

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

1
2
    'Set CATIA = Wscript.GetObject(,"CATIA.Application")
    Set CATIA = GetObject(,"CATIA.Application")

[aupawi]

J'ai essayé sans le Wscript mais l'erreur est identique.
Voici l'erreur remonté dans la fenetre dos :


Après avoir mis entre parenthèse "$TaskName"

Code :

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

  <xsl:variable name="destPath" select="my:xmlFileDirectory($TaskName)"/>

Comme ci l'interpréteur pense que c'est une fonction java?

[tsuji]

Après avoir mis entre parenthèse "$TaskName"

Oui, c'est aussi nécessaire, absolument. L'élimination de Wscript est aussi, rassurez-vous.

Le reste à clarifier, c'est que comment vous lançez la transformation. Quel moteur xslt? Pour avoir le support de msxsl namespace, il faut utilser leur moteur implémenté par Msxml2 pgid autrefois ou System.Xml assemblage (System.Xml.Xsl namespace). Dans une plateforme depuis de temps immémorial, msxsl.exe marche aussi très bien encore.

[aupawi]

Merci pour tes réponses.

Je ne sais pas exactement quel moteur xslt est appelé.
Je sais par contre que le logiciel qui lance la feuille XSLT utilise xalan.

[tsuji]

Je sais par contre que le logiciel qui lance la feuille XSLT utilise xalan.

Dans ce cas, c'est non. Il ne reconnaît pas le namespace urn:schemas-microsoft-com:xslt, aucune chance à le faire marcher.

[aupawi]

Ok, merci pour toutes ces réponses je pense donc plutôt sur exécuter mon VBS à partir de JAVA et récupérer le retour du script dans un fichier txt.
Je tag ce fil en résolu puisque la réponse à été donnée.