Imports System.Collections.Generic
Class Car
Public PetName As String
Public ID As Integer
End Class
Module Program
Sub Main()
Dim data As New List(Of Car)
data.Add(New Car With {.PetName = "A", .ID = 10})
data.Add(New Car With {.PetName = "Pat", .ID = 11})
data.Add(New Car With {.PetName = "Danny", .ID = 12})
data.Add(New Car With {.PetName = "B", .ID = 13})
Dim vehicles As XElement = _
New XElement("Inventory", _
From c In data _
Select New XElement("Car", _
New XAttribute("ID", c.ID), _
New XElement("PetName", c.PetName) _
) _
)
Console.WriteLine(vehicles)
End Sub
End Module
|