Discussion :

[zidenne]

Hello les amis
je utilise pour cree une Fichier XML l´outil:
-DOMDocument40
MSXML2.IXMLDOMElement
j´ai obtenue une Fichier, mais tout le fichiee est sur un ligne seulement:

Code :

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

<noeudRacine><Balise1 At1="Attribut1">la Texte 1</Balise1><Balise1 At2="Attribut2">Le texte 2</Balise1><Balise1 At3="Attribut3">Le texte 3</Balise1></noeudRacine>

mais je veux mon Fichier sur cette forme:

Code :

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

1
2
3
4
5
<noeudRacine>
                  <Balise1 At1="Attribut1">la Texte 1</Balise1>
                  <Balise1 At2="Attribut2">Le texte 2</Balise1>
                  <Balise1 At3="Attribut3">Le texte 3</Balise1>
         </noeudRacine>

es que il y a une solution
merci

[zidenne]

j´ai trouver cette Code sur internet, mais il ne fonctionne pas:
alors cette Code ouvre le fichier une autre fois et essaie de decouper le texte

Code vb :

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

1
2
3
4
5
6
7
8
 'now do another parsing test that all was good
    'this parse also adds alignment to the generated nodes
     xmlDoc.Load (XML_FILE_NAME)
     If (xmlDoc.parseError.ErrorCode <> 0) Then
        Set xmlParseError = xmlDoc.parseError
        Call MsgBox("XML parser error: " & xmlParseError.reason, vbCritical)
     End If
     xmlDoc.Save (XML_FILE_NAME)

[tsuji]

D'abord le script ce que vous avez "trouvé" n'est pas terrible pour traiter le problème comme ceci et ça montre que vous n'êtes peut-être pas trop à l'aise avec vbs; mais la fonctionalité rechercher qui peut parâitre anodin pour beaucoup est hélas pas si élémentaire avec en plus l'encodage est quelque chose de central pour xml et qu'il faut le traiter avec soins.

Je peux vous passer une fonction (ou sub comme vous voulez) minimale pour le faire avec les fichiers xml encodés en utf-8 (on peut bien entendu relacher préciséement pour les encodages d'après ce qu'on besoin).

Code vb :

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
function prettyprint(inxml, outxml)
 
    set writer=createobject("msxml2.mxxmlwriter.4.0")
    with writer
        .indent=true
        .encoding="utf-8"	
        .omitxmldeclaration=true
    end with
 
    set reader=createobject("msxml2.saxxmlreader.4.0")
    with reader
        set .contenthandler=writer
        .putProperty "charset", "utf-8"
    end with
 
    set ostream=createobject("adodb.stream")
    with ostream
        .type=2    'adTypeBinary=1, adTypeText=2
        .charset="utf-8"
        .open
        reader.parseURL inxml
        .writetext writer.output
 
        .position=0
        .type=2    'adTypeText=2
        .savetofile outxml,2    'adSaveCreateNotExist=1, adSaveCreateOverWrite=2
        .flush
        .close
    end with
    set ostream=nothing
 
    set reader=nothing
    set writer=nothing
end function

Pour la faire appeler, on passe les parcours pour les fichiers "in" et "out", grosso modo, comme ça.

Code vb :

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

1
2
3
4
5
6
7
8
9
10
XML_FILE_NAME="input.xml"
output="output.xml"    'il se peut être input.xml, mais on ne peut plus refaire
on error resume next
prettyprint XML_FILE_NAME, output
if err.number <> 0 then
    wscript.echo hex(err.number) & vbcrlf & err.description
else
    wscript.echo "pretty print utf-8 encoded xml done"
end if
on error goto 0