or using strings instead of integers:
vb Code:
Dim queryAppointments() As String = (From line In IO.File.ReadAllLines("Justices.txt") _ Where Not line.Trim = "" _ Let fields = line.Split(","c) _ Select fields(4)).ToArray Dim queryNoAppointments() As String = Enumerable.Range(1789, 221).Select(Function(i) i.ToString).Except(queryAppointments).ToArray IO.File.WriteAllLines("filename", queryNoAppointments)




Reply With Quote
