.net 使用Lumen中的CsvReader与“;”分隔符一起工作
我和LumenWorks的CsvReader有两个小问题 第一个my*.csv文件有一个;定界符。没什么大不了的,我只需要更改阅读器中的delimiter属性,但实际上要比这稍微复杂一些,因为头以一个字母结尾;太多了,但不是那些排 例如:.net 使用Lumen中的CsvReader与“;”分隔符一起工作,.net,vb.net,linq,csv,.net,Vb.net,Linq,Csv,我和LumenWorks的CsvReader有两个小问题 第一个my*.csv文件有一个;定界符。没什么大不了的,我只需要更改阅读器中的delimiter属性,但实际上要比这稍微复杂一些,因为头以一个字母结尾;太多了,但不是那些排 例如: Column1;Column2;Column3; 1;Michael;Page 2;Michael;Jackson ... 有没有办法向读者表明这一点 第二个问题是如何动态选择要导入的列 我的代码编写如下: Public Sub ImportCSV2Data
Column1;Column2;Column3;
1;Michael;Page
2;Michael;Jackson
...
有没有办法向读者表明这一点
第二个问题是如何动态选择要导入的列
我的代码编写如下:
Public Sub ImportCSV2Data(ByVal filename As String, ByRef gridToShow As GridControl, ByVal column2Import() As Integer)
Dim csvCopy As CachedCsvReader = New CachedCsvReader(New StreamReader(filename), True, ";"c)
Dim processedCopy = csvCopy.Select(Function(showColumn) New With{.SAPNo = column(0),.CCode = column(2)})
gridToShow.DataSource = processedCopy
End Sub
但是如何使所选列取决于column2Import中的值
谢谢依赖CSVReader并不是一件坏事,但如果您有特殊要求,也许依赖传统的StreamReader会更容易,而不是花时间进行所需的修改。示例代码:
Dim sr As System.IO.StreamReader = New System.IO.StreamReader("target CSV file path")
Dim line As String
'Adapt this code to retrieve the column names from the file itself or from other source
Dim getColumnNames As Boolean = True
Dim columnNames() As String = Nothing
Do
line = sr.ReadLine()
If (line IsNot Nothing) Then
if(line.Contains(";")) then
If (columnNames Is Nothing And getColumnNames) Then
columnNames = line.Split(";")
Else
Dim curRowVals() As String = line.Split(";")
'All the row values
End If
End If
End If
Loop Until line Is Nothing
要回答第二个问题,即如何选择列的子集,请执行以下操作:
Dim result As IEnumerable(Of String()) = csvCopy.
Select(Function(fields) fields.Where(Function(f, i) column2Import.Contains(i))
.ToArray())
睡了一夜好觉后,我有了这个想法:
Dim csvCopy As CachedCsvReader = New CachedCsvReader(New StreamReader(filename), True, ";"c)
csvCopy.MissingFieldAction = MissingFieldAction.ReplaceByEmpty
Dim headers() As String = csvCopy.GetFieldHeaders
For Each column As Integer In column2Import
datatable.Columns.Add(headers(column))
Next
While csvCopy.ReadNextRecord()
Dim csvRow As DataRow = datatable.NewRow
Dim i As Integer = 0
For Each column As Integer In column2Import
csvRow(i) = csvCopy(column)
i += 1
Next
datatable.Rows.Add(csvRow)
End While
csvCopy.MissingFieldAction=MissingFieldAction.ReplaceByEmpty解决了我的第二个问题,其余的我的第一个问题它不起作用,而不是我的csv数据我有长度、长度、秩、同步根的列,是只读的,。。。当我调用CsvReader而不是CachedCsvReader时,看起来是同一个问题。Column2Import包含必须选择的列的索引。如果我不够清楚,很抱歉。@Rave:linq查询只选择Column2Import中的列索引。每行的fields对象包含字符串[]形式的所有列,该字符串提供的索引仅用于选择所需的列。ToArray将从这些数组中创建一个新数组。如果我们用And替换And,那么就不会再有错误了。你的代码真的是个好主意,但事实是我的csv中有20k行,这就是为什么我尝试使用csvreader进行快速阅读的原因。也许我可以试着打开csv文件删除最后一个;从headers行,保存它并由csvreader读取?@Rave我不太确定csvreader是否比传统的streamreader快那么多。打开和编辑文件意味着浪费太多时间。此外,CSVreader并不像上面建议的代码那样灵活。为什么不用20k文件测试这段代码,看看需要多长时间?PS:感谢AndAlso的评论;最近,我通常用C语言编程,有时会忘记这些VB细节。@Rave你的AndAlso评论主要对那些更习惯C的人来说是不错的,但我介绍的更正也很好,因此不需要更改。甚至循环也可能有一段时间处于顶部,因此可以忽略IsNothing条件或AndAlso。有很多选择是可以的;这里最重要的是该代码对您的具体情况的适用性。顺便说一句,该特定的streamreader代码直接来自MSDN。@Rave我现在理解您的问题了!!!您没有正确理解正在处理的维度。尝试一种简单的方法使其工作,我希望您将进一步分析,并根据您的情况提出最佳配置。我将通过评论的方式发表,因为这并不真正影响我的答案=依赖传统的streamreader并处理来自它的所有信息。执行此操作…@Rave Dim datatable As datatable=New datatable datatable.Columns.Add0 datatable.Columns.Add1 datatable.Columns.Add2获取实际为值数组的每一行的值后,写入以下内容:Dim curRowVals As String=line.Split;datatable.Rows.AddcurRowVals0、curRowVals1、curRowVals2通过这种方式,您将向datatable写入相应的行/列。在循环外部,通过执行以下操作将datatable分配给datagridview:DataGridView1.DataSource=datatable