請高手幫忙看一下 |
|
尚未結案
|
|
cassell
一般會員   發表：5 回覆：1 積分：1 註冊：2005-03-02 發送簡訊給我 |
我是新手剛開始學BCB，遇到一個問題，我用RichEdit讀近一個文字檔,想用一按鍵可以保留下所以點數據,他其英文字都不要,像是Unit'MM'Number'section begin這些字,請問一下要者摸去動手,感謝高手指導
內容是：
Unit:
MM
Number of Sections:
29
Section begin
68.889 15.000 0.282
68.728 15.000 0.498
68.520 15.000 0.690
68.352 15.000 0.891
68.172 15.000 1.071
67.954 15.000 1.281
67.746 15.000 1.492
67.578 15.000 1.675
67.427 15.000 1.857
67.247 15.000 2.058
............
Section end
Section begin
66.489 20.000 0.165
65.020 20.000 1.547
64.915 20.000 1.741
64.746 20.000 1.927
........、
|
|
richtop
資深會員  發表：122 回覆：646 積分：468 註冊：2003-06-10 發送簡訊給我 |
cassell 您好： 假設資料已存入RichEdit1中，且每行資料的第一個字元足以判斷是否為數字資料行，
底下程式碼供您參考修改。
//--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{ int index=0;
char ch; while ( index < RichEdit1->Lines->Count )
{ ch = RichEdit1->Lines->Strings[index][1]; // get the first char.
if ( ch<'0' || ch>'9' ) //
{ RichEdit1->Lines->Delete(index);
}
else index ;
}
}
//---------------------------------------------------------------------------
RichTop 敬上 =====*****
把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！
=====##### 發表人 - richtop 於 2005/04/30 15:26:18
|
|
cassell
一般會員 發表：5 回覆：1 積分：1 註冊：2005-03-02 發送簡訊給我 |
|
|
taishyang
站務副站長  發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
發表時間：2005-04-30 14:23:32
IP:61.222.xxx.xxx 未訂閱
系統時間：2024-05-17 16:03:22
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |