How to combine two XML files in classic ASP?

Question

I use classic ASP in my project. I want to combine two XML together. How can I do it? The following is sample code:

XML 1

<CATALOG> <CD> <TITLE>1</TITLE> <ARTIST>Bob Dylan</ARTIST> <COUNTRY>USA</COUNTRY> <COMPANY>Columbia</COMPANY> <PRICE>10.90</PRICE> <YEAR>1985</YEAR> </CD> <CD> <TITLE>2</TITLE> <ARTIST>Bonnie Tyler</ARTIST> <COUNTRY>UK</COUNTRY> <COMPANY>CBS Records</COMPANY> <PRICE>9.90</PRICE> <YEAR>1988</YEAR> </CD> <CD> <TITLE>3</TITLE> <ARTIST>Dolly Parton</ARTIST> <COUNTRY>USA</COUNTRY> <COMPANY>RCA</COMPANY> <PRICE>9.90</PRICE> <YEAR>1982</YEAR> </CD> </CATALOG> 

xml2

 <CATALOG> <CD> <TITLE>4</TITLE> <ARTIST>Gary Moore</ARTIST> <COUNTRY>UK</COUNTRY> <COMPANY>Virgin records</COMPANY> <PRICE>10.20</PRICE> <YEAR>1990</YEAR> </CD> <CD> <TITLE>5</TITLE> <ARTIST>Eros Ramazzotti</ARTIST> <COUNTRY>EU</COUNTRY> <COMPANY>BMG</COMPANY> <PRICE>9.90</PRICE> <YEAR>1997</YEAR> </CD> <CD> <TITLE>6</TITLE> <ARTIST>Bee Gees</ARTIST> <COUNTRY>UK</COUNTRY> <COMPANY>Polydor</COMPANY> <PRICE>10.90</PRICE> <YEAR>1998</YEAR> </CD> </CATALOG> 

This is the ASP code that I am currently using:

 Dim doc1 ''# As MSXML2.DOMDocument30 Dim doc2 ''# As MSXML2.DOMDocument30 Dim doc2Node ''# As MSXML2.IXMLDOMNode Set doc1 = createobject("MSXML2.DOMDocument.3.0") Set doc2 = createobject("MSXML2.DOMDocument.3.0") doc1.Load "01.xml" doc2.Load "02.xml" For Each doc2Node In doc2.documentElement.childNodes doc1.documentElement.appendChild doc2Node Next response.write doc1.xml 

But now I get the error message:

  Microsoft VBScript runtime error '800a01a8' 

 Object required: 'documentElement'

Answer 1

Turning around at Jørn Schou-Rode, answer:

 <% Dim doc1 'As MSXML2.DOMDocument30 Dim doc2 'As MSXML2.DOMDocument30 Dim doc2Node 'As MSXML2.IXMLDOMNode Set doc1 = createobject("MSXML2.DOMDocument.3.0") Set doc2 = createobject("MSXML2.DOMDocument.3.0") doc1.Load "01.xml" doc2.Load "02.xml" Response.Write ( doc1.xml.Replace("</CATALOG>", doc2.xml.Replace( "<?xml version="1.0" encoding="ISO-8859-1" ?>","").Replace("<CATALOG>","") ) %> 

This will replace the doc1.xml tag with doc2.xml without the first two lines, but again it will only work in this situation when you have these two xml files and they do not contain duplicated nodes.

You can read files using FileSystemObject, which will be faster, but the advantage of loading it in the DOM is that it will only load well-formed xml.

Answer 2

Disclaimer: This answer contains a ghetto solution for the issue in question. While for this specific task it should work fine, it will not solve any XML-related problem.

Given that you just need to merge the nodes directly below the node document in two documents, this should be trivial to solve the issue using simple string manipulation, without parsing the actual XML. To get an idea:

• Read all the lines except the last of 01.xml and write them to the output stream.
• Read all the lines except the first two of 02.xml and write them to the output stream.

My VBScript is pretty rusty, but I believe something like this should trim it:

 Const ForReading = 1 Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set textStream = objFSO.OpenTextFile(Server.MapPath("01.xml"), ForReading) lastLine = "" Do While Not textStream.AtEndOfStream Response.Write lastLine lastLine = TextStream.readline Loop Set textStream = objFSO.OpenTextFile(Server.MapPath("02.xml"), ForReading) counter = 0 Do While Not textStream.AtEndOfStream counter = counter + 1 If counter > 2 Then Response.Write TextStream.readline End If Loop 

Answer 3

Your basic approach should work. I suspect that one of your documents is loading incorrectly because it is not correct or has an encoding error. Please check what this modification gives:

 Set doc1 = LoadXml("01.xml", True) Set doc2 = LoadXml("02.xml", True) ''# ... all the rest of your stuff ... Function LoadXml(XmlPath, FailOnError) Dim xml, e Set xml = Server.CreateObject("MSXML2.DOMDocument.3.0") xml.Load XmlPath Set e = xml.parseError If e.errorCode <> 0 Then DebugPrint "XML parsing error " & e.errorCode DebugPrint "in file " & e.url DebugPrint "on line: " & e.line & ", pos: " & e.linePos DebugPrint "reason: " & e.reason DebugPrint "source: " & e.srcText If FailOnError Then Response.End End If Set LoadXml = xml End Function Sub DebugPrint(s) Response.Write Server.HTMLEncode(s) & "<br>" End Sub