如何讀取文字檔的資料INSERT到資料庫的TABLE中 |
|
答題得分者是：allenchan
|
|
Becca
一般會員   發表：5 回覆：7 積分：2 註冊：2003-10-16 發送簡訊給我 |
請問各位大大,有誰可以告訴我如何將一個文字檔裡的資料讀取出來,
然後insert或update到資料庫的table欄位中,題目如下:
(沒有分隔線,要自行判斷每個字串的長度) PO04110001A001200411050013
PO04110002B012200411050021
PO04110003A005200411060008
PO04110004C026200411080013 單別1-2碼;單號3-10碼;客戶代號11-14碼;訂購日期15-22碼;訂購數量23-26碼 insert到table==> (單別) (單號) (客戶代號) (訂購日期) (訂購數量)
TA001 TA002 TA003 TA004 TA005
PO 04110001 A0012 0041105 0013
PO 04110002 B0122 0041105 0021
PO 04110003 A0052 0041106 0008
PO 04110004 C0262 0041108 0136 謝謝各位解答~~~
|
|
allenchan
資深會員  發表：10 回覆：306 積分：283 註冊：2004-01-06 發送簡訊給我 |
var
ssFile : TStringList;
TA001 : String;
TA002 : String;
TA003 : String;
TA004 : String;
TA005 : String;
i : Integer;
begin
ssFile := TStringList.Create();
ssFile.LoadFromFile('c:\test.txt');
for i := 0 to ssFile.Count - 1 do
begin
TA001 := ssFile.Strings[i].SubString(1, 2);
TA002 := ssFile.Strings[i].SubString(3, 8);
TA003 := ssFile.Strings[i].SubString(11, 5);
TA004 := ssFile.Strings[i].SubString(16, 7);
TA005 := ssFile.Strings[i].SubString(23, 4);
//To Do ...
end;
ssFile.Destory();
end;
發表人 - allenchan 於 2004/12/01 11:39:51
|
|
Becca
一般會員 發表：5 回覆：7 積分：2 註冊：2003-10-16 發送簡訊給我 |
|
|
allenchan
資深會員 發表：10 回覆：306 積分：283 註冊：2004-01-06 發送簡訊給我 |
發表時間：2004-12-01 09:54:37
IP:211.23.xxx.xxx 未訂閱
系統時間：2024-06-02 1:40:47
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |