4個のアイテムを追加した後にリストの数が8になるのはなぜですか？

Question

は、私は、次を含むCSVファイルQuestions.csvを持っている：

Question ID, A, B, C, 
1, TestA, TestB, TestC 
2, TestA, TestB, TestC 
3, TestA, TestB, TestC 

私のコードでは、私はファイルから読み取られ、値を使用して、質問オブジェクトを作成し、リストに質問オブジェクトを追加するには、次の方法があります。

Public Sub getQuestionsAndAnswers() 

Dim allQuestions As New List(Of Question) 

Using ioReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("Resources/Questions.csv") 

    ioReader.TextFieldType = FileIO.FieldType.Delimited 
    ioReader.SetDelimiters(",") 
    'ioReader.ReadFields() 
    While Not ioReader.EndOfData 

     Dim arrCurrentRow As String() = ioReader.ReadFields() 
     Dim aQuestion As Question = New Question(arrCurrentRow(0), arrCurrentRow(1), arrCurrentRow(2)) 
     allQuestions.Add(aQuestion) 

    End While 

End Using 

私はそれだけで4がなければならないとき、8つの項目がリスト内にあると言っているのはなぜそれが8に等しいallQuestions.count()を使用してリストのサイズを確認すると？

Answer 1

理想的ではない、これは私のために動作しますが：

私のコードでチェック

Public Sub getQuestionsAndAnswers() 
    Dim allQuestions As New List(Of Question) 

    Using ioReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("Resources/Questions.csv") 

     ioReader.TextFieldType = FileIO.FieldType.Delimited 
     ioReader.SetDelimiters(",") 
     'ioReader.ReadFields() 
     While Not ioReader.EndOfData 

      Dim arrCurrentRow As String() = ioReader.ReadFields(0).Split(",") 
      Dim aQuestion As Question = New Question(arrCurrentRow(0), arrCurrentRow(1), arrCurrentRow(2)) 
      allQuestions.Add(aQuestion) 

     End While 

    End Using 
End Sub 

、これでそれは4件の結果を返し、それなしでコードがのために例外を投げたので、私は私の余分な分割をしなければならなかったものの、デリミタは実際には動作しません。