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
|
