поиск

← →
ALex17 (2004-10-15 19:40) [0]

Привет всем !!! Ктонибуть помогите пожалуйста с поиском.
У меня есть энное количество вордовских файлов имне нодо чтобы прога находила в этих файлах слово которое я ввожу из Edit-а. И вывадила по поиску отчет.

← →
GanibalLector © (2004-10-15 19:42) [1]

2 ALex17
Ну а чем сложность???Задача решаема!!!

← →
Alex17 (2004-10-15 19:46) [2]

Да втомтои дела что я незнаю поиска в вордаских фалов не запуская ворд

← →
GanibalLector © (2004-10-15 19:50) [3]

Дык,прийдется запускать Word программно(через OLE например) и искать(Selection.Find)

← →
Alex17 (2004-10-15 19:54) [4]

Ну я имею ввиду так но как это зделать я так скажем неспец ещё по дельфи

← →
Alex17 (2004-10-15 19:57) [5]

Как понять (Selection.Find)напишите пожалуйста небольшой код

← →
GanibalLector © (2004-10-15 20:39) [6]

Вот,примерно так :
uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var WordApp:Variant;Doc1:OleVariant; i:integer; begin try WordApp := CreateOleObject("Word.Application"); except ShowMessage("Could not start MS Word!"); end; WordApp.Documents.add; wordapp.visible:=true; Doc1 := WordApp.ActiveDocument; // у тебя там будет загрузка из файла(но мне в лом писать) // написали что-нибудь WordApp.Selection. TypeText("qweert FU.."+#10#13); WordApp.Selection. TypeText("retdf FU!!"+#10#13); WordApp.Selection. TypeText("GrandMather FU//"); WordApp.Selection. TypeText("GrantFather FU.."); WordApp.Selection.HomeKey($00000006);//стали в начало WordApp.Selection.Find.Text:="FU"; if WordApp.Selection.Find.Execute=-1 then messagedlg("Во,нашли текст!!!",mterror,[mbok],0); ...// и т.д.

← →
GanibalLector © (2004-10-15 20:41) [7]

if WordApp.Selection.Find.Execute=0 то не нашли нифига

← →
Alex17 (2004-10-15 20:44) [8]

Спосибо тебе

← →
GanibalLector © (2004-10-15 20:53) [9]

Удалено модератором

← →
GuAV © (2004-10-15 21:26) [10]

[9] GanibalLector © (15.10.04 20:53)
А у Вас проблемы с исключениями

> try
> WordApp := CreateOleObject("Word.Application");
> except
> ShowMessage("Could not start MS Word!");
> end;
> WordApp.Documents.add;
>

Ну и что будет если ворд не будет создан ?

← →
GabibalLector (2004-10-15 21:50) [11]

2 GuAV ©

А у Вас проблемы с исключениями
У меня???У меня их нет...Они достались Alex17 .

З.Ы. Это ж все для образца... ;)

← →
All (2004-10-16 18:40) [12]

{Ы. Это ж все для образца... ;)}.вкаком смысле

2 All
>вкаком смысле
В прямом.Если бы у меня было больше времени и желания,то я бы поступил так:
вызвал CLSIDFromProgID для проверки существования Word.Application.Тогда бы try except можно было бы не использовать.Хотя...можно и использовать вписав заветное слово exit.

Нафиг там try..except. если исключение, то дальнейший код не выполнится и будет сообщение об ошибке - лучше ничего не придумаешь. а вот последующий код связанный с XL следует весь положить в try.. блок

>Нафиг там try..except. если исключение, то дальнейший код не выполнится и будет сообщение об ошибке

Ну и пускай будет.Дальше-то он выполняться не будет,а это самое главное.

а вот последующий код связанный с XL следует весь положить в try.. блок
Мотивируйте,ПОЧЕМУ! Что может помешать ему ???

> Ну и пускай будет.Дальше-то он выполняться не будет,а
> это самое главное.

В том и дело что при наличии try.. except там он будет выполнятся, а при отсутствии - как я написал.

> Мотивируйте,ПОЧЕМУ! Что может помешать ему ???

Чтобы в конце этой процедуры показать или закрыть word. иначе в случае исключения он виден не будет, но и не будет закрыт, своего рода утечка.

поиск Найти похожие ветки