Public Class Car
Public PetName As String = String.Empty
Public Color As String = String.Empty
Public Speed As Integer
Public Make As String = String.Empty
Public Overloads Overrides Function ToString() As String
Return String.Format("Make={0}, Color={1}, Speed={2}, PetName={3}", _
Make, Color, Speed, PetName)
End Function
End Class
Module Program
Sub Main()
Dim myCars As New List(Of Car)(New Car() { _
New Car With {.PetName = "D", .Color = "Silver", .Speed = 100, .Make = "BMW"}, _
New Car With {.PetName = "C", .Color = "Tan", .Speed = 90, .Make = "BMW"}, _
New Car With {.PetName = "B", .Color = "Rust", .Speed = 5, .Make = "Yugo"}, _
New Car With {.PetName = "A", .Color = "White", .Speed = 43, .Make = "Ford"}})
Dim myCarsName As String() = {"Y", "A", "B"}
Dim yourCars As String() = {"B", "S", "A"}
' Find the differences.
Dim carDiff = (From c In myCarsName Select c) _
.Except(From c2 In yourCars Select c2)
For Each s As String In carDiff
Console.WriteLine(s)
Next
End Sub
End Module
|