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