只读取csv

Question

中的某些列，因此我有一个csv文件，其中包含额外的逗号。我知道在特定专栏之后我不会需要任何东西。所以基本上，我不需要第12栏后面的任何信息。我对csv看起来如何看起来没有发言权，所以我不能在那里改变它。我想知道是否有办法读取前12列并忽略csv文件的其余部分。

这就是代码现在的样子。

感谢您的帮助

Private Sub GetData(ByVal Path As String, ByRef DG As DataGridView, Optional ByVal NoHeader As Boolean = False) 
    Dim Fields(100) As String 
    Dim Start As Integer = 1 
    If NoHeader Then Start = 0 
    If Not File.Exists(Path) Then 
     Return 
    End If 
    Dim Lines() As String = File.ReadAllLines(Path) 
    Lines(0) = Lines(0).Replace(Chr(34), "") 
    Fields = Lines(0).Split(",") 
    If NoHeader Then 
     For I = 1 To Fields.Count - 1 
      Fields(I) = Str(I) 
     Next 
    End If 

    dt = New DataTable() 

    For Each Header As String In Fields 
     dt.Columns.Add(New DataColumn(Header.Trim())) 
     Dim desiredSize As Integer = 11 

     While dt.Columns.Count > desiredSize 
      dt.Columns.RemoveAt(desiredSize) 
     End While 

    Next 
    For I = Start To Lines.Count - 1 
     Lines(I) = Lines(I).Replace(Chr(34), "") 
     Fields = Lines(I).Split(",") 

     Dim dr As DataRow = dt.Rows.Add() 
     For j = 0 To Fields.Count - 1 
      dr(j) = Fields(j).Trim() 
     Next 

    Next 

    DG.DataSource = dt 
End Sub 

Answer 1

真的所有你需要做的是，在for循环，你通过Fields底部迭代，用For j = 0 to 11更换For j = 0 to Fields.Count - 1。