如何將文字檔讀入SQL2000資料庫 |
尚未結案
|
nick167
中階會員 發表:86 回覆:133 積分:53 註冊:2003-02-12 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
channel
尊榮會員 發表:67 回覆:707 積分:854 註冊:2002-05-02 發送簡訊給我 |
引言: 在一行文字檔約500字,每段不固定長度,段與段之間是用Tab鍵區格 如何去判斷將文字檔載入資料庫 謝謝提供一個作法: 利用TStringList CommaText的屬性即會依','將字串分開 ex: var aSL1, aSL2: TStringList; I, J: Integer; begin aSL1 := TStringList.Create; aSL2 := TStringList.Create; try aSL1.LoadFromFile('C:\Test.txt'); for I := 0 to aSL1.Count - 1 do begin //經剛測試結果,不須將Tab換成逗點,直接用Tab一樣可切割字串 //aSL1.Strings[I] := StringReplace(aSL1.Strings[I], #9, ',', [rfReplaceAll]);//將Tab換成逗點(',') aSL2.CommaText := aSL1.Strings[I]; for J := 0 to aSL2.Count - 1 do begin //在此處已取得每一行,每一段的值,將值給DataSet即可 //ex: //Query1.Fields[J].Value = aSL2.Strings[J]; end; end; finally FreeAndNil(aSL1); FreeAndNil(aSL2); end; end;~小弟淺見,參考看看~ 發表人 - channel 於 2003/09/26 14:03:16
------
~小弟淺見,參考看看~ |
Jasonwong
版主 發表:49 回覆:931 積分:581 註冊:2006-10-27 發送簡訊給我 |
|
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
1.請問是將文字檔寫入資料庫還是從資料庫裡讀出文字存成檔案
2.另外,TStringList的commandText屬性值,雖然是以","號做為切割的符號,但如果傳入commandText的字串內有空白時,也會被切割.Ex:
ss.CommandText:='Edit1 XXXX,XXXX XXXX,aaaa' 則
ss.strings[0]:='Edit1'
ss.Strings[1]:='XXXX'
ss.Strings[2]:='XXXX'
ss.Strings[3]:='XXXX'
ss.Strings[4]:='aaaa'
|
nick167
中階會員 發表:86 回覆:133 積分:53 註冊:2003-02-12 發送簡訊給我 |
|
nick167
中階會員 發表:86 回覆:133 積分:53 註冊:2003-02-12 發送簡訊給我 |
channel範例可行,不錯.謝謝 各位先進,我這樣寫法,不知有何缺失,請各位指導一下,謝謝
procedure TForm1.Button1Click(Sender: TObject);
var F1:TextFile;
FileName,AllStr:String;
TmpStr:Char;
begin
FileName:='C:\123.ACR';
AssignFile(F1,FileName);
Reset(F1);
While not Eof(F1) do begin
Read(F1,TmpStr);
if tmpstr = Char($09) then begin
//將AllStr所得結果存入各欄位
AllStr:='';
end
else
AllStr:=AllStr TmpStr;
end;
CloseFile(F1);
end;
|
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
|
nick167
中階會員 發表:86 回覆:133 積分:53 註冊:2003-02-12 發送簡訊給我 |
|
Jack0323
初階會員 發表:22 回覆:70 積分:28 註冊:2002-03-13 發送簡訊給我 |
|
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
用BLOB就可以省去把TEXTFILE的內容存成字串再POST進DB FIELD的手續啦,節省下來的處理時間也不計其數,再來就是IMAGE BLOB可以支援到2GB的檔案..我現在都用這方法在管理辦公室的文件...... 方法請參考下面連結
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39464 我不懂,不懂,不懂....所以我才來ktop學工夫
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |