TopXML XML DOM library : CSV to XML using the DOM

Home Page

Add/Edit your code items

Search the code library

Browse for the code library

XML DOM
XML DOM
XML DOM Contents
XML DOM: Inserting, Modifying and Deleting elements using VBScript
XML DOM: Adding an Child Element and an attribute using VBScript
Combining XML Documents using XSLT - a collection of 5 approaches
How to use InsertAfter() with XmlDocument?
How to remove xml elements using RemoveChild() with XmlDocument?
How to select specific nodes in XmlDocument() when having a namespace ?
How to Load a XML From a String with XmlDocument?
How to remove an attribute with XmlDocument and RemoveAll?
How to create a navigator with XmlDocument and CreateNavigator?
Whats the 'push model'?
Hybrid Model Part Two: Choosing between SAX and DOM

<< XHTML XmlSerializer >>

By	John Workman
First Posted	05/06/2003
Times viewed	2673

CSV to XML using the DOM

This post contains attachments
v20030506123458.zip

Summary I've seen too many programs where developers use string commands to build XML files. Attached are Visual Basic and JScript examples of how to read a comma delimited file and build an XML file using DOM commands.

Building an XML file is quite easy, but for some reason developers always try to do it the hard way. By using the DOM, you don't have to worry about nesting your code to keep track of open tags. Below are very clear examples in both VB and JScript that demonstrate how this is done. One thing that this example does not show is how to add an element with Text. That is done with: var objXMLDOMElement = objDOMDocument.createElement("Name"); objXMLDOMElement.text = Employee.name; or Set objXMLDOMElement = objDOMDocument.createElement("Name") objXMLDOMElement.Text = eEmp.sName

Additional information
convertCSVtoXML(); function convertCSVtoXML() { var objDOMDocument = new ActiveXObject("MSXML2.DOMDocument"); objDOMDocument.async = false; //Create Header objDOMDocument.appendChild(XMLHeader(objDOMDocument)); var objXMLDOMNode = objDOMDocument.documentElement.selectSingleNode("//Doc/"); // Create Employees Node objXMLDOMNode.appendChild(objDOMDocument.createNode(1, "Employees", "")); objXMLDOMNode = objDOMDocument.documentElement.selectSingleNode("//Doc/Employees"); // Declare Employee object -- this makes it easier to pass as a parameter var Employee = new Object(); // define fso object var fso = new ActiveXObject("Scripting.FileSystemObject"); var tso = fso.OpenTextFile("source.csv",1); var strInput; // loop through file while (!tso.AtEndOfStream) { strInput = tso.ReadLine(); var vInputLine = strInput.split(","); Employee.name = vInputLine[0~; Employee.address = vInputLine[1~; Employee.city = vInputLine[2~; Employee.state = vInputLine[3~; Employee.zip = vInputLine[4~; objXMLDOMNode.appendChild(EmployeeNode(objDOMDocument,Employee)); } var FSObject = fso.CreateTextFile("output.xml", true); FSObject.WriteLine(objDOMDocument.xml); // CLEAR OBJECTS objDOMDocument = null; fso = null; } function XMLHeader(objDOMDocument) { XMLHeader = objDOMDocument.createNode(1, "Doc", ""); var objXMLDOMAttribute = objDOMDocument.createAttribute("Version"); objXMLDOMAttribute.text = "1.0"; XMLHeader.attributes.setNamedItem(objXMLDOMAttribute); return(XMLHeader); } function EmployeeNode(objDOMDocument,Employee) { var objXMLDOMNode = objDOMDocument.createNode(1, "Employee", ""); var objXMLDOMAttribute = objDOMDocument.createAttribute("Name"); objXMLDOMAttribute.text = Employee.name; objXMLDOMNode.attributes.setNamedItem(objXMLDOMAttribute); objXMLDOMAttribute = objDOMDocument.createAttribute("Address"); objXMLDOMAttribute.text = Employee.address; objXMLDOMNode.attributes.setNamedItem(objXMLDOMAttribute); objXMLDOMAttribute = objDOMDocument.createAttribute("City"); objXMLDOMAttribute.text = Employee.city; objXMLDOMNode.attributes.setNamedItem(objXMLDOMAttribute); objXMLDOMAttribute = objDOMDocument.createAttribute("State"); objXMLDOMAttribute.text = Employee.state; objXMLDOMNode.attributes.setNamedItem(objXMLDOMAttribute); objXMLDOMAttribute = objDOMDocument.createAttribute("Zip"); objXMLDOMAttribute.text = Employee.zip; objXMLDOMNode.attributes.setNamedItem(objXMLDOMAttribute); return(objXMLDOMNode); }

Further additional information
Attribute VB_Name = "Module1" Type Employee sName As String sAddress As String sCity As String sState As String sZip As String End Type Sub Main() Dim objDOMDocument As New MSXML2.DOMDocument30 Dim objXMLDOMNode As MSXML2.IXMLDOMNode Dim objXMLDOMElement As MSXML2.IXMLDOMElement Dim vInputLine Dim strInput Dim eEmp As Employee objDOMDocument.async = False ' Create Header objDOMDocument.appendChild XMLHeader(objDOMDocument) Set objXMLDOMNode = objDOMDocument.documentElement.selectSingleNode("//Doc/") ' Create Employees Node objXMLDOMNode.appendChild objDOMDocument.createNode(1, "Employees", "") Set objXMLDOMNode = objDOMDocument.documentElement.selectSingleNode("//Doc/Employees") Open "source.csv" For Input As #1 Do While Not EOF(1) Line Input #1, strInput vInputLine = Split(strInput, ",") eEmp.sName = vInputLine(0) eEmp.sAddress = vInputLine(1) eEmp.sCity = vInputLine(2) eEmp.sState = vInputLine(3) eEmp.sZip = vInputLine(4) objXMLDOMNode.appendChild EmployeeNode(objDOMDocument, eEmp) Loop Close #1 Open "output.xml" For Append As #1 Print #1, objDOMDocument.xml Close #1 ' CLEAR OBJECTS Set objXMLDOMElement = Nothing Set objXMLDOMNode = Nothing Set objDOMDocument = Nothing End Sub Function XMLHeader(ByRef objDOMDocument As MSXML2.DOMDocument30) As MSXML2.IXMLDOMNode Dim objXMLDOMAttribute As MSXML2.IXMLDOMAttribute Set XMLHeader = objDOMDocument.createNode(1, "Doc", "") Set objXMLDOMAttribute = objDOMDocument.createAttribute("Version") objXMLDOMAttribute.Text = "1.0" XMLHeader.Attributes.setNamedItem objXMLDOMAttribute ' CLEAR OBJECTS Set objXMLDOMAttribute = Nothing End Function Function EmployeeNode(ByRef objDOMDocument As MSXML2.DOMDocument30, eEmp As Employee) As MSXML2.IXMLDOMNode Dim objXMLDOMElement As MSXML2.IXMLDOMElement Dim objXMLDOMAttribute As MSXML2.IXMLDOMAttribute Set EmployeeNode = objDOMDocument.createNode(1, "Employee", "") Set objXMLDOMAttribute = objDOMDocument.createAttribute("Name") objXMLDOMAttribute.Text = eEmp.sName EmployeeNode.Attributes.setNamedItem objXMLDOMAttribute Set objXMLDOMAttribute = objDOMDocument.createAttribute("Address") objXMLDOMAttribute.Text = eEmp.sAddress EmployeeNode.Attributes.setNamedItem objXMLDOMAttribute Set objXMLDOMAttribute = objDOMDocument.createAttribute("City") objXMLDOMAttribute.Text = eEmp.sCity EmployeeNode.Attributes.setNamedItem objXMLDOMAttribute Set objXMLDOMAttribute = objDOMDocument.createAttribute("State") objXMLDOMAttribute.Text = eEmp.sState EmployeeNode.Attributes.setNamedItem objXMLDOMAttribute Set objXMLDOMAttribute = objDOMDocument.createAttribute("Zip") objXMLDOMAttribute.Text = eEmp.sZip EmployeeNode.Attributes.setNamedItem objXMLDOMAttribute ' CLEAR OBJECTS Set objXMLDOMAttribute = Nothing Set objXMLDOMElement = Nothing End Function

Rate this article on a scale of 1 to 10 (3 votes, average 6)

Your vote :

<< XHTML XmlSerializer >>


Leave a comment for this article
Your name
Your email (optional)
Your comment
Optional: Upload an attachment
Enter the code shown:



	Recent Jobs Software Specialist, Linux - Finland Linux Core Technical Project Manager/ Sc Graphics designer at Tanzania. Experienc Integration Specialist Needed - Work Fro Virtualization Server Infrastructure Arc View all Jobs (Add yours) View all CV (Add yours)



	Partners Dream.In.Code dotNet Slackers dotNet Spider Your HTML Source VisualBuilder.com DevGuru Planet Source Code ZVON.ORG Web Design ASPAlliance XML Pitstop Scripts The Spot 4 SAP Bitshop Web Hosting

Email TopXML