[Static]

Товарищи ! подскажите как прочитать из Дэлфи7 документ Word , и скопировать только текст , например в мemo ?
И еще одно , как найти в тексте вордовского документа , количество нужного слова .
например мне нужно найти сколько раз в документе повторяеться слово "яблоко" или т.п.
заранее огромное благодарен за ответы !

[ViLkiN]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

function MyReadFile(f:string):string;    var Streaml: TStream;     s:string; begin   try    streaml := TFileStream.Create(f, fmOpenRead);  SetLength(s,Streaml.Size);  Streaml.ReadBuffer(s[1], Streaml.Size);     finally   Streaml.Free;    end;   result:=s;    end;

s - получившаяся строка
f - путь к файлу
для нахождения нужного слова используй стандалртную функцию PosEx

[Static]

БЛАГОДАРЮ ЗА ОТВЕТ. Только таким методом читаються только текстовые файлы , вы не подскажете как можно прочитать
документ Word .

[voron_paa]

Тебе из какого документа? При открытом Word? Или просто из файла?

[Static]

Сообщение от voron_paa

Тебе из какого документа? При открытом Word? Или просто из файла?

Конечно лучше просто из файла Word ! не открывая приложение .

[Terio]

Надо работать через Ole-объекты.
На новую форму кидаешь кнопку и мемо, затем пишешь код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ComObj, clipbrd, OleServer, Word2000;   type   TForm1 = class(TForm)     Button1: TButton;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var WordApp,SaveChs,L,E:OLEVariant; begin WordApp := CreateOleObject('Word.Application'); //создаем ole-объект Word WordApp.Documents.Open('d:\test.doc'); //открываем документ WordApp.Visible:=false; //делаем ворд невидимым E:=wdExtend; L:=wdStory; WordApp.Selection.EndKey(L,E); //выделяем текст Clipboard.asText:=WordApp.Selection.Text; //копируем в буфер обмена Memo1.text:=Clipboard.asText; //помещаем текст в мемо WordApp.ActiveDocument.Close; закрываем документ end;   end.

Дальше - парсинг: используй pos, copy, insert, delete, lenght.

[Static]

ок , пасиба , ща попробую !