FICHIERS : ENREGISTREZ EN XML !

Signaler
Messages postés
399
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
6 septembre 2004
-
ElDamino25
Messages postés
3
Date d'inscription
mercredi 1 juillet 2009
Statut
Membre
Dernière intervention
9 juillet 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5471-fichiers-enregistrez-en-xml

ElDamino25
Messages postés
3
Date d'inscription
mercredi 1 juillet 2009
Statut
Membre
Dernière intervention
9 juillet 2009

Merci beaucoup :)
ElDamino25
Messages postés
3
Date d'inscription
mercredi 1 juillet 2009
Statut
Membre
Dernière intervention
9 juillet 2009

Malgré que je soit un peu en retard par rapport au message de vatoo, quelqu'un pourrait-il m'expliquer pourquoi lorsque je colle le code en notepad et que je l'active, il me dit qu'il y a un problème avec la 2eme ligne??
Et par la même occasion, quelqu'un serait- il assez aimable que pour m'expliquer le pourquoi du comment dans ce style de programmation?
Duke49
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
2
Depuis 2002 ta dû bien progresser en XML.
Ton partage est extra; si ta une source MSXML2 du Document v6, pense à nous.

C'est un plaisir de lire ton code, y a pas assez d'exemple comme celui là.
Nic0s
Messages postés
10
Date d'inscription
vendredi 2 avril 2004
Statut
Membre
Dernière intervention
18 décembre 2008

pour le saut de ligne entre chaque balise , le langage xml n'en a pas besoin. mais pour que vos lecteurs xml le fasse intelligemment il manque la déclaration du xml ( la ligne : <?xml version="1.0" encoding="UTF-8"?> au début du fichier...)

voici le code pour l'ajouter:
'au niveau des declaration
Dim xmlPI As MSXML2.IXMLDOMProcessingInstruction

'avant le xml.save par exemple ...
'création et insertion de l'entête XML
Set xmlPI = xml.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
xml.insertBefore xmlPI, xdoc

xml.Save "C:\\Documents and settings\\Vatoo\\Mes documents\\d.dxp"