線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:976
推到 Plurk!
推到 Facebook!

關於文字檔*.txt

答題得分者是:change.jian
iii928
一般會員


發表:19
回覆:10
積分:5
註冊:2004-06-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-09-09 16:07:40 IP:211.78.xxx.xxx 未訂閱
各位高手好,從來沒有處理過文字檔的問題,目前小弟有一個文字檔,想把裡面的內容轉入進資料庫,其內容為..下 1242 1 09.08 09.09 aaa 3256 1 09.08 09.10 ccc 2211 1 09.08 09.09 nnn 0023 1 09.08 09.09 nnn 2010 1 09.08 09.09 iii 0001 1 09.08 09.09 aaa 資料庫欄位例如為 num no1 no2 no3 no4 每天的筆數不一定多少筆,該如何第一步,請交交我這個天兵吧....謝謝
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-09-09 16:42:51 IP:203.95.xxx.xxx 未訂閱
Hi, 請參考弟的拙著, 使用MS Jet4.0來建立使用文字檔資料庫 http://delphi.ktop.com.tw/topic.php?topic_id=34701 使用文字檔當作資料表的小範例 http://delphi.ktop.com.tw/topic.php?topic_id=34655
change.jian
版主


發表:29
回覆:620
積分:439
註冊:2003-06-02

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-09-09 16:45:53 IP:61.218.xxx.xxx 未訂閱
hi,iii928:   你可以用一個TStringList來讀取文字檔的內容,再用另一個TStrinList來分析每一行的資料,如下:
var
  ssFile,ssData:TStringList;
  i,j:Integer;
begin
  ssFile:=TStringList.Create;
  ssData:=TStringList.Create;
  try
    ssData.Delimiter:=' ';
    ssFile.LoadFromFile('aaa.txt');
    for i:=0 to ssFile.Count-1 do
    begin
      ssData.DelimitedText:=ssFile.Strings[i];
      DataSet.Append;
      for j:=0 to ssData.Count-1 do
        DataSet.Fields[j].AsString:=ssData.Strings[j];
      DataSet.Post;
    end;
  finally
    ssFile.Free;
    ssData.Free;
  end;
end;
系統時間:2024-06-29 8:11:40
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!