' + CRLF;
end;
efExcel, efCSV: begin
Separator := GridData.Connection.UnescapeString(editSeparator.Text);
Encloser := GridData.Connection.UnescapeString(editEncloser.Text);
Terminator := GridData.Connection.UnescapeString(editTerminator.Text);
if chkColumnHeader.Checked then begin
Col := Grid.Header.Columns.GetFirstVisibleColumn;
while Col > NoColumn do begin
// Alter column name in header if data is not raw.
Data := Grid.Header.Columns[Col].Text;
if (GridData.DataType(Col).Category in [dtcBinary, dtcSpatial]) and (not Mainform.actBlobAsText.Checked) then
Data := 'HEX(' + Data + ')';
// Add header item.
if Header <> '' then
Header := Header + Separator;
Header := Header + Encloser + Data + Encloser;
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
end;
Header := Header + Terminator;
end;
end;
efXML: begin
Header := '' + CRLF + CRLF +
'' + CRLF;
end;
efLaTeX: begin
Header := '\begin{tabular}';
Separator := ' & ';
Encloser := '';
Terminator := '\\ '+CRLF;
Header := Header + '{';
Col := Grid.Header.Columns.GetFirstVisibleColumn;
while Col > NoColumn do begin
Header := Header + ' c ';
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
end;
Header := Header + '}' + CRLF;
if chkColumnHeader.Checked then begin
Col := Grid.Header.Columns.GetFirstVisibleColumn;
while Col > NoColumn do begin
Header := Header + Grid.Header.Columns[Col].Text + Separator;
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
end;
Delete(Header, Length(Header)-Length(Separator)+1, Length(Separator));
Header := Header + Terminator;
end;
end;
efWiki: begin
Separator := ' || ';
Encloser := '';
Terminator := ' ||'+CRLF;
if chkColumnHeader.Checked then begin
Header := '|| ';
Col := Grid.Header.Columns.GetFirstVisibleColumn;
while Col > NoColumn do begin
Header := Header + '*' + Grid.Header.Columns[Col].Text + '*' + Separator;
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
end;
Delete(Header, Length(Header)-Length(Separator)+1, Length(Separator));
Header := Header + Terminator;
end;
end;
end;
S.WriteString(Header);
Node := GetNextNode(Grid, nil, SelectionOnly);
while Assigned(Node) do begin
// Update status once in a while.
if (Node.Index+1) mod 100 = 0 then begin
Mainform.ShowStatusMsg('Exporting row '+FormatNumber(Node.Index+1)+' of '+FormatNumber(NodeCount)+
' ('+IntToStr(Trunc((Node.Index+1) / NodeCount *100))+'%, '+FormatByteNumber(S.Size)+')'
);
MainForm.ProgressStep;
end;
RowNum := Grid.GetNodeData(Node);
GridData.RecNo := RowNum^;
// Row preamble
case ExportFormat of
efHTML: tmp := ' ' + CRLF;
efXML: tmp := #9'' + CRLF;
efSQLInsert, efSQLReplace: begin
if ExportFormat = efSQLInsert then
tmp := 'INSERT'
else
tmp := 'REPLACE';
tmp := tmp + ' INTO '+GridData.Connection.QuoteIdent(Tablename);
if chkColumnHeader.Checked then begin
tmp := tmp + ' (';
Col := Grid.Header.Columns.GetFirstVisibleColumn;
while Col > NoColumn do begin
tmp := tmp + GridData.Connection.QuoteIdent(Grid.Header.Columns[Col].Text)+', ';
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
end;
Delete(tmp, Length(tmp)-1, 2);
tmp := tmp + ')';
end;
tmp := tmp + ' VALUES (';
end;
efWiki: tmp := TrimLeft(Separator);
else tmp := '';
end;
Col := Grid.Header.Columns.GetFirstVisibleColumn;
while Col > NoColumn do begin
if (GridData.DataType(Col).Category in [dtcBinary, dtcSpatial]) and (not Mainform.actBlobAsText.Checked) then
Data := GridData.HexValue(Col)
else
Data := GridData.Col(Col);
// Keep formatted numeric values
if (GridData.DataType(Col).Category in [dtcInteger, dtcReal])
and (ExportFormat in [efExcel, efHTML]) then
Data := FormatNumber(Data, False);
case ExportFormat of
efHTML: begin
// Handle nulls.
if GridData.IsNull(Col) then
Data := TEXT_NULL;
// Escape HTML control characters in data.
Data := htmlentities(Data);
tmp := tmp + ' | ' + Data + ' | ' + CRLF;
end;
efExcel, efCSV, efLaTeX, efWiki: begin
// Escape encloser characters inside data per de-facto CSV.
Data := StringReplace(Data, Encloser, Encloser+Encloser, [rfReplaceAll]);
// Special handling for NULL (MySQL-ism, not de-facto CSV: unquote value)
if GridData.IsNull(Col) then begin
Data := 'NULL';
if ExportFormat = efWiki then
Data := '_'+Data+'_';
end else
Data := Encloser + Data + Encloser;
tmp := tmp + Data + Separator;
end;
efXML: begin
// Print cell start tag.
tmp := tmp + #9#9'<' + Grid.Header.Columns[Col].Text;
if GridData.IsNull(Col) then
tmp := tmp + ' isnull="true" />' + CRLF
else begin
if (GridData.DataType(Col).Category in [dtcBinary, dtcSpatial]) and (not Mainform.actBlobAsText.Checked) then
tmp := tmp + ' format="hex"';
tmp := tmp + '>' + htmlentities(Data) + '' + CRLF;
end;
end;
efSQLInsert, efSQLReplace: begin
if GridData.IsNull(Col) then
Data := 'NULL'
else if GridData.DataType(Col).Index = dtBit then
Data := 'b' + esc(Data)
else if not (GridData.DataType(Col).Category in [dtcInteger, dtcReal, dtcBinary, dtcSpatial]) then
Data := esc(Data);
tmp := tmp + Data + ', ';
end;
end;
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
end;
// Row epilogue
case ExportFormat of
efHTML:
tmp := tmp + '
' + CRLF;
efExcel, efCSV, efLaTeX, efWiki: begin
Delete(tmp, Length(tmp)-Length(Separator)+1, Length(Separator));
tmp := tmp + Terminator;
end;
efXML:
tmp := tmp + #9'' + CRLF;
efSQLInsert, efSQLReplace: begin
Delete(tmp, Length(tmp)-1, 2);
tmp := tmp + ');' + CRLF;
end;
end;
S.WriteString(tmp);
Node := GetNextNode(Grid, Node, SelectionOnly);
end;
// Footer
case ExportFormat of
efHTML: begin
tmp :=
' ' + CRLF +
'
' + CRLF + CRLF +
' ' + CRLF +
' generated ' + DateToStr(now) + ' ' + TimeToStr(now) +
' by ' + APPNAME + ' ' + Mainform.AppVersion + '' + CRLF +
'
' + CRLF + CRLF +
' ' + CRLF +
'' + CRLF;
end;
efXML:
tmp := '