Discussion :

[morinxav1]

Bonjour,

soit un fichier xml ci-joint

je voudrais reprendre du fichier xml:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<?xml version="1.0" encoding="UTF-8"?>
<Document xmlns = "indication fixe">
    <BkToCstmrDbtCdtNtfctn>
        <GrpHdr>
            <MsgId>A- a recopier dans fichiers destination</MsgId>
            <CreDtTm>B - a recopier dans fichiers destination</CreDtTm>
        </GrpHdr>
 
...<Ntfctn> a incorporer en fonction (voir suite)......</Ntfctn>
 
    </BkToCstmrDbtCdtNtfctn>
</Document>

et en fonction de :

Code :

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

1
2
3
4
            <Acct>
                <Id>
                    <IBAN>valeur 1</IBAN>
                </Id>

copier les nodes <Ntfctn> de valeur 1 dans fichier 1, de valeur 2 dans fichier 2 ...

1/comment exporter la partie fixe du fichier dans chaques fichiers crées ?

2/ comment copier un node <Ntfctn> entier en fonction de la valeur dans <Acct> ... <IBAN>?
3/ comment le coller a la suite dans le fichier correspondant a la valeur ?



Cordialement

[habot]

Tu pourrais certainement t'inspirer de l'article Manipuler des fichiers XML en VBScript avec XPath de Baptiste Witcht

[morinxav1]

merci,
je lis la doc et je viens refaire ma conclusion si résolu

cordialement

[morinxav1]

Bonjour,

1/comment exporter la partie fixe du fichier dans chaques fichiers crées :

soit le fichier database.xml :

Code :

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

1
2
3
4
5
6
<?xml version="1.0" encoding="iso-8859-1"?>
<root>
<userxml>test</userxml>
		<tata>aaaa</tata>
<userxml>test2</userxml>	
</root>

le vbs :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
set WshShell = WScript.CreateObject("WScript.Shell")
stFicXml = WshShell.ExpandEnvironmentStrings("database.xml")
 set xmldoc = CreateObject("Microsoft.XMLDOM")
xmldoc.async = "false"
dim lots, l, lot 
if xmldoc.load(stFicXml) Then 
	set lots = xmldoc.selectNodes("root")
	for each lot in lots
	set l = lot.cloneNode(true)
	msgbox l.xml
	next
Else
    MsgBox "Erreur ouverture fichier xml"
End If

=> Résolue

je crée un autre poste pour le reste.

cordialement








Cordialement