Ко всему описанному ранее для создания документа нам не хватает функ-
ций поиска и подстановки текста в документ. Хорошо, что объект Selection
обладает механизмами поиска текста — ими мы и воспользуемся. Рассмот-
рим объект Find, принадлежащий объекту Selection. Вот фрагмент исходно-
го текста Delphi.
Поиск текста в документе
procedure TForml.ButtonllClick(Sender: TObject);
var text_:string;
begin
text_:='';
text_:=InputBox('Введите текст для поиска',text_,text_);
W.Selection.Find.Forward:=true;
W.Selection.Find.Text:=text_;
if W.Selection.Find.Execute then messagebox(handle,'Поиск текста J
завершен успешно!','Внимание!', 0) ;
end;
Запустим программу нажатием кнопки и введем в специальном окне фраг-
мент текста, который нужно найти в документе (рис. 6.10).
В результате выполнения процедуры искомый фрагмент текста будет вы-
делен (рис. 6.11).
В данном примере мы задали текст в режиме поиска "от начала к концу до-
кумента", в поля объекта Find поместили нужные данные, которые устано-
вили необходимый режим, а затем вызвали метод Execute, который и вы-
полнил поиск текста. Этот метод возвращает значение True/False (при ус-
пешном/неуспешном поиске).
Рис. 6.10. При выполнении метода Find вводится фрагмент текста для поиска
Рис. 6.11. Результат успешного поиска в виде выделенного текста в документе
Очевидно, что набора методов, позволяющих осуществлять поиск и подста-
новку текста на место выделенного фрагмента, будет достаточно для созда-
ния документов на основании шаблона. В качестве примера рассмотрим
следующие процедуры.
Поиски замена текста (вариант 1)
procedure TForml.ButtonllClick(Sender: TObject);
var text_:string;
begin
text_:='';
text_:=InputBox('Введите текст для поиска',text_,text_);
W.Selection.Find.Forward:=true;
W.Selection.Find.Text:=text_;
if W.Selection.Find.Execute then W.Selection.Text:='Фрагмент для замены';
end;
Поиск и замена текста (вариант 2)
procedure TForml.Buttonl2Click(Sender: TObject);
const wdReplaceAll=2;
var text_:string;
begin
text_:='';
text_:=InputBox('Введите текст для поиска',text_,text_);
W.Selection.Find.Forward:=true;
W.Selection.Find.Text:=text_;
if W.Selection.Find.Execute(Replace:=wdReplaceAll) then
messagebox(handle,pchar('Поиск и замена текста
'Внимание! ' , 0) ;
end;
Оба варианта дают один и тот же результат. Их отличия заключаются в том,
что в первом варианте производится поиск фрагмента с использованием
метода Execute объекта Find, после чего, в случае удачной попытки, выде-
ленный фрагмент заменяется текстом. Во втором варианте метод Execute
одновременно выполняет поиск и замену текста. Если данную процедуру
(первый или второй вариант) повторять неоднократно, применяя к доку-
менту, созданному по шаблону, то можно заполнить его реальными данны-
ми, заменив ими текстовые константы. Этого достаточно для формирования
простого документа. |
Главная
Каталог файлов
