关于DBGRIDEH导出数据到CSV

原创 2004年06月28日 16:20:00

在通常情况下使用DBGRIDEH导出的到CSV中的数据是这个样子的

"a","b","c"

可能我们并不希望它这样显示,有可能希望它显示成种状态

a,b,c

如果想这样,我们可以修改DBGRIDEH里面的DBGridEhImpExp.pas文件

具体修改如下:增加一个自己的导出到CSV的类

 { TMyDBGridEhExportAsCVS }

  TMyDBGridEhExportAsCVS = class(TDBGridEhExportAsText)
  private
    FSeparator: Char;
  protected
    procedure CheckFirstCell; override;
    procedure WriteTitle(ColumnsList: TColumnsEhList); override;
    procedure WriteDataCell(Column: TColumnEh; FColCellParamsEh: TColCellParamsEh); override;
    procedure WriteFooterCell(DataCol, Row: Integer; Column: TColumnEh; AFont: TFont;
      Background: TColor; Alignment: TAlignment; Text: String); override;
  public
    constructor Create; override;
    property Separator: Char read FSeparator write FSeparator;
  end;

{ TMyDBGridEhExportAsCVS }

procedure TMyDBGridEhExportAsCVS.CheckFirstCell;
var s: String;
begin
  if FirstCell = False then
  begin
    s := Separator;
    StreamWriteString(Stream, s);
//    Stream.Write(PChar(s)^, Length(s))
  end else
    FirstCell := False;
end;

constructor TMyDBGridEhExportAsCVS.Create;
begin
  Separator := ',';
  inherited Create;
end;

procedure TMyDBGridEhExportAsCVS.WriteDataCell(Column: TColumnEh; FColCellParamsEh: TColCellParamsEh);
var s: String;
begin
  CheckFirstCell;
  s := FColCellParamsEh.Text;
  StreamWriteString(Stream, s);
//  Stream.Write(PChar(s)^, Length(s));
end;

procedure TMyDBGridEhExportAsCVS.WriteFooterCell(DataCol, Row: Integer;
  Column: TColumnEh; AFont: TFont; Background: TColor;
  Alignment: TAlignment; Text: String);
var s: String;
begin
  CheckFirstCell;
  s := Text;
  StreamWriteString(Stream, s);
//  Stream.Write(PChar(s)^, Length(s));
end;

procedure TMyDBGridEhExportAsCVS.WriteTitle(ColumnsList: TColumnsEhList);
var i: Integer;
  s: String;
begin
  CheckFirstRec;
  for i := 0 to ColumnsList.Count - 1 do
  begin
    s := ColumnsList[i].Title.Caption;
    if i <> ColumnsList.Count - 1 then
      s := s + Separator;
    StreamWriteString(Stream, s);
//    Stream.Write(PChar(s)^, Length(s));
  end;
end;

 

Good luck!

 

4.2、从RDBMS向Neo4j导数据【专题四:数据处理】

1、目标  介绍将从PostgreSQL(RDBMS)导出的数据导入Neo4j(GraphDB),即将关系数据库模式建模,使之形成图。   预备知识:熟悉图模型并安装neo4j服务2、导RDBMS数...
  • heyuanhao1989
  • heyuanhao1989
  • 2015年11月07日 20:14
  • 3135

windows下使用neo4j web管理端导入CSV

多种方式导入效率对比 点击打开链接 数据导入精灵,可导入EXCEL、Mysql点击打开链接 本人使用的是windows下的neo4j broswer,在导入数据之前,需要将EXCEL另存为CSV,...
  • qq_23318779
  • qq_23318779
  • 2017年03月27日 13:59
  • 2223

使用Python读取/导出(写入)CSV文件

想要用python处理csv文件。 去查了下,python中本身就自带csv模块。 然后参考在线手册: http://docs.python.org/2/library/csv.html 去试...
  • qq_24122593
  • qq_24122593
  • 2016年12月17日 10:31
  • 7870

比较快速的将DBGridEh中的数据导出到Excel中

  • 2008年01月07日 17:27
  • 16KB
  • 下载

应用DBgridEH自身功能将数据导出为其它格式的代码

  • 2006年02月23日 09:05
  • 134KB
  • 下载

delphi xe10.2下的dbgrideh表格数据导出txt,xls文件

  • 2017年08月28日 11:17
  • 1.47MB
  • 下载

HTML表格数据导出为CSV|XLS|TXT|SQL格式的jQuery插件

  • 2016年06月15日 21:17
  • 9KB
  • 下载

Qt Sqlite表中数据导出为csv格式表格

  • 2016年09月08日 11:22
  • 633KB
  • 下载

js导出table表格数据(包括excel,xml,json,csv等格式)

  • 2016年11月23日 09:25
  • 66KB
  • 下载

数据库数据导出工具:导出格式支持MS Excel,CSV, HTML, XML, DBF, Text, MS Word, MS Access

  • 2013年03月18日 20:31
  • 27.27MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:关于DBGRIDEH导出数据到CSV
举报原因:
原因补充:

(最多只允许输入30个字)