如何讀取Text file? |
尚未結案
|
tommylitang
一般會員 發表:12 回覆:0 積分:2 註冊:2004-12-12 發送簡訊給我 |
如何read Text file:
(*data.txt*)
XXXX,XXXX,XXXX,XXXX,XXXX;
XXXX,XXXX,XXXX,XXXX,XXXX;
XXXX,XXXX,XXXX,XXXX,XXXX;
XXXX,XXXX,XXXX,XXXX,XXXX;
and save to array a[1],a[2],a[3],a[4],a[5]? 發表人 - tommylitang 於 2004/12/19 12:48:31 發表人 - tommylitang 於 2004/12/19 12:49:38
|
allenchan
資深會員 發表:10 回覆:306 積分:283 註冊:2004-01-06 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: 如何read Text file: (*data.txt*) XXXX,XXXX,XXXX,XXXX,XXXX; XXXX,XXXX,XXXX,XXXX,XXXX; XXXX,XXXX,XXXX,XXXX,XXXX; XXXX,XXXX,XXXX,XXXX,XXXX; and save to array a[1],a[2],a[3],a[4],a[5]?tommylitang您好: 参考下面: Zard大大的精彩作答: http://delphi.ktop.com.tw/topic.php?topic_id=61349 略作修改可得到您所要的结果,试试看: ……………………………………………………………………………… data.txt的值: 1,2,3,4,5 11,22,33,44,55 44,88,66,77,99 ……………………………………………………………………………… procedure TForm1.Button1Click(Sender: TObject); var slNum: TStringList; a: array of Integer; i: Integer; begin slNum := TStringList.Create; try slNum.LoadFromFile('f:\data.txt'); if slNum.Count = 0 then Exit; slNum.Text := StringReplace(slNum.Text ,',', #13, [rfReplaceAll]); SetLength(a,slNum.Count); for i:=0 to slNum.Count-1 do begin a[i]:=strtoint(slNum.Strings[i]); Memo1.Lines.Add(Format('a[%d]=%d', [i, a[i]])); end; finally slNum.Free; end; end; 得出结果: a[0]=1 a[1]=2 a[2]=3 a[3]=4 a[4]=5 a[5]=11 a[6]=22 a[7]=33 a[8]=44 a[9]=55 a[10]=44 a[11]=88 a[12]=66 a[13]=77 a[14]=99——行径窄处,留一步与人行—— 發表人 - |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |