Merge two xmls to one in VB.NET

Question

0.00/5 (No votes)

See more:

i have 2 xmls namely 1.xml and 2.xml.
i want to merge the 2.xml to 1.xml and create a single xml .

<Container>
  <Cow1>
    <IEnumMetadata />
  </Cow1>
  </Container>

and

<Container>
  <Cow2>
    <IEnumMetadata />
  </Cow2>
  <Cow3>
    <IEnumMetadata />
  </Cow3>
</Container>

i have merged them but the problem is i need to merge the content only for me the output is

<Container>
  <Cow1>
    <IEnumMetadata />
  </Cow1>
  <Container>
    <Cow2>
      <IEnumMetadata />
    </Cow2>
    <Cow3>
      <IEnumMetadata />
    </Cow3>
  </Container>
</Container>

but i want to get it as

<Container>
  <Cow1>
    <IEnumMetadata />
  </Cow1>
      <Cow2>
      <IEnumMetadata />
    </Cow2>
    <Cow3>
      <IEnumMetadata />
    </Cow3>
 </Container>

Any help please

What I have tried:

Dim doc1 As New XmlDocument()
       Dim doc2 As New XmlDocument()

       If File.Exists("2.xml") Then

           doc2.Load(2.xml)
       End If

       If File.Exists(1.xml) Then

           doc1.Load(1.xml)
       End If

       Dim lnodContainer As Xml.XmlNode = doc2.SelectSingleNode("//Container")

       Dim copiedNode As XmlNode = doc1.ImportNode(lnodContainer, True)
       doc1.DocumentElement.AppendChild(copiedNode)

       doc1.Save("Mergd.xml")

Posted 7-May-20 3:51am

Vert12

Updated 7-May-20 4:30am

v4

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

phil.o · Accepted Answer · 2020-05-07T04:05:00

Solution 1

Try

VB.NET

Dim lnodContainer As Xml.XmlNode = doc2.SelectSingleNode("//Container")
ForEach child As XmlNode In lnodContainer.ChildNodes
   doc1.AppendChild(child)
Next

There are some missing double-quotes around file names; I would be surprised this would compile as is.

Posted 7-May-20 4:05am

phil.o

Updated 7-May-20 4:28am

v2

Comments

Vert12 7-May-20 10:15am

thanks but will the compiler accepts it because innerXml is a sting type, will it be converted to XmlNode type

phil.o 7-May-20 10:28am

You are right. I modified my solution to enumerate the nodes in doc2 and append them to doc1.

Richard Deeming · Accepted Answer · 2020-05-07T04:30:00

Try something like this:

VB.NET

If File.Exists("1.xml") AndAlso File.Exists("2.xml") Then
    Dim doc1 As New XmlDocument()
    doc1.Load("1.xml")
    
    Dim doc2 As New XmlDocument()
    doc2.Load("2.xml")
    
    If doc2.DocumentElement.HasChildNodes Then
        For Each node As XmlNode In doc.DocumentElement.ChildNodes
            Dim copiedNode As XmlNode = doc1.ImportNode(node, True)
            doc1.DocumentElement.AppendChild(copiedNode)
        Next
    End If
    
    doc1.Save("Merged.xml")
End If