From: Chikar, Karim (karim.chikar@be.unisys.com)
Date: 10/01/2001 - 12:50
Mon Xsl n'est pas compatible avec MSXML3.
-----Original Message-----
From: roch.baduel@ca-indosuez.com [mailto:roch.baduel@ca-indosuez.com]
Sent: Wednesday, January 10, 2001 1:19 PM
To: xml-tech@xmlfr.org
Subject: [xml-tech] Réf. : [xml-tech] Batch
une solution simple : utiliser MSXML3 a l'aide d'un scrip vbs ou js
ex:
Dim obj1
Dim obj2
Dim obj3
Dim fichier
Dim contenu
Set obj1 = WScript.CreateObject("MSXML2.DOMDocument")
Set obj2 = WScript.CreateObject("MSXML2.DOMDocument")
If WScript.Arguments.count() < 3 Then
WScript.echo("la syntaxe est : transforme fichier_entree fichier_xsl
fichier_sortie [debug]")
WScript.Quit
End If
obj1.async = false
obj2.async = false
obj1.load(WScript.Arguments(0)) 'fichier d'entree
'
obj2.load(WScript.Arguments(1)) 'fichier xslt
'Set elm =
obj2.documentElement.selectSingleNode("//xsl:param[@name='unite']/@select")
'elm.value = "'" & fic & "'"
'contenu va contenir les données du fichier xml avec le style du fichier xsl
contenu = obj1.transformNode(obj2)
'indique à l'écran le contenu de la variable contenu
If WScript.Arguments.count()>3 Then
wscript.echo(contenu)
wscript.quit
End If
'création du fichier de sortie
'insertion de la variable contenu dans ce fichier
Set obj3 = CreateObject("Scripting.FileSystemObject")
Set fichier = obj3.CreateTextFile(WScript.Arguments(2) , True) ' fichier de
sortie
fichier.Write(contenu)
fichier.Close
wscript.echo("fin de generation")
"Chikar, Karim" <karim.chikar@be.unisys.com> le 10/01/2001 11:10:34
Veuillez répondre à xml-tech@xmlfr.org
Pour : xml-tech@xmlfr.org
cc : (ccc : Roch BADUEL/RPG/DOSI/BANQUE_INDOSUEZ/FR)
Objet : [xml-tech] Batch
--
Devenez redacteur <XML>fr et contribuez au developpement du
xml francophone (http://xmlfr.org/infos/redacteurs/) !
Liste de diffusion "xml-tech@xmlfr.org" (http://xmlfr.org).
Cette liste est a votre disposition pour discuter en francais de
tout sujet technique lie a XML.
Pour resilier votre abonnement, envoyez un message contenant
la commande "unsubscribe" a xml-tech-request@xmlfr.org
(mailto:xml-tech-request@xmlfr.org?Subject=unsubscribe)
Archive générée par hypermail 2.1.3 le 28/06/2004 - 11:05 UTC
webmaster@xmlfr.org
| 
