【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; //就樣就可以了喔
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |