opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Grid export: implement JSON Lines format. Closes #1930

Browse Source
This commit is contained in:
Ansgar Becker
2024-04-21 18:08:39 +02:00
parent d094e45619
commit 96c8f3c660
1 changed files with 38 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
source/exportgrid.pas
View File

@ -23,7 +23,8 @@ type
efJiraTextile,
efPHPArray,
efMarkDown,
efJSON
efJSON,
efJSONLines
);
TfrmExportGrid = class(TExtForm)
@ -116,7 +117,8 @@ type
('jira-textile'),
('php'),
('md'),
('json')
('json'),
('jsonl')
);
const FormatToDescription: Array[TGridExportFormat] of String =
(
@ -134,7 +136,8 @@ type
('Jira Textile'),
('PHP Array'),
('Markdown Here'),
('JSON')
('JSON'),
('JSON Lines')
);
const FormatToImageIndex: Array[TGridExportFormat] of Integer =
(
@ -152,7 +155,8 @@ type
154, // Jira
202, // PHP
199, // Markdown
200 // JSON
200, // JSON
200 // JSON Lines
);
const CopyAsActionPrefix = 'actCopyAs';
property Grid: TVirtualStringTree read FGrid write FGrid;
@ -917,6 +921,13 @@ begin
tmp := CRLF + #9#9 + '{' + CRLF
else
tmp := CRLF + #9#9 + '[' + CRLF
end;
efJSONLines: begin
if chkIncludeColumnNames.Checked then
tmp := '{'
else
tmp := '[';
end
else tmp := '';
@ -1051,6 +1062,22 @@ begin
end;
end;
efJSONLines: begin
if chkIncludeColumnNames.Checked then
tmp := tmp + FormatPhp(Grid.Header.Columns[Col].Text) + ': ';
if GridData.IsNull(ResultCol) then
tmp := tmp + 'null, '
else begin
case GridData.DataType(ResultCol).Category of
dtcInteger, dtcReal:
tmp := tmp + Data;
else
tmp := tmp + FormatPhp(Data)
end;
tmp := tmp + ', ';
end;
end;
end;
end;
@ -1086,6 +1113,13 @@ begin
else
tmp := tmp + #9#9 + '],';
end;
efJSONLines: begin
Delete(tmp, length(tmp)-1,2);
if chkIncludeColumnNames.Checked then
tmp := tmp + '}' + #10
else
tmp := tmp + ']' + #10;
end;
end;
S.WriteString(tmp);