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

RICHEDIT的搜尋問題?

答題得分者是:Stallion
wishmaster926
初階會員


發表:91
回覆:69
積分:32
註冊:2006-12-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-02-10 13:50:57 IP:218.166.xxx.xxx 訂閱
我在做一測試,搜尋test.txt有無ZERO這一字串,程式碼如下:
int ToEnd = re1->Text.Length();
re1->Lines->LoadFromFile("C:\\TEST.TXT");
int FoundAt = re1->FindText("ZERO",0,ToEnd,TSearchTypes()< if (FoundAt!=-1)
Edit1->Text="ok";
else
Edit1->Text="no found";


TEST.TXT只有一行內容:
MISSILE ZERO

但每次執行後,皆顯示 NO FOUND 找不到
但明明有ZERO字串阿!?
請問高手們程式是那里有問題???

另請問可否不計較字串大小寫,且以部份字串符合的SEARCHTYPE去搜尋???多謝!!!

------
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-02-10 14:25:58 IP:211.22.xxx.xxx 未訂閱
===================引 用 文 章===================
我在做一測試,搜尋test.txt有無ZERO這一字串,程式碼如下:
re1->Lines->LoadFromFile("C:\\TEST.TXT");
int ToEnd = re1->Text.Length(); // 檔案沒載入,不可放在第一行,不然字串長度是0,當然找不到!
int FoundAt = re1->FindText("ZERO",0,ToEnd,TSearchTypes() < < stMatchCase );
if (FoundAt!=-1)
Edit1->Text="ok";
else
Edit1->Text="no found";

另請問可否不計較字串大小寫,且以部份字串符合的SEARCHTYPE去搜尋???多謝!!!
不要指定
stWholeWord, stMatchCase 即可!!
wishmaster926
初階會員


發表:91
回覆:69
積分:32
註冊:2006-12-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-02-10 14:40:39 IP:218.166.xxx.xxx 訂閱
感謝樓上大大:
疏忽了小問題,真歹勢,感恩!!!!!!!!!!
------
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
系統時間:2024-05-07 8:08:17
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!