請問這樣為何會失敗 |
尚未結案
|
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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |