Discussion :

[AdD92]

Bonjour,
Un programme en VBS crée un fichier XML.
Ce fichier contient plusieurs sections repérées par des balises normées.
En fin d'exécution du programme, j'aimerai lancer une feuille XLST qui prendrait ce fichier nouvellement créé et l'éclaterait en n fichiers suivant des critères dans la feuille XSLT.
(Pour moi, il est plus facile de gérer la génération des fichiers que de toucher au programme de génération du fichier [requêtes multiples, ...])

Question :

• Commen code-t-on pour "lancer" cette feuille xslt ?
• Y-a-t-il des exemples ? (je n'ai rien trouvé - pour l'instant - sur le web).

Grand merci d'avance pour votre aide.

Cordialement.

[hackoofr]

Postez votre code et
Je ne sais pas, si vous voulez l'ouvrir avec IE ou quelque chose d'autre

[AdD92]

Bonjour,

Désolé, je me suis mal exprimé.
J'ai écris un programme batch en VBS.
Ce programme extrait des données d'une base ORACLE et constitue un fichier XML.
Ce fichier XML contient des balises "normées" (par nous) telles que : <IMMO>, <PAYE>, <RECETTES>, ...
À la fin ce traitement (mais dans ce traitement batch), je voudrai exécuter une feuille XSLT qui va éclater ce fichier XML en différents fichiers :
IMMO_aaaammjjhhss.XLM, PAYE_aaaammjjhhss.XML, ...
Tout ce traitement s'exécute en batch. Il n'y a pas de IE ou autre navigateur dans la course.
Dernière précision : Ces fichiers sont récupérés par un ERP qui les intègre via un programme batch.

Comme exemple ci dessous, le code vérifie l'adéquation d'un fichier xml avec sa feuille XSD, je cherche un bout de code pour exécuter une feuille xLST.

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
'--- Nom du fichier à vérifier
Dim NomFic
Nomfic = "PREV SEPA GILLES.xml"
Dim WshShell
Set WshShell=CreateObject("WScript.Shell")
Dim xmlDoc
set xmlDoc=CreateObject("Msxml2.DOMDocument.6.0")
xmlDoc.async=false
xmlDoc.validateOnParse=true
Dim xmlSchema
set xmlSchema=CreateObject("Msxml2.DOMDocument.6.0")
xmlSchema.async=false
xmlSchema.validateOnParse=true
xmlSchema.load "Pain.008.001.02.xsd"
Dim xsdCache
set xsdCache=CreateObject("Msxml2.XMLSchemaCache.6.0")
xsdCache.add "urn:iso:std:iso:20022:tech:xsd:pain.008.001.02", xmlSchema
Set xmlDoc.schemas = xsdCache
xmlDoc.load NomFic
Set myErr=xmlDoc.parseError
If(myErr.errorCode<>0) Then
        WScript.Echo("Fichier : " & NomFic & VbLf & VbLf & "errorReason="+myErr.reason)
else
        WScript.Echo("Fichier : " & NomFic & VbLf & VbLf & "ok")
End If
msgbox "Fini"

Voilà, j'espère avoir répondu à ta question.

Cordialement.

[AdD92]

Bonjour,

Finalement, j'ai trouvé des éléments de réponse.

Ce lien explique comment installer le parseur xsltproc :
http://www.revue-texto.net/Corpus/Ma...giciels.html#2.

Ce lien explique comment l'utiliser :
http://www.becoz.org/these/docbook/html/ar01s03.html

Ce sont des exemples facile à transposer dans n'importe quel langage.

J'espère que cela pourra aider quelqu'un d'autre.

Cordialement.

[tsuji]

Je vois mal pourquoi une solution hétérogène soit désirable. Msxml2 est tout à fait capable de faire des transformations tout en restant sous contrôle d'un script vbs.

La transformation se fait comme ça.

Code vbscript :

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
dim xsltfile 
xsltfile="xyz.xsl"    'ou plusieurs pour différente résultats désirée; comme donnée 
dim outfile    'ou plusieurs; pour persister le(s) résultats de transformation
outfile="out.xml"
 
dim stylesheet, result
set stylesheet = createobject("Msxml2.DOMDocument.6.0")
with stylesheet
    .async=false
    bret=.load xsltfile
end with
'Avec les contrôle d'erreurs du chargement comme d'habitude commencer avec bret...
'ce bloc n'est pas montré mais supposant qu'il soit là
 
'Etablir un objet pour recueillir la résultat de transformation
set result = createobject("Msxml2.DOMDocument.6.0")
with result
    .async=false
    .validateOnParse=false
end with
 
'xmlDoc est ce qui est établi aupravant
xmlDoc.transformNodeToObject stylesheet, result
result.save outfile

Si on envisage de multiple éclartement, on fait un boucle avec des fichiers xsltfile et outfile chaque fois différents et appropriés.

[AdD92]

Merci Tsuji,

C'est super.
C'est exactement ce que je cherchais.

T'es un As.

Merci.
Cordialement.