采用csv格式将数据转换为excel的函数,带有分栏功能
来源:互联网 发布:腾讯云 ubuntu root 编辑:程序博客网 时间:2024/05/23 19:20
声明部分
procedure DataToExcelCSV(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
......
{------------------------------------------------------}
{检测findStr是否in mainStr,如果存在则返回True,否则False}
{------------------------------------------------------}
function IsStrInOtherStr(mainStr,FindStr: string): Bool;
begin
result:=strPos(pAnsiChar(mainStr),pAnsichar(FindStr))=nil
end;
-------------------------------------------------------------------------------------
//lijinhao 2004-4-4
//采用csv格式..将数据转换为excel.
//速度非常快,而且具有分栏功能
//避免了用comobj带来到弊端
//GroupCount:用于设定分栏数。。默认为1
//ShowCompleteBoX:boolean;来设定完成是否显示完成提示
//-------------------------------------------------------------------------------
procedure 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的函数,带有分栏
- 如何将excel文件转换为csv格式
- Flex/Air将DataGrid数据导出为CSV/Excel格式
- 将数据集转换为Excel格式的一个实现
- 利用python将json数据转换为csv格式
- Mac OS X将CSV格式转换为Excel文档格式,Excel转CSV中文乱码问题
- VC实现EXCEL转换为CSV格式
- VC实现EXCEL转换为CSV格式
- 小程序——将Excel文件批量转换为csv格式
- c#实现将Excel文件导出为csv和UTF8格式的txt文件
- weka数据预处理:使用weka将excel数据转换为arff格式数据
- python 将数据保存为excel的xls格式
- Android将数据库数据导出成excel格式的文本(CSV)
- 采用native2ascii工具将中文字符的资源文件转换为Unicode代码格式的文件
- C# Winform实现数据的导出为txt或者CSV或者excel格式
- 将Excel转换成CSV
- JavaScript将页面表格数据导出为Excel、CSV格式文件(结合JQuery EasyUI的grid )
- minij2ee常见问题(FAQ)
- solaris上开发J2EE应用中文问题的解决
- 谈谈ejb的效率问题
- 处理JSP中的中文
- 国内不谈Java--硅谷有感
- 采用csv格式将数据转换为excel的函数,带有分栏功能
- 联机热备份失败后,如何打开数据库?
- 没有备份、只有归档日志,如何恢复数据文件?
- 软件体系结构(一)
- 关于 Apollo VCL 6.0 EVAL版超期使用的说明 :)
- ASP.Net ViewState的实现
- ASP.Net Web Page深入探讨(一)
- ASP.Net Web Page深入探讨(二)
- .Net中的反射使用入门