Delphi 10.3 处理CSV TStreamReader 自带Split用法

本文整理自网络，侵删。

 
测试文件：animals.csv
"NAME","SIZE","WEIGHT","AREA"
"Angel Fish",2,2,"Computer Aquariums"
"Boa",10,8,"South America"
"Critters",30,20,"Screen Savers"
"House Cat",10,5,"New Orleans"
"Ocelot",40,35,"Africa and Asia"
"Parrot",5,5,"South America"
"Tetras",2,2,"Fish Bowls"


program ReadCSV;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.Classes, System.SysUtils;

begin
  var Reader := TStreamReader.Create('animals.csv', TEncoding.Default, True); // 'animals.csv'
  try
    Reader.ReadLine;
    while not Reader.EndOfStream do                                           // EOF
      begin
        for var Field in Reader.ReadLine.Split([','], '"') do
          Writeln(Field.DeQuotedString('"'));
        Writeln;
      end;
  finally
    Reader.Free;
  end;
  Readln;
end.
 

相关阅读 >>

Delphi中获取guid的函数

Delphi显示 jpg、png、gif 图片及 gif 动画

Delphi 批量删除同类文件的函数

Delphi 判断目录是否存在,不存在则创建目录并打开,存在则直接打开

Delphi 加壳exe的方法

Delphi 清空目录以及子目录

Delphixe edit限制只能输入数字

Delphi 组件篇 之 tbevel组件

Delphi根据网络链接截取域名

Delphi 保存导出或加载资源文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 10.3 处理CSV TStreamReader 自带Split用法