Het samenvoegen van gegevens in twee XML-documenten door het Document objectmodel (DOM) programmeren

Artikel ID: 286817 - Bekijk de producten waarop dit artikel van toepassing is.

LET OP: Dit artikel is automatisch vertaald. Meer informatie treft u aan de onderzijde van dit artikel.

Klik deze link om het automatisch vertaalde artikel weer te geven naast het originele Engelstalige artikel

Alles uitklappen | Alles samenvouwen

Samenvatting

In dit artikel wordt een voorbeeld in Visual Basic-code die laat hoe het programma de MSXML DOM Document Object Model (zien) om de gegevens die zich in twee identieke XML-documenten samen te voegen.

Samenvoegen van gegevens uit twee of meer identieke XML-documenten in een XML-document is een algemene vereiste. De code en de methode die in dit artikel wordt aangetoond kunnen verder worden uitgebreid met drie of meer XML-documenten samenvoegen.Als een nieuwere versie van MSXML is ge�nstalleerd in de side-by-side modus, moet u expliciet de Globally Unique Identifiers (GUID's) of ProgID's voor die versie gebruiken de voorbeeldcode uit te voeren. MSXML 4. 0 kan bijvoorbeeld alleen worden ge�nstalleerd in de side-by-side modus. Voor meer informatie over de code wijzigingen die nodig zijn om de voorbeeldcode uitvoert met de parser MSXML 4. 0, klikt u op het volgende artikelnummer in de Microsoft Knowledge Base:

305019

(http://support.microsoft.com/kb/305019/EN-US/ )

INFO: MSXML 4. 0 specifieke GUID's en ProgID's

Open een leeg tekstbestand in Microsoft Klad blok.

Kopieer en plak de volgende XML-code in Klad blok en sla het bestand alsxmlbooks1.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>

Open een nieuw tekstbestand in Klad blok.

Kopieer en plak de volgende XML-code in Klad blok en sla het bestand alsxmlbooks2.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>

Open een nieuw standaard-EXE-project in Visual Basic 6. 0. Form1 wordt standaard gemaakt.
Op deProjectin het menu instellen project een verwijzing naarMicrosoft XML, v3. 0of hoger.
Plaats een opdracht knop op Form1. Command1 wordt standaard gemaakt.

Kopieer en plak de volgende code in de gebeurtenisprocedure klikken van de CommandButton:

' 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"

De bovenstaande code laadt de twee XML-documenten die zijn gemaakt in stap 1 tot en met 4 in twee MSXML DOM document objecten. De gegevens in samenvoegt de code vervolgensxmlbooks2.XMLin het exemplaar van de DOM document-object met de gegevens inxmlbooks1.XML. Dit wordt bereikt door het doorlopen van de onderliggende knoop punten van het document-element van hetdoc2DOM document object en elk van hen toe te voegen aan het document element van de'Doc 1 ' heetDOM document. Ten slotte is de samengevoegde XML weer gegeven in een berichtvenster en naar een bestand op schijf.

OpenAllXMLBooks.xmlin Microsoft Internet Explorer de samengevoegde XML-document bekijken en let op de volgende 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>
	<Book>
		<Title>Beginning XML</Title>
		<Publisher>Wrox</Publisher>
	</Book>
	<Book>
		<Title>Professional XML</Title>
		<Publisher>Wrox</Publisher>
	</Book>
</Books>

Eigenschappen

Artikel ID: 286817 - Laatste beoordeling: zaterdag 26 februari 2011 - Wijziging: 2.0

De informatie in dit artikel is van toepassing op:

Microsoft Visual Basic 5.0 Enterprise Edition
Microsoft Visual Basic 6.0 Professional Edition

kbhowto kbmt KB286817 KbMtnl

Automatische vertaling

BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.

De Engelstalige versie van dit artikel is de volgende:286817

(http://support.microsoft.com/kb/286817/en-us/ )