Output xml file to comma delimited Data : Read XML File « XML « VB.Net






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

1.Reading an XML documentReading an XML document