Vb.net 使用两个数组填充新文本文件

我将如何用以前的文本文件中未找到的年份填充文本文件。我觉得我的For循环有问题。当我运行程序并创建文件时，唯一出现的年份是“2015年”，那时应该有很多，第一年开始是“1792年”

我从文本文件中提取的一行示例是“Henry，Baldwin，Andrew Jackson，PA，18301844”

“1789年任命了第一位最高法院法官。编写一个程序，创建一个文件，列出从1789年到2015年没有任命最高法院法官的年份。文件的前四行是1792、1794、1795和1797。”

谢谢你的帮助

Public Class frmJustices

Private Sub btnJusticesAppointed_Click(sender As Object, e As EventArgs) Handles btnJusticesAppointed.Click
    Dim justices() As String = IO.File.ReadAllLines("Justices.txt")
    Dim possibleYears() As String = Array.CreateInstance(GetType(String), 0)

    For i As Integer = 1789 To 2015
        ReDim possibleYears(i)
        possibleYears(i) = CStr(i)
    Next

    Dim queryYears = From year In justices
                     Let abbrev = year.Split(","c)(4)
                     Order By abbrev
                     Select abbrev

    IO.File.WriteAllLines("NoAppointments.txt", possibleYears.Except(queryYears))

End Sub
End Class

---

用REDIM进行for循环并不像你们想象的那个样。查看

Enumerable.Range（）

使用REDIM的for循环并没有做您认为它做的事情。查看

Enumerable.Range（）