问any1知道为什么它每隔一行才读取一次吗？在识别"COM“之后

EN

While Not sr.EndOfStream
        line = sr.ReadLine
        If line.Contains("Year") Then
            currentYear = line.ToString
        ElseIf line.Contains("mandatory") Then
            moduleStats = "M"
        ElseIf line.Contains("optional") Then
            moduleStats = "O"
        ElseIf line.Contains("COM") Then
            modArray = sr.ReadLine.Split(",")
            ' Dim i As Integer = modArray.Length
            'ReDim Preserve modArray(modArray.Length + 2) 'ReDim statement to change the size of one or more dimensions of an array, 
            'Preserve you can resize that dimension and still preserve all the contents of the array

            ' modArray(i) = moduleStats
            ' modArray(i + 1) = currentYear.ToString()
            MsgBox(String.Join(",", modArray))

        End If
    End While