Create a query to convert the xml data into fields delimited by quotes and commas.
Imports System
Imports System.Xml.Linq
Imports Microsoft.VisualBasic.FileIO
Imports System.Text
Imports System.IO
Public Class MainClass
Public Shared Sub Main(ByVal args As String())
Dim employees As XElement = XElement.Load("xmlFile.xml")
Dim delimitedData As New StringBuilder
Dim xmlData = _
From emp In employees.<Employee> _
Select _
String.Format("""{0}"",""{1}"",""{2}"",""{3}"",""{4}""", _
emp.@id, emp.<Name>.Value, _
emp.<Title>.Value, emp.<HireDate>.Value, _
emp.<HourlyRate>.Value)
End Sub
End Class
Related examples in the same category