線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:892
推到 Plurk!
推到 Facebook!

請問要怎麼搜尋才會快呢?

 
蜻蜓草
一般會員


發表:22
回覆:30
積分:10
註冊:2002-03-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-08-24 18:42:02 IP:203.67.xxx.xxx 未訂閱

下面這個是我的種式, 我續進來一個個的比較, 可是實在太慢了, 因為我的檔案可能會有 5MB 之大

請問有更好的方法取代掉 "00" 這個字串嗎?

ggg:=TMemoryStream.create;
ggg.LoadFromFile(xxx.htm');

t:=32;

while(ggg.Position begin
ggg.Read(num,1);
if num=0 then
begin
ggg.Position:=ggg.Position-1;
ggg.Write(t,1);
end;
end;

蜻蜓草
一般會員


發表:22
回覆:30
積分:10
註冊:2002-03-18

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-08-24 18:44:01 IP:203.67.xxx.xxx 未訂閱

上面的程式有漏...重發一下

ggg:=TMemoryStream.create;
ggg.LoadFromFile('p:\novel_all.htm');

t:=32;

while(ggg.Position begin
ggg.Read(num,1);
if num=0 then
begin
ggg.Position:=ggg.Position-1;
ggg.Write(t,1);
end;
end;

kanelou
一般會員


發表:1
回覆:14
積分:3
註冊:2003-05-07

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-08-31 15:11:45 IP:202.175.xxx.xxx 未訂閱

唔好一次一個字符咁讀入

試試一次過讀入1000 個字符串

再用 StringReplace 將 "00" 去掉

系統時間:2024-05-17 10:30:06
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!