S
snake1118
Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个程序，用
App := CreateOleObject('Word.Application');
——————————————————————
App.Documents.open(filename:=OpenDialog1.FileName);
App.Selection.Find.ClearFormatting;
App.Selection.Find.Text := '222';
if App.Selection.Find.Execute then
ShowMessage('GOT')
else
ShowMessage('NO');
App.activeDocument.Close;
这样的方法打开每个WORD文件进行字符串查找，然后关闭，再打开，再查找，但现在的问题是我要在大量的WORD文件中查找，这样的方法速度很慢，有没有更好更快的方法，请各位赐教！
——————————————————————————
进行大量查找操作的时候，程序会进入无响应状态，是不是创个线程来解决这样的问题？
App := CreateOleObject('Word.Application');
——————————————————————
App.Documents.open(filename:=OpenDialog1.FileName);
App.Selection.Find.ClearFormatting;
App.Selection.Find.Text := '222';
if App.Selection.Find.Execute then
ShowMessage('GOT')
else
ShowMessage('NO');
App.activeDocument.Close;
这样的方法打开每个WORD文件进行字符串查找，然后关闭，再打开，再查找，但现在的问题是我要在大量的WORD文件中查找，这样的方法速度很慢，有没有更好更快的方法，请各位赐教！
——————————————————————————
进行大量查找操作的时候，程序会进入无响应状态，是不是创个线程来解决这样的问题？
