匯入cvs字串問題 |
尚未結案
|
cd109
一般會員 發表:23 回覆:33 積分:11 註冊:2003-12-22 發送簡訊給我 |
請問各位前輩:
我想要引入.cvs檔案來寫入資料庫 cvs格式如下
A1,A2
123,123
123,132
123, >>空值(右邊為空)
,123 >>空值(左邊為空)
while not SeekEof(F1) do begin Readln(F1, S1);=>請問我要如何檢查我讀進來的值,如果兩個值其中是null就不寫入字串. if (i >= LineHeaderNo) and (length(S1) > 2) then begin AllList.Text :=AllList.Text S1; end; inc(i); end;謝謝 發表人 - cd109 於 2004/12/20 13:33:58 |
I_Love_You
一般會員 發表:18 回覆:87 積分:21 註冊:2002-07-24 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var
f : Textfile;
str,str2,str3 : String;
s : Integer;
begin
Memo1.Lines.Clear; AssignFile(f,'C:\TEMP\cccccc.csv');
Reset(f);
while not SeekEof(f) do
begin
Readln(f,str);
//因为csv档案的记录是用','逗号作为分隔的,所以先找到逗号的位置
//分别取逗号前后的字串数据,这样再判断是否为Nil即可。
s:=Pos(',',str);
str2:=Trim(Copy(str,1,s-1));
str3:=Trim(Copy(str,s 1,Length(str)));
if (str2<>'') and (str3<>'') then
begin
Memo1.Lines.Append(str);
end;
end;
Closefile(f); {Closes file F}
end;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |