Output xml file to comma delimited Data
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)
For Each row In xmlData
delimitedData.AppendLine(row)
Next
Console.WriteLine(delimitedData.ToString)
File.WriteAllText("data.txt", delimitedData.ToString)
End Sub
End Class
Related examples in the same category