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. _
Select _
String.Format("""{0}"",""{1}"",""{2}"",""{3}"",""{4}""", _
emp.@id, emp..Value, _
emp..Value, emp..Value, _
emp..Value)
For Each row In xmlData
delimitedData.AppendLine(row)
Next
Console.WriteLine(delimitedData.ToString)
File.WriteAllText("data.txt", delimitedData.ToString)
End Sub
End Class