將檔案內容依空格方開存入變數的問題 |
|
尚未結案
|
|
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; 謝謝^_^ ..-----------βλμε------------..
◎Ｏｏ月夜 光明 藍更愁ｏＯ◎ 藍調月光城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; 謝謝^_^ ..-----------βλμε------------..如果確定檔案中只有數字那就好辦了
------
星期一,二...無窮迴圈＠＠ |
|
a6475
高階會員 發表：67 回覆：230 積分：154 註冊：2002-09-15 發送簡訊給我 |
pgdennis大哥：
可是我想存入變數裡耶。
如果用pgdennis大哥的做法，21，會分別存2和1，實在沒有意義。 不過還是感pgdennis大哥謝熱心回答 ..-----------βλμε------------..
◎Ｏｏ月夜 光明 藍更愁ｏＯ◎ 藍調月光城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則結果如你所說..... 我要平反~~~~
------
星期一,二...無窮迴圈＠＠ |
發表時間：2003-10-01 22:20:37
IP:61.229.xxx.xxx 未訂閱
系統時間：2024-04-28 7:35:10
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |