Комментарии: Парсим csv и tsv файлы в delphi http://parsers.info/2010/01/parsim-csv-i-tsv-v-delphi/ Delphi блог Димаса: программирование на delphi, парсеры, статьи, размышления Sun, 29 Apr 2012 09:22:01 +0000 hourly 1 http://wordpress.org/?v=3.0 Автор: Artur Mstafin http://parsers.info/2010/01/parsim-csv-i-tsv-v-delphi/comment-page-1/#comment-222722 Artur Mstafin Fri, 17 Feb 2012 03:15:45 +0000 http://parsers.info/?p=505#comment-222722 <code> procedure TForm1.Button1Click(Sender: TObject); var sdata, srow: TStrings; i:integer; begin sdata:=TStringList.Create; srow:=TStringList.Create; srow.Delimiter:=','; <strong>srow.StrictDelimiter:='True;</strong> sdata.LoadFromFile('c:\table.csv'); StringGrid1.RowCount:=sdata.Count; for i:=0 to sdata.Count-1 do begin srow.DelimitedText:=sdata[i]; if srow.Count>StringGrid1.ColCount then StringGrid1.ColCount:=srow.Count; StringGrid1.Rows[i].Assign(srow); end; srow.Free; sdata.Free; end; </code>
procedure TForm1.Button1Click(Sender: TObject);
var
sdata, srow: TStrings;
i:integer;
begin
sdata:=TStringList.Create;
srow:=TStringList.Create;
srow.Delimiter:=',';
srow.StrictDelimiter:='True;
sdata.LoadFromFile('c:\table.csv');
StringGrid1.RowCount:=sdata.Count;
for i:=0 to sdata.Count-1 do begin
srow.DelimitedText:=sdata[i];
if srow.Count>StringGrid1.ColCount then
StringGrid1.ColCount:=srow.Count;
StringGrid1.Rows[i].Assign(srow);
end;
srow.Free;
sdata.Free;
end;

]]> Автор: tonyy http://parsers.info/2010/01/parsim-csv-i-tsv-v-delphi/comment-page-1/#comment-20414 tonyy Sat, 08 Jan 2011 10:36:35 +0000 http://parsers.info/?p=505#comment-20414 проблема такого разделения tsv данных в том, что delimiter разбивает как по символу которому ты ему указываешь так и по пробелу. т. е указываешь разделить по табуляции, а он, ..., делит по табуляции и пробелу:((((((((((((((((((((((((((((((((((((((((( проблема такого разделения tsv данных в том, что delimiter разбивает как по символу которому ты ему указываешь так и по пробелу. т. е указываешь разделить по табуляции, а он, …, делит по табуляции и пробелу:(((((((((((((((((((((((((((((((((((((((((

]]> Автор: crystalbit http://parsers.info/2010/01/parsim-csv-i-tsv-v-delphi/comment-page-1/#comment-19723 crystalbit Tue, 21 Dec 2010 20:29:47 +0000 http://parsers.info/?p=505#comment-19723 щито? щито?

]]> Автор: узе http://parsers.info/2010/01/parsim-csv-i-tsv-v-delphi/comment-page-1/#comment-19429 узе Mon, 13 Dec 2010 18:58:26 +0000 http://parsers.info/?p=505#comment-19429 ваще то в дельфи пять ниококом делимитер ни слуху ни духу .. так что харош лошать .. ваще то в дельфи пять ниококом делимитер ни слуху ни духу .. так что харош лошать ..

]]> Автор: crystalbit http://parsers.info/2010/01/parsim-csv-i-tsv-v-delphi/comment-page-1/#comment-17741 crystalbit Sat, 20 Nov 2010 18:37:04 +0000 http://parsers.info/?p=505#comment-17741 спасибо за замечание, только прочитал и исправил) странно, что и так работало =) спасибо за замечание, только прочитал и исправил) странно, что и так работало =)

]]> Автор: Вячеслав http://parsers.info/2010/01/parsim-csv-i-tsv-v-delphi/comment-page-1/#comment-13020 Вячеслав Tue, 26 Oct 2010 12:06:40 +0000 http://parsers.info/?p=505#comment-13020 у тебя в коде примера ошибка. когда назначаешь разделитель "sdata.Delimiter:=',';"-это не для того StringList, правильно будет вот так "srow.Delimiter:=',';". Исправь пожалуста, не надо вводить людей в заблуждение))))) у тебя в коде примера ошибка.
когда назначаешь разделитель «sdata.Delimiter:=’,';»-это не для того StringList, правильно будет вот так «srow.Delimiter:=’,';». Исправь пожалуста, не надо вводить людей в заблуждение)))))

]]> Автор: Артём http://parsers.info/2010/01/parsim-csv-i-tsv-v-delphi/comment-page-1/#comment-8773 Артём Wed, 16 Jun 2010 18:44:27 +0000 http://parsers.info/?p=505#comment-8773 Ты знаешь я не чего не педрю но хочу научиться подскажи литературу по данному разделу Ты знаешь я не чего не педрю но хочу научиться подскажи литературу по данному разделу

]]> Автор: Айван http://parsers.info/2010/01/parsim-csv-i-tsv-v-delphi/comment-page-1/#comment-5679 Айван Fri, 05 Mar 2010 15:45:48 +0000 http://parsers.info/?p=505#comment-5679 Сам вначале долго программировал на 1Cv77. Как же я потом матерился в дельфи, когда искал аналог функции "ИзСтрокиСразделителем", а потом пришлось ручками писать свой аналог. Зато теперь любой разделитель в качестве параметра задается и ву-аля :) Сам вначале долго программировал на 1Cv77. Как же я потом матерился в дельфи, когда искал аналог функции «ИзСтрокиСразделителем», а потом пришлось ручками писать свой аналог. Зато теперь любой разделитель в качестве параметра задается и ву-аля :)

]]> Автор: crystalbit http://parsers.info/2010/01/parsim-csv-i-tsv-v-delphi/comment-page-1/#comment-4230 crystalbit Wed, 13 Jan 2010 11:13:15 +0000 http://parsers.info/?p=505#comment-4230 Соглашусь, TStringList - не самый оптимальный вариант, зато всё уже сделано за нас. А с небольшими таблицами скорость существенной роли не играет. Ваш алгоритм не столь сложен в реализации простых таблиц, немного придётся потрудиться в случае, когда каждый элемент заключен в кавычки (QuoteChar). В принципе, повод, чтобы написать модуль для работы с dsv на winapi :) Соглашусь, TStringList – не самый оптимальный вариант, зато всё уже сделано за нас. А с небольшими таблицами скорость существенной роли не играет.
Ваш алгоритм не столь сложен в реализации простых таблиц, немного придётся потрудиться в случае, когда каждый элемент заключен в кавычки (QuoteChar). В принципе, повод, чтобы написать модуль для работы с dsv на winapi :)

]]> Автор: Sergey http://parsers.info/2010/01/parsim-csv-i-tsv-v-delphi/comment-page-1/#comment-4221 Sergey Wed, 13 Jan 2010 03:11:20 +0000 http://parsers.info/?p=505#comment-4221 Ну во первых, TStringList не самый быстрый способ распарсить строку Во вторых readln тоже не самый быстрый способ считывания csv файлов. По вашему примеру алгоритм примерно таким будет: 1. readln считывает из файла по байтно ища разделитель строк 2. найденная строка передаётся в stringlist, который снова проверяет всю строку посимвольно и разделяет строку. 3. Каждый элемент stringlist копируется в ячейку grid Тут однозначно можно провести небольшой апгрейд алгоритма, тобишь оптимизацию: 1. Считываем например 1000 байт из файла в память. 2. Посимвольно проверяем каждый байт ища указанный разделитель или разделитель строк. 3. Если найден csv-разделитель, то копируем найденную часть строки в ячейку grid 4. Если разделитель строк, то создаем новую строку в grid 5. Таким образом считываем весь файл. Алгоритм конечно сложнее по реализации, но скорость парсинга dsv файлов вырастает на порядок (проверенно опытным путём). Ну во первых, TStringList не самый быстрый способ распарсить строку Во вторых readln тоже не самый быстрый способ считывания csv файлов.
По вашему примеру алгоритм примерно таким будет:
1. readln считывает из файла по байтно ища разделитель строк
2. найденная строка передаётся в stringlist, который снова проверяет всю строку посимвольно и разделяет строку.
3. Каждый элемент stringlist копируется в ячейку grid

Тут однозначно можно провести небольшой апгрейд алгоритма, тобишь оптимизацию:
1. Считываем например 1000 байт из файла в память.
2. Посимвольно проверяем каждый байт ища указанный разделитель или разделитель строк.
3. Если найден csv-разделитель, то копируем найденную часть строки в ячейку grid
4. Если разделитель строк, то создаем новую строку в grid
5. Таким образом считываем весь файл.

Алгоритм конечно сложнее по реализации, но скорость парсинга dsv файлов вырастает на порядок (проверенно опытным путём).

]]>