将VB.Net CSV文件读入列表时出现问题，缺少一半的值

Imports Microsoft.VisualBasic.FileIO

Public Class CSVReader
    Public Shared Function ReadCSVFile(filePath As String) As List(Of List(Of String))
        Dim result As New List(Of List(Of String))()

        Using parser As New TextFieldParser(filePath)
            parser.TextFieldType = FieldType.Delimited
            parser.SetDelimiters(",")

            While Not parser.EndOfData
                Dim row As New List(Of String)()
                Dim fields As String() = parser.ReadFields()

                For Each field As String In fields
                    ' 处理包含特殊字符的值
                    field = field.Replace("""", "")

                    row.Add(field)
                Next

                result.Add(row)
            End While
        End Using

        Return result
    End Function
End Class

Dim filePath As String = "path/to/your/csv/file.csv"
Dim data As List(Of List(Of String)) = CSVReader.ReadCSVFile(filePath)

For Each row As List(Of String) In data
    For Each field As String In row
        Console.WriteLine(field)
    Next
Next