Visual Basic - system.nullReferenceException

Question

所以在编程方面我还是个新手，因此我使用 Visual Basic。我反复引发此异常，但是 vb 所说的具有未分配值的变量已在我的代码中被赋予了值。谁能指出我哪里出了问题？

编辑：还有一些细节：文件存在，我可以使用 ReadLine 方法从中读取，但我需要拆分字段以便比较分数并获得最高的 2 个分数

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    Dim srdFile As System.IO.StreamReader
    Dim strLine As String
    Dim strField(1) As String
    Dim strName() As String
    Dim strScore() As String
    Dim i = 0

    srdFile = New System.IO.StreamReader("HighScores.dat")
    rtbOut.AppendText("HighScores:" & vbNewLine & vbNewLine)

    Do Until srdFile.Peek() = -1

            strLine = srdFile.ReadLine()
            strField = strLine.Split(",")

            strName(i) = strField(0)
            strScore(i) = strField(1)

            rtbOut.AppendText(strName(i) & ", " & strScore(i) & vbNewLine)

            i = i + 1

    Loop
End Sub

Answer 1

以下两个数组永远不会初始化：strName 和 strScore

我不知道逻辑，但一种方法是使用List(Of String)，而不需要首先获得正确的大小并且可以调整大小。我还将使用Using-statement 正确处理流：

Using srdFile As New System.IO.StreamReader("HighScores.dat")
    Dim strLine As String
    Dim strField(1) As String
    Dim strName As New List(Of String)
    Dim strScore As New List(Of String)
    Dim i = 0

    rtbOut.AppendText("HighScores:" & vbNewLine & vbNewLine)
    Do Until srdFile.Peek() = -1
        strLine = srdFile.ReadLine()
        strField = strLine.Split(","c)
        strName.Add(strField(0))
        strScore.Add(strField(1))

        rtbOut.AppendText(strName(i) & ", " & strScore(i) & vbNewLine)
        i += 1
    Loop
End Using

旁注：我建议默认将Option Strict 设置为On。

---

顺便说一句，这是一种完全不同的方法，但使用LINQ：

Dim lines = From line In IO.File.ReadLines("HighScores.dat")
            Where Not String.IsNullOrWhiteSpace(line)
            Let fields = line.Split(","c)
            Let name = fields.First()
            Let score = fields.Last()
            Select String.Format("{0}, {1}", name, score)
rtbOut.Text = String.Join(Environment.NewLine, lines)

我觉得这更具可读性。

Answer 2

在使用数组之前，您需要在计算机内存位置分配一个固定的数组大小。您可以通过使用数组元素的数量初始化一个数组来做到这一点。在您的代码中，您在使用它们之前没有为 strName() 和 strScore() 分配任何内存，因此代码将引发异常。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim srdFile As System.IO.StreamReader
    Dim strLine As String
    Dim strField(1) As String
    Dim strName(10) As String ''fixed size array (Using List(Of T) is a better option)
    Dim strScore(10) As String ''fixed size array (Using List(Of T) is a better option)
    Dim i = 0

    srdFile = New System.IO.StreamReader("HighScores.dat")
    rtbOut.AppendText("HighScores:" & vbNewLine & vbNewLine)

    Do Until srdFile.Peek() = -1

        strLine = srdFile.ReadLine()
        strField = strLine.Split(",")

        strName(i) = strField(0)
        strScore(i) = strField(1)

        rtbOut.AppendText(strName(i) & ", " & strScore(i) & vbNewLine)

        i = i + 1

    Loop
End Sub

您还可以创建动态数组。请关注 Stackoverflow 上的 Resizing an array at runtime in VB.NET 了解动态数组。