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
1. | Reading an XML document |