我有一个CSV文件要与FireDAC BatchMove系列组件(TextReader和DataSetWriter)一起导入。
示例CSV数据
Vehicle,State,Toll distance (mi),Distance (mi),Time (hours)
Tr226,VA,0.0,8679.9,142.5
Tr114,VA,0.0,7227.2,151.5示例代码
{FDBatchMove, FDBatchMoveTextReader, FDBatchMoveDataSetWriter, and FDMemTable are declared in the Private declarations of my form}
FDBatchMove := TFDBatchMove.Create(nil);
FDBatchMoveTextReader := TFDBatchMoveTextReader.Create(nil);
FDBatchMoveDataSetWriter := TFDBatchMoveDataSetWriter.Create(nil);
FDMemTable := TFDMemTable.Create(nil);
FDBatchMoveTextReader.FileName := 'Y:\Shared\VehicleShort.csv';
FDBatchMoveDataSetWriter.DataSet := FDMemTable;
FDBatchMove.Reader := FDBatchMoveTextReader;
FDBatchMove.Writer := FDBatchMoveDataSetWriter;
FDBatchMove.Analyze := [taDelimSep, taHeader, taFields];
FDBatchMove.AnalyzeSample := 10;
FDBatchMove.Execute;执行完上面的代码块后,我循环遍历FDMemTable并显示第一个字段的内容:
FDMemTable.First;
while not FDMemTable.Eof do
begin
ShowMessage(FDMemTable.Fields[0].AsString);
FDMemTable.Next;
end;我得到了以下答案。请注意,最后一个字符被剪掉了:
Tr22
Tr11如果我修改CSV数据以包括更长的车辆名称,如Truck226和Truck114,我会得到相同的问题,最后一个字符被截断。
Truck22
Truck11我对这里能做的事情有点不知所措。我需要在运行时创建BatchMove组件,而Delphi附带的演示没有深入到足以让我自己解决这个问题。
发布于 2019-10-25 01:42:22
在FredS发表评论后,我意识到如果我从我的SO问题中构建项目,它是有效的。这让我意识到我的文件一定有其特殊性。我意识到我的文件只有换行符。我用回车符\行换行符替换了所有换行符,它起作用了。
经过一些研究,我可以使用FDBatchMoveTextReader.DataDef.EndOfLine来控制这种行为。
发布于 2019-10-24 12:36:48
csv中的字符串字段没有用分隔符(双引号或单引号)括起来,因此必须设置FDBatchMoveTextReader.DataDef.Delimiter := #0;
https://stackoverflow.com/questions/58532149
复制相似问题