Быстрая обработка CSV файла.
Автор: david bolton
Классы Tstrings/TStringlist
имеют свойство commatext, которое автоматически
разделяет строки, содержащие разделители, на
отдельные части. Пример показывает как считать CSV
файл. В Конечном итоге, автоматически
разделённые строки содержатся в TStringlist.
Совместимость: все версии Delphi
|
Собственно сам исходничек: |
Var ts : tstringlist;
S : string;
Tf : Textfile;
Begin
Ts := Tstringlist.create;
Assignfile(tf,’filename’);
Reset(tf);
While not eof(tf) do
Begin
Readln(tf,S);
Ts.CommaText := S;
//ProcessLine;
end;
closefile(tf);
ts.free;
end;
Так же операцию можно производить в обратном
порядке.
Свойство Commatext поддерживает разделители как в
виде запятых, так и двойных кавычек: 1,2,3,4 и
"1","2","3","4"
Например, строка вида "1","2,3","4"
будет разделена на три элемента, которые
заключены в кавычки (средняя запятая будет
проигнорирована). Чтобы включить кавычку в
конечный результ, нужно поставить две кавычки
подряд: "1",""2" (результат будет 1 и
"2 ).
|