【Delphi6】請問如何從table中有條件式的轉存為文字檔 |
|
尚未結案
|
|
uuujjj
一般會員   發表：31 回覆：59 積分：18 註冊：2002-09-28 發送簡訊給我 |
|
|
kan0515
中階會員  發表：56 回覆：120 積分：50 註冊：2002-06-24 發送簡訊給我 |
AssignFile(TxtFile,fn); //開啟文字檔，fn為檔名
ReWrite(TxtFile);
Query1.Sql.Add(sql); //sql為您的查詢語法
Query1.Open;
While NOT EOF do
begin
//讀取每一筆資料
Station:=Query1.Fieldbyname('Station').Asstring;
StaName:=Query1.Fieldbyname('StationName').Asstring;
Item:=Query1.Fieldbyname('Item').Asstring;
//寫入文字檔中
Writeln(TxtFile,Station,StaName,Item);
Query1.next;
end;
Query1.SQL.Clear;
CloseFile(TxtFile);
|
|
asupeduer
初階會員 發表：36 回覆：49 積分：27 註冊：2002-11-08 發送簡訊給我 |
EXCEL上限是九萬多筆，詳細筆數忘記了，
無法突破，這是excel本身限制，
有問題去跟微軟抗議吧。
但在匯入時，上限是66536筆，
也沒辦法突破，已經試過了，
但你可以嚐試使用匯出為txt檔案，速度比excel快，寫入快，讀取更快於excel //------------------------------------------------
我常在想,寫程式跟爬格子到底有什麼不同呢???????????
//------------------------------------------------
------
//------------------------------------------------ 我常在想,寫程式跟爬格子到底有什麼不同呢??????????? //------------------------------------------------ |
|
linhoo123
一般會員 發表：12 回覆：10 積分：4 註冊：2002-08-02 發送簡訊給我 |
Query1.Sql.Add(sql); //sql為您的查詢語法
Query1.Active:=True; //請於BDE 新增一 STANDARD
//database name 假設為 TEMP
//type = STANDARD
//default driver = ASCIIDRV
//enabled bcd 不必改
//path 設為你看資料要丟到那的路徑 with Table1 do
begin
Active:=False;
DatabaseName:='TEMP';
TableType:=ttASCII;
TableName:='XXX.TXT'; //引號內的為檔案名稱名字自己取
BatchMove(Query1, batCopy);
end; //就樣就可以了喔
|
發表時間：2002-09-28 22:45:03
IP:61.218.xxx.xxx 未訂閱
系統時間：2024-05-05 15:31:47
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |