• Registered: 2016-03-04
  • Posts: 11

Topic: Вывод строки или всего содержимого Table Gird в файл формата CSV

Доброго дня всем!
Прошу помощи по следующему вопросу:как написать макрос для SQL Lite, что бы содержимое (или выделенная строка) из Table Gird экспортировалась в файл формата CSV. На mySQL такой макрос был написан:
SELECT * FROM userTable INTO OUTFILE '/user_gird.csv' FIELDS TERMINATED BY ',' OPTIONALLY ENCLOSED BY '"' LINES TERMINATED BY '\n';
Понятно, что на SQL Lite это не работает. Есть действие батона "Открыть в Exel" - нужно что-то подобное. Перешерстил пол Инета - есть только консольные решения на bach в Unix`е.
Прошу Вашей помощи, друзья!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вывод строки или всего содержимого Table Gird в файл формата CSV

Приветствую,


Извиняюсь за задержку с ответом, был в отпуске, вопрос все еще актуален для вас?

Dmitry.
  • Registered: 2016-03-04
  • Posts: 11

Re: Вывод строки или всего содержимого Table Gird в файл формата CSV

Да, конечно.
PS: Приобрели Вашу программу, спасибо за труд!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вывод строки или всего содержимого Table Gird в файл формата CSV

Все содержимое грида экспортировать в CSV можно так:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.TableGrid1.SaveToTextFile('d:\export.csv');
end;
Dmitry.
  • Registered: 2016-07-27
  • Posts: 180

Re: Вывод строки или всего содержимого Table Gird в файл формата CSV

присоединяюсь к вопросу.
скажите, пожалуйста, как вывести именно выбираемую строку в гриде или несколько выбранных?

stas.kodpi's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вывод строки или всего содержимого Table Gird в файл формата CSV

stas.kodpi wrote:

присоединяюсь к вопросу.
скажите, пожалуйста, как вывести именно выбираемую строку в гриде или несколько выбранных?

Можно, пример

procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
var
    i,c: integer;
    sFileName: string;
    sLine: string;
begin
    sFileName := 'exported.csv';

    c := Form1.TableGrid1.RowCount-1;
    for i := 0 to c do
    begin
        if Form1.TableGrid1.Selected[i] then
        begin
            sLine := Form1.TableGrid1.Cells[0,i]+',';
            sLine := sLine + Form1.TableGrid1.Cells[1,i]+',';
            sLine := sLine +  Form1.TableGrid1.Cells[2,i];
            WriteLnToFile(sFileName, sLine);
        end;
    end;

end;

У компонента TableGrid необходимо включить возможность выбора записей используя Ctrl.
Сделать это можно установив значение True у свойства 

Additional > Options > goMultiSelect

Также можете скачать проект с данным примером:

Post's attachments

Attachment icon Export to CSV using script.zip 7.49 kb, 326 downloads since 2016-12-13 

Dmitry.