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 deletefile 删除文件

Delphi 解析Delphi中的loadlibrary,getprocaddress,freelibrary

Delphi10.2.3实现http异步下载

Delphi 获取内核地址的简单方法

Delphi 技巧 以相同类名派生一个子类

Delphi str1.compare 比较两个字符是否相同

Delphi 从资源文件中加载字符

Delphi 让combobox只允许输入数字和回车键以及Delphi key值表

Delphi动态创建tadoquery加access出现'不正常的定义参数对象 提供了不一致或不完整的信息'错误

Delphi 几种程序自杀的方法

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

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