將檔案內容依空格方開存入變數的問題 |
尚未結案
|
a6475
高階會員 發表:67 回覆:230 積分:154 註冊:2002-09-15 發送簡訊給我 |
各位大大好:
我有一個文字檔,內容只有一行,依空格分開,如下:
1 30 21 44 56 請問要如何分別放入距陣或變數。
結果的值如下:
A[0] := 1;
A[1] := 30;
A[2] := 21;
A[3] := 44;
A[4] := 56; 謝謝^_^ ..-----------βλμε------------..
◎Oo月夜 光明 藍更愁oO◎ 藍調月光城v4:http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調.月光):http://mypaper2.ttimes.com.tw/user/a6475
------
月夜 光明 藍更愁 |
pgdennis
資深會員 發表:41 回覆:526 積分:443 註冊:2002-05-23 發送簡訊給我 |
引言: 各位大大好: 我有一個文字檔,內容只有一行,依空格分開,如下: 1 30 21 44 56 請問要如何分別放入距陣或變數。 結果的值如下: A[0] := 1; A[1] := 30; A[2] := 21; A[3] := 44; A[4] := 56; 謝謝^_^ ..-----------βλμε------------..如果確定檔案中只有數字那就好辦了 試試看下面的 class="code"> procedure TForm1.Button1Click(Sender: TObject); var F1: TextFile; Ch: integer; begin if OpenDialog1.Execute then begin AssignFile(F1, OpenDialog1.Filename); Reset(F1); while not Eof(F1) do begin Read(F1, Ch); showmessage(inttostr(Ch)); end; CloseFile(F1); end; end; 永遠追不上技術更新的速度 發表人 -
------
星期一,二...無窮迴圈@@ |
a6475
高階會員 發表:67 回覆:230 積分:154 註冊:2002-09-15 發送簡訊給我 |
pgdennis大哥:
可是我想存入變數裡耶。
如果用pgdennis大哥的做法,21,會分別存2和1,實在沒有意義。 不過還是感pgdennis大哥謝熱心回答 ..-----------βλμε------------..
◎Oo月夜 光明 藍更愁oO◎ 藍調月光城v4:http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調.月光):http://mypaper2.ttimes.com.tw/user/a6475
------
月夜 光明 藍更愁 |
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
a6475
高階會員 發表:67 回覆:230 積分:154 註冊:2002-09-15 發送簡訊給我 |
|
seaturn99
版主 發表:69 回覆:427 積分:214 註冊:2003-08-25 發送簡訊給我 |
借花獻彿,貼一段 XShadow 在書內附的一段程式碼,順便宣傳一下學長的
Delphi/Borland 深度歷險: 程式作者 : 陳寬達 類似 C 語言的 strtok ,但更強大更彈性..:) Source Code 如下
---------------------------------------------------------------------
const
DEFAULT_DELIMITERS = [' ', #9, #10, #13]; function GetToken(const S: string; index: Integer; bTrail: Boolean = False; Delimiters: TSysCharSet = DEFAULT_DELIMITERS): string;
var
I, W, head, tail: Integer;
bInWord : Boolean;
begin
I := 1;
W := 0;
bInWord := False;
head := 1;
tail := Length(S);
while (I <= Length(S)) and (W <= index) do
begin
if S[I] in Delimiters then
begin
if (W = index) and bInWord then tail := I - 1;
bInWord := False;
end
else
begin
if not bInWord then
begin
bInWord := True;
Inc(W);
if W = index then head := I;
end;
end; Inc(I);
end;
if bTrail then tail := Length(S);
if W >= index then Result := Copy(S, head, tail - head 1)
else Result := '';
end;
|
pgdennis
資深會員 發表:41 回覆:526 積分:443 註冊:2002-05-23 發送簡訊給我 |
引言: pgdennis大哥: 可是我想存入變數裡耶。 如果用pgdennis大哥的做法,21,會分別存2和1,實在沒有意義。 不過還是感pgdennis大哥謝熱心回答 ..-----------βλμε------------..你有試過嗎? 我上面po的code可以達到你要求,不可能讀2-->1 重點在Ch: integer;這行如果是宣告成Ch:char則結果如你所說..... 我要平反~~~~ 永遠追不上技術更新的速度
------
星期一,二...無窮迴圈@@ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |