怎样把数据导出成txt文件保存？

Question

数据可以打印，但是怎样把数据导出成txt文件？ 
例如： 
--- 一般用户列表 ---  2001-6-16 借书号 : 0000000001 
姓名 : 张舜 
性别 : 男 
身份号 : 01 
身份描述 : 学生 
身份证号 : 420802780701031 
............................... 
借书号 : 0000000002 
姓名 : 吴春华 
性别 : 男 
身份号 : 01 
身份描述 : 学生 
身份证号 :  
............................... 
要得到以上的文本信息，怎么办？

Answer 1

数据库是不是Sql Server，如果是则用DTS导出就可以了。

Answer 2

可以将数据库倒出成xml的格式，如下：
 adoquery1.SaveToFile(savedialog1.FileName,pfxml);
savedialog1可以选择表的路径。
加分！！！！

Answer 3

在sqlserver 中查询分析器中你把option 选项中一页换成sql输出结果成txt文件就可以了

Answer 4

可以将数据库倒出成xml的格式，如下：
 adoquery1.SaveToFile(savedialog1.FileName,pfxml);
savedialog1可以选择表的路径。adoquery.SaveToFile(c:\,xx.txt);加分！！！！哈哈。

Answer 5

adoquery.SaveToFile(c:\,xx.txt);
adoquery1.SaveToFile(savedialog1.FileName,pfxml);
用这两种办法都不行啊！

Answer 6

你要按你自己的格式写的话要自己控制格式，我是把一个TList的数据写到TXT文件中去。
var
    tmpStr  :String;
    i       :integer;
    myFile  :TextFile;
begin
    SaveFileName.Filter:='文本文件(逗号分隔)|*.txt'; 
    if Savefilename.Execute then
    begin
        tmpStr:=Savefilename.FileName ;
        AssignFile(MyFile,tmpstr);
        rewrite(MyFile);
        tmpStr:='';
        for i:=0 to LogList.Count-1 do
        begin
            tmpLoginfo:=LogList.Items[i];
            tmpstr:=inttostr(tmpLoginfo.logID);
            tmpstr:=tmpstr+','+tmpLoginfo.username ;
            tmpstr:=tmpstr+','+tmpLoginfo.moduleName ;
            tmpstr:=tmpstr+','+tmpLoginfo.ActionName ;
            tmpstr:=tmpstr+','+tmpLoginfO.ActionResult ;
            tmpstr:=tmpstr+','+DATETIMETOSTR(tmpLoginfo.ApplyDate );
            Writeln(MyFile,tmpStr);
        end;
        closeFile(MyFile);
    end;

Answer 7

怎样用write()或者writeln()在文本中加入回车（即换行）？我这样写
writeln(f,'aaa',#12,'bbb');
得到aaa bbb 其中aaa与bbb中间是个黑色的小方块。
正确的该怎么样？

Answer 8

下面是我以前写的一个将StringGrid数据写入CVS文件的源代码
procedure TSaveDate.Button1Click(Sender: TObject);
var id:textfile;
    i:integer;
    Tab:string;
    label TOP;
begin
TOP:
savedialog1.Execute;
if copy(savedialog1.FileName,2,2)=':\'then
begin
 if fileexists(savedialog1.FileName)=true then
  begin
   i:=Application.MessageBox(PCHAR(savedialog1.FileName+'确定要替换它吗?'),'确认提示!',1+32+256);
   if i<>1 then
    begin
     GOTO  TOP;
    end;
 end;
  assignfile(id,savedialog1.FileName);
  rewrite(id);
    if radiobutton1.Checked then Tab:=#9;
    if radiobutton2.Checked then Tab:=';';
    if radiobutton3.Checked then Tab:=',';
    if radiobutton4.Checked then Tab:='|';
  with user.Grid1 do
   begin
     for i:=0 to rowcount-1 do
       write(id,Cells[0,i]+Tab+Cells[1,i]+Tab+Cells[2,i]+Tab+
               Cells[3,i]+Tab+Cells[4,i]+Tab+Cells[5,i]+Tab+
               Cells[6,i]+Tab+Cells[7,i]+Tab+Cells[8,i]+Tab+
               Cells[9,i]+#13+#10);
   end;
   closefile(id);
   close;
end;
end;