只要傳入 任何 dataset, 檔案名稱, 及各欄位之間之甚麼分隔，就可將該 dataset 內的數據存入 文字檔/csv/Excel 可讀格式。    Dataset 可以是 TTable, TQuery, TClientDataSet, 各種 ADO dataset, 總之是 TDataSet 的子代便可。    Filename 就是檔案名啦    Delimiter 就是分隔字元，CSV 用 ','， xls 最好用 #9 (即 tab)，txt 用你喜觀的就好。    本程序會將所有 tab 及換行變成空白字元以免和記錄/欄位分格混淆。    本程序支援 memo 但不支援任何 binary field 包括圖像。    

procedure SaveDataSet(TT : TDataSet; FileName, Delimiter : String);
var
i : integer;
line : string;
M : TStringList;
begin
  TT.Active := true;
  TT.First;
  M := TStringList.Create;
  Line := TT.Fields[0].DisplayName;
  For i := 1 to TT.FieldCount -1 do
    Line := Line   Delimiter   TT.Fields[i].DisplayLabel;
  M.Add(Line);
  while not TT.Eof do
  begin
    Line := TT.Fields[0].AsString;
    For i := 1 to TT.FieldCount -1 do
        Line := Line   Delimiter   StringReplace(StringReplace(TT.Fields[i].AsString,
          #13#10,' ',[rfReplaceAll]),#9,' ',[rfReplaceAll])
    M.Add(Line);
    TT.Next;
  end;
  M.SaveToFile(FileName);
end;

若有任何改善見議或有其他更好程序請分享謝謝。

補充 : 存於此程序的 unit 要 use db 喔。 因為我習慣放這在 mainform / 另一共用 unit 之後在各 Form 直接 call 的以免重覆程式碼。所以存放的 Form 很可能原本沒 use db 的

1. BDE Text Driver The text driver allows BDE clients to access text files. The text driver allows BDE clients to access text data directly without first importing into a table format. By using this driver, the application developer can build a more efficient import/export utility. Filters can be set on the cursors that are opened on the text files to import/export only those records that satisfy the filter's criteria.     2. ...Delphi6\Demo\DB\TextData\textpkg.dpk -> TTextDataSet Component.    也可達到類似功能, 參考看看 ... /*

若是用 bde text driver / TTextDataSet , 想要將資料庫讀出的資料儲存成 txt file, 是否要先 將 data append 到 TextDataSet, 之後再 save to file ? Mickey 兄提醒了一點，用 SaveDataSet 這個程序也是會按該 Dataset 的 filter / range / order 等設定而輸出的。

引言: 只要傳入 任何 dataset, 檔案名稱, 及各欄位之間之甚麼分隔，就可將該 dataset 內的數據存入 文字檔/csv/Excel 可讀格式。 Dataset 可以是 TTable, TQuery, TClientDataSet, 各種 ADO dataset, 總之是 TDataSet 的子代便可。 Filename 就是檔案名啦 Delimiter 就是分隔字元，CSV 用 ','， xls 最好用 #9 (即 tab)，txt 用你喜觀的就好。 本程序會將所有 tab 及換行變成空白字元以免和記錄/欄位分格混淆。 本程序支援 memo 但不支援任何 binary field 包括圖像。

procedure SaveDataSet(TT : TDataSet; FileName, Delimiter : String);
var
i : integer;
line : string;
M : TStringList;
begin
  TT.Active := true;
  TT.First;
  M := TStringList.Create;
  Line := TT.Fields[0].DisplayName;
  For i := 1 to TT.FieldCount -1 do
    Line := Line   Delimiter   TT.Fields[i].DisplayLabel;
  M.Add(Line);
  while not TT.Eof do
  begin
    Line := TT.Fields[0].AsString;
    For i := 1 to TT.FieldCount -1 do
        Line := Line   Delimiter   StringReplace(StringReplace(TT.Fields[i].AsString,
          #13#10,' ',[rfReplaceAll]),#9,' ',[rfReplaceAll])
    M.Add(Line);
    TT.Next;
  end;
  M.SaveToFile(FileName);
end;

若有任何改善見議或有其他更好程序請分享謝謝。

版主你好: 我不了解這段程式碼之目的,可否詳述. Line := Line Delimiter StringReplace(StringReplace(TT.Fields[i].AsString, #13#10,' ',[rfReplaceAll]),#9,' ',[rfReplaceAll])

因為預設是以 Tab(#9) 作欄分隔以 Hard Return (#13$10) 作列分格，所以這行將所有資料內的 Tab 及 Hard Return 換成 空白以免錯誤。

能否将分隔符改为“|”？ 我为这个问题苦恼了很久了。

很感謝您不吝指導， 真的幫了我大忙， 也讓我有了進步， 最後要感謝版主， 提供大家這麼好的環境來互相研討！ 謝謝！

小弟用此方式遇到一個問題，例如DataSet的值是00005710，轉到EXCEL之後變成5710，有辦法解決嗎? 寫程式是為了讓生活更精彩

------
JamesLin

引言: 能否将分隔符改为“|”？ 我为这个问题苦恼了很久了。 procedure Button1Click(Sender: TObject); var TestView, Delimiter : String; s : TStringList; I : Integer; begin Delimiter := '|'; s := TStringList.Create; s.LoadFromFile('C:\'abc.txt'); For I := 0 to Pred(s.Count) do begin TestView := StringReplace(s.Strings[I], #13#10, ' ', [rfReplaceAll]); TestView := TestView Delimiter StringReplace(s.Strings[I], #13#10, ' ', [rfReplaceAll]); End; end;