全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1925
推到 Plurk!
推到 Facebook!

BCB讀取TXT檔,然後進行排列問題

答題得分者是:jow
demo31328
一般會員


發表:2
回覆:2
積分:0
註冊:2011-06-03

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-06-03 23:36:24 IP:140.124.xxx.xxx 訂閱
我想要把原本在TXT裡頭一長串的數字編碼,如"128 128 128 118 106 99 100 101 102....."等數字,做我想要的排列,如:"每3個"換行輸入
,變成
128 128 128
118 106 99
100 101 102
.... .... 這樣,而且"每幾行換行"能夠是我可以輸入的,可能是"每4行,或 每5行之類",請問BCB程式碼該如何寫呢?
jow
尊榮會員


發表:66
回覆:751
積分:1253
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-06-04 00:18:50 IP:123.193.xxx.xxx 未訂閱

[code delphi]
procedure TfrmMain.Button1Click(Sender: TObject);
var
fn: string;
I,N: Integer;
L1,L2: TStringList;
begin
N := 4;
fn := 'D:\TEST.TXT';
if FileExists(fn) then
begin
L1 := TStringList.Create;
try
L1.LoadFromFile(fn);
if L1.Count>0 then
begin
L2 := TStringList.Create;
try
L2.Delimiter := #$20;
L2.DelimitedText := L1.Text;
L1.Clear;
for I := 0 to L2.Count-1 do
begin
if I mod N = 0 then L1.Add('');
L1[L1.Count-1] := L1[L1.Count-1] #$20 L2[I];
end;
finally
FreeAndNil(L2);
end;
ShowMessage(L1.Text);
end;
finally
FreeAndNil(L1);
end;
end;
end;

[/code]


demo31328
一般會員


發表:2
回覆:2
積分:0
註冊:2011-06-03

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-06-04 16:01:56 IP:140.124.xxx.xxx 訂閱
謝謝!!我成功了~超級感謝!
編輯記錄
demo31328 重新編輯於 2011-06-04 10:24:31, 註解 無‧
demo31328
一般會員


發表:2
回覆:2
積分:0
註冊:2011-06-03

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-06-05 00:38:19 IP:140.124.xxx.xxx 訂閱
可以再請問一下嗎?若上述程式中的 N ,要變成以edit元件輸入,該如何改呢?


嗯嗯~~謝謝!我試成功了~ 感恩!
就此結案瞜~!
編輯記錄
demo31328 重新編輯於 2011-06-04 10:43:59, 註解 無‧
demo31328 重新編輯於 2011-06-04 10:57:57, 註解 無‧
系統時間:2017-10-24 13:33:27
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!