請問這樣為何會失敗 |
|
尚未結案
|
|
totodog
一般會員   發表：13 回覆：3 積分：3 註冊：2003-05-29 發送簡訊給我 |
我在寫一個計算在word檔中 我要的字串次數有幾次的程式如下： var
i,j:integer;
temp: string;
f:textfile;
begin
i:=0;
MSWord:=CreateOleObject('Word.Basic'); AssignFile(f,'compare.txt');
Reset(f); repeat
MSWord.FileOpen('d:\1.doc');
Readln(f,temp);
Edit2.Text:=temp;
MSWord.EditFind(temp,,0,0,False,0,0); for j:=1 to 5 do
begin if MSWord.EditFindFound then
begin
i:=i 1;
MSWord.EditReplace(temp,'***');
continue;
end else
break;
end; MSWord.DocClose; Until Eof(f); CloseFile(f);
MSWord.AppShow; MSWord.AppClose; 當我把 MSWord.FileOpen('d:\1.doc'); 和 MSWord.DocClose;
開檔關檔的動作放在repeat外面 計算次數就錯誤 請問是為何阿?
因為放在repeat裡面 很耗時間在開關檔的動作?
請問有哪個參數可以解決這樣的問題嗎? 比如說 把指標移到 word檔的第一個字在從開始比較? 謝謝大家的回答
|
|
ko
資深會員  發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
發表時間：2003-07-02 10:12:57
IP:203.204.xxx.xxx 未訂閱
系統時間：2024-04-29 2:05:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |