我写的采用csv格式将数据转换为excel的函数,带有分栏
2008-04-30 11:46
453 查看
声明部分
procedure DataToexcelcsv(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
......
{------------------------------------------------------}
{检测findStr是否in mainStr,如果存在则返回True,否则False}
{------------------------------------------------------}
function TFun.IsStrInOtherStr(mainStr,FindStr: string): Bool;
begin
if strPos(pAnsiChar(mainStr),pAnsichar(FindStr))=nil
then
result:=False
else
result:=True;
end;
-------------------------------------------------------------------------------------
//lijinhao 2004-4-4
//采用csv格式..将数据转换为excel.
//速度非常快,而且具有分栏功能
//避免了用comobj带来到弊端
//GroupCount:用于设定分栏数。。默认为1
//ShowCompleteBoX:boolean;来设定完成是否显示完成提示
//-------------------------------------------------------------------------------
procedure TFun.DataToexcelcsv(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean;GroupCount:integer);
Function CheckStr(str:string):string;
begin
if IsStrInOtherStr(str,',') then str:='"'+str+'"';
result:=str;
end;
//===============//
var
excelFile:TextFile;
iRecordCount:integer;//记录数
iFieldCount:integer;//字段数
i,j,k:integer;
TempStr:string;
begin
try
if Not DataSet.Active then DataSet.Open;
iRecordCount:=DataSet.RecordCount;
iFieldCount:=DataSet.FieldCount;
assignFile(excelFile,SaveFileName+'.csv');
rewrite(excelFile);
DataSet.First;
(*--------写字段头------*)
TempStr:='';
for K:=0 to iFieldCount-1 do //字段数
begin
if TempStr<>'' then
TempStr:=TempStr+','+CheckStr(DataSet.Fields[k].FieldName)
else
TempStr:=CheckStr(DataSet.Fields[k].FieldName)
end;(* for K:=1 to FieldCount do*)
for i:= 1 to GroupCount-1 do TempStr:=TempStr+','+TempStr;
writeLn(excelFile,TempStr);
//---------------------------------
(*写入记录,按分栏数来写*)
i:=1;
while i<=round(iRecordCount div GroupCount) do
begin
TempStr:='';
//如:F0 F1 F2 F3 | F0 F1 F2 F3
for j:=1 to GroupCount do //分栏数
begin
if DataSet.Eof then break;
inc(i);
for K:=0 to iFieldCount-1 do //字段数
begin
//--------------
if tempstr<>'' then
TempStr:=TempStr+','+CheckStr(DataSet.Fields[k].AsString)
else
TempStr:=CheckStr(DataSet.Fields[k].AsString);
//------------
end;(* for K:=1 to FieldCount do*)
DataSet.Next;
end;(* for j:=1 to GroupCount do*)
writeLn(excelFile,TempStr);
if DataSet.Eof then break;
end;//while i<=round(iRecordCount div GroupCount) do
if ShowCompleteBoX then MessageBox(0,'完成DataToexcel的转换!','完成提示:',mb_ok+MB_IconInformation)
finally
closeFile(excelFile);
end;
end;
procedure DataToexcelcsv(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
......
{------------------------------------------------------}
{检测findStr是否in mainStr,如果存在则返回True,否则False}
{------------------------------------------------------}
function TFun.IsStrInOtherStr(mainStr,FindStr: string): Bool;
begin
if strPos(pAnsiChar(mainStr),pAnsichar(FindStr))=nil
then
result:=False
else
result:=True;
end;
-------------------------------------------------------------------------------------
//lijinhao 2004-4-4
//采用csv格式..将数据转换为excel.
//速度非常快,而且具有分栏功能
//避免了用comobj带来到弊端
//GroupCount:用于设定分栏数。。默认为1
//ShowCompleteBoX:boolean;来设定完成是否显示完成提示
//-------------------------------------------------------------------------------
procedure TFun.DataToexcelcsv(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean;GroupCount:integer);
Function CheckStr(str:string):string;
begin
if IsStrInOtherStr(str,',') then str:='"'+str+'"';
result:=str;
end;
//===============//
var
excelFile:TextFile;
iRecordCount:integer;//记录数
iFieldCount:integer;//字段数
i,j,k:integer;
TempStr:string;
begin
try
if Not DataSet.Active then DataSet.Open;
iRecordCount:=DataSet.RecordCount;
iFieldCount:=DataSet.FieldCount;
assignFile(excelFile,SaveFileName+'.csv');
rewrite(excelFile);
DataSet.First;
(*--------写字段头------*)
TempStr:='';
for K:=0 to iFieldCount-1 do //字段数
begin
if TempStr<>'' then
TempStr:=TempStr+','+CheckStr(DataSet.Fields[k].FieldName)
else
TempStr:=CheckStr(DataSet.Fields[k].FieldName)
end;(* for K:=1 to FieldCount do*)
for i:= 1 to GroupCount-1 do TempStr:=TempStr+','+TempStr;
writeLn(excelFile,TempStr);
//---------------------------------
(*写入记录,按分栏数来写*)
i:=1;
while i<=round(iRecordCount div GroupCount) do
begin
TempStr:='';
//如:F0 F1 F2 F3 | F0 F1 F2 F3
for j:=1 to GroupCount do //分栏数
begin
if DataSet.Eof then break;
inc(i);
for K:=0 to iFieldCount-1 do //字段数
begin
//--------------
if tempstr<>'' then
TempStr:=TempStr+','+CheckStr(DataSet.Fields[k].AsString)
else
TempStr:=CheckStr(DataSet.Fields[k].AsString);
//------------
end;(* for K:=1 to FieldCount do*)
DataSet.Next;
end;(* for j:=1 to GroupCount do*)
writeLn(excelFile,TempStr);
if DataSet.Eof then break;
end;//while i<=round(iRecordCount div GroupCount) do
if ShowCompleteBoX then MessageBox(0,'完成DataToexcel的转换!','完成提示:',mb_ok+MB_IconInformation)
finally
closeFile(excelFile);
end;
end;
相关文章推荐
- 采用csv格式将数据转换为excel的函数,带有分栏功能
- 我写的采用csv格式将数据转换为excel的函数,带有分栏功能_delphi教程
- 【原创】某些金额数据导出为文本格式,转换为数值的Excel 函数方法
- Drupal 中读取Excel数据再转换格式到另一个Excel
- 使用ADO.net转换数据到Excel格式并提供下载
- 使用ADO.net转换数据到Excel格式并提供下载 (转)
- 使用python开发json、csv数据格式转换工具
- 使用ADO.net转换数据到Excel格式并提供下载
- 用Excel打开csv文件时,如何处理数字内容展现会自动转换格式的问题
- 【VC】 swscanf_s 函数使用,方便快捷的转换数据格式
- VC实现EXCEL转换为CSV格式
- 利用python将json数据转换为csv格式
- C# Winform实现数据的导出为txt或者CSV或者excel格式
- 转换数据到Excel格式
- PHP将mysql数据表转换为excel文件格式
- winform中将数据以文本的格式导出到excel中(以文本导出表示如果数据为0001则在excel中也显示为0001,而不被excel自动转换为1)
- 使用ADO.net转换数据到Excel格式并提供下载
- UI里面excel数据上传并解析的例子(CSV格式)
- C# .csv文件转为Excel格式;Excel格式转换为.csv
- 把HDFS里的json数据转换成csv格式