Comment faire pour fusionner des données dans deux documents XML par programmation le modèle d'objet document (DOM)

Traductions disponibles Traductions disponibles
Numéro d'article: 286817 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Résumé

Cet article documente un exemple de code Visual Basic qui illustre comment programmer le MSXML DOM Document Object Model () pour fusionner les données contenues dans deux documents XML identiques.

Plus d'informations

Fusion des données contenues dans deux ou plusieurs documents XML identiques dans un seul document XML est un impératif courants. La code et la méthode qui est démontré dans cet article peuvent être plus développées pour fusionner des trois ou de plusieurs documents XML. Si une version plus récente de MSXML a été installée en mode côte à côte, vous devez explicitement utiliser le GUID des identificateurs uniques (GUID) ou le ProgID pour cette version pour exécuter le code exemple. Par exemple, MSXML 4.0 peut uniquement être installé en mode côte à côte. Pour plus d'informations sur les modifications de code qui sont requis pour exécuter l'exemple de code avec l'analyseur MSXML 4.0, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la Base de connaissances Microsoft :
305019 INFO : MSXML 4.0 spécifiques GUID et ProgID
  1. Ouvrir un fichier texte vide dans le Bloc-notes Microsoft.
  2. Copiez et collez le code XML suivant dans le bloc-notes et puis enregistrez le fichier en tant que xmlbooks1.xml :
    <?xml version="1.0"?>
    <Books>
       <Book>
          <Title>XML Step By Step</Title>
          <Publisher>MS Press</Publisher>
       </Book>
       <Book>
          <Title>Developing XML Solutions</Title>
          <Publisher>MS Press</Publisher>
       </Book>
    </Books>
    					
  3. Ouvrez un nouveau fichier texte dans le bloc-notes.
  4. Copiez et collez le code XML suivant dans le bloc-notes et puis enregistrez le fichier en tant que xmlbooks2.xml :
    <?xml version="1.0"?>
    <Books>
       <Book>
          <Title>Beginning XML</Title>
          <Publisher>Wrox</Publisher>
       </Book>
       <Book>
          <Title>Professional XML</Title>
          <Publisher>Wrox</Publisher>
       </Book>
    </Books>
    					
  5. Ouvrez un nouveau projet EXE standard dans Visual Basic 6.0. Form1 est créé par défaut.
  6. Dans le menu projet , définir une référence de projet vers Microsoft XML, version 3.0 ou version ultérieure.
  7. Placez un bouton de commande sur Form1. Command1 est créé par défaut.
  8. Copier et coller le code suivant dans la procédure d'événement Click du bouton de commande :
    ' In the ProgIDs below, change 30 to reflect the installed version of the Microsoft XML Parser.
    ' For example, use Dim doc1 As MSXML2.DOMDocument40 for MSXML 4.
    
    Dim doc1 As MSXML2.DOMDocument30
    Dim doc2 As MSXML2.DOMDocument30
    Dim doc2Node As MSXML2.IXMLDOMNode
    
    Set doc1 = New MSXML2.DOMDocument30
    Set doc2 = New MSXML2.DOMDocument30
    
    doc1.Load "d:\xmlbooks1.xml"
    doc2.Load "d:\xmlbooks2.xml"
    
    For Each doc2Node In doc2.documentElement.childNodes
      doc1.documentElement.appendChild doc2Node
    Next
    
    MsgBox doc1.xml
    
    doc1.save "d:\AllXMLBooks.xml"
    					
  9. Le code précédent charge les deux documents XML qui sont créés aux étapes 1 à 4 dans les deux objets DOMDocument MSXML. Le code fusionne ensuite les données xmlbooks2.xml dans l'instance de l'objet DOMDocument contenant les données de xmlbooks1.xml . Pour cela en parcourant les n?uds enfants de l'élément de document de l'objet DOMDocument doc2 et ajoutez chacun d'eux à l'élément de document de doc1 DOMDocument. Enfin, le code XML fusionné est affiché dans une zone de message et conservé dans un fichier sur disque.
  10. Ouvrez AllXMLBooks.xml dans Microsoft Internet Explorer pour afficher le document XML fusionné et notez le code XML suivant :
    <?xml version="1.0"?>
    <Books>
    	<Book>
    		<Title>XML Step By Step</Title>
    		<Publisher>MS Press</Publisher>
    	</Book>
    	<Book>
    		<Title>Developing XML Solutions</Title>
    		<Publisher>MS Press</Publisher>
    	</Book>
    	<Book>
    		<Title>Beginning XML</Title>
    		<Publisher>Wrox</Publisher>
    	</Book>
    	<Book>
    		<Title>Professional XML</Title>
    		<Publisher>Wrox</Publisher>
    	</Book>
    </Books>
    					

Propriétés

Numéro d'article: 286817 - Dernière mise à jour: jeudi 1 juillet 2004 - Version: 3.2
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft XML Parser 2.0
  • Microsoft XML Parser 2.5
  • Microsoft XML Parser 2.6
  • Microsoft XML Parser 3.0
  • Microsoft XML Core Services 4.0
  • Microsoft Visual Basic 5.0 Édition Entreprise
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 6.0 Édition Entreprise Service Pack 3
  • Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 4
  • Microsoft Visual Basic 6.0 Édition professionnelle
Mots-clés : 
kbmt kbhowto KB286817 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 286817
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com