FoxClub Forums > Архив конференции по VFP до 2005 года > Поиск словосочетаний в офисных документах ::

:: Архив конференции по VFP до 2005 года

• Войти

Страницы: 1 2 3

Поиск словосочетаний в офисных документах
Каратаев Автор Сообщений: 3977 Откуда: Алматы Дата регистрации: 04.12.2001	Каратаев 11.03.05 07:01:04 Надо програмно определить в каких документвх (Word, Excel, HTML, TXT) имеется искомое слово (фраза). Нет ли у кого какой нить dll-ки что ли или еще какого прибамбаса? Пока пытаюсь делать так, это только вырезка из кода для понимания подхода: LPARAMETERS tcSearchStr lcSearhWord = tcSearchStr lcSearhUnicode = STRCONV(lcSearhWord,5) lcStr = FILETOSTR(tcFileName) IF (UPPER(tcSearhWord)$UPPER(lcStr) OR tcSearhUnicode$lcStr) lResult = .T. ENDIF RETURN lResult Вроде ищет, но не все. И чувствителен к регистру... Может есть мысли какие? ------------------ Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Поиск словосочетаний в офисных документах

Каратаев
Автор

Сообщений: 3977
Откуда: Алматы
Дата регистрации: 04.12.2001

Каратаев

11.03.05 07:01:04

Надо програмно определить в каких документвх (Word, Excel, HTML, TXT) имеется искомое слово (фраза).
Нет ли у кого какой нить dll-ки что ли или еще какого прибамбаса?
Пока пытаюсь делать так, это только вырезка из кода для понимания подхода:


LPARAMETERS tcSearchStr
lcSearhWord = tcSearchStr
lcSearhUnicode = STRCONV(lcSearhWord,5)
lcStr = FILETOSTR(tcFileName)
IF (UPPER(tcSearhWord)$UPPER(lcStr) OR tcSearhUnicode$lcStr)
    lResult = .T.
ENDIF
RETURN lResult

Вроде ищет, но не все. И чувствителен к регистру...
Может есть мысли какие?

------------------
Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Re: Поиск словосочетаний в офисных документах
Hel!Riser Сообщений: 10452 Откуда: Нижний Новгород Дата регистрации: 11.03.2001	Hel!Riser 11.03.05 07:02:35 в Total Commander'e нажмать Алт+Ф7.... ------------------ Осторожно - глисты!

Re: Поиск словосочетаний в офисных документах
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 11.03.05 07:09:13 Это еще с учетом всех кодировок ? DOS, Win, KOI, UNICODE ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Поиск словосочетаний в офисных документах
Каратаев Автор Сообщений: 3977 Откуда: Алматы Дата регистрации: 04.12.2001	Каратаев 11.03.05 07:09:47 Hel!Riser в Total Commander'e нажмать Алт+Ф7 Еще раз... нужно программно! Из VFP!И вернуть список файлов в курсор... и т.д. и т.п. ------------------ Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Re: Поиск словосочетаний в офисных документах
Hel!Riser Сообщений: 10452 Откуда: Нижний Новгород Дата регистрации: 11.03.2001	Hel!Riser 11.03.05 07:41:00 спокойствие.. толька спокойствие! (с) зЫ не знаю как ------------------ Осторожно - глисты!

Re: Поиск словосочетаний в офисных документах
Каратаев Автор Сообщений: 3977 Откуда: Алматы Дата регистрации: 04.12.2001	Каратаев 11.03.05 07:47:02 piva Это еще с учетом всех кодировок ? DOS, Win, KOI, UNICODE Желательно, конечно... ------------------ Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Re: Поиск словосочетаний в офисных документах
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 11.03.05 07:47:28 Можно конечно и через At если файлы выгребать по FileToStr - только вот еще предусмотреть все возможные кодировки в том числе и UTF-8. А если офисные документы сохранены с паролем то, вряд ли вообще в них чего-нибудь найдешь. Filer.DLL не позволяет искать с учетом кодировок - там тока виндовая и все. ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Поиск словосочетаний в офисных документах

piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004

piva

11.03.05 07:47:28

Можно конечно и через At если файлы выгребать по FileToStr - только вот еще предусмотреть все возможные кодировки в том числе и UTF-8. А если офисные документы сохранены с паролем то, вряд ли вообще в них чего-нибудь найдешь. Filer.DLL не позволяет искать с учетом кодировок - там тока виндовая и все.

------------------
Часто бывает так, что есть над чем задуматься, а нечем.

Re: Поиск словосочетаний в офисных документах
Каратаев Автор Сообщений: 3977 Откуда: Алматы Дата регистрации: 04.12.2001	Каратаев 11.03.05 07:51:31 Вообще-то был и другой вариант. Открыть файл, не показывая его пользователю, скопировать текст из него в _cliptext, закрыть файл. И по _cliptext искать чего нужно. Такой ваоиант находит все и так как надо. Только долго очень. Вот тестировал поиск по 17 файлам всех перечисленных форматов - нашел все правильно, но время - почти 1 минута! Не катит такое. ------------------ Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Re: Поиск словосочетаний в офисных документах

Каратаев
Автор

Сообщений: 3977
Откуда: Алматы
Дата регистрации: 04.12.2001

Каратаев

11.03.05 07:51:31

Вообще-то был и другой вариант. Открыть файл, не показывая его пользователю, скопировать текст из него в _cliptext, закрыть файл. И по _cliptext искать чего нужно. Такой ваоиант находит все и так как надо. Только долго очень. Вот тестировал поиск по 17 файлам всех перечисленных форматов - нашел все правильно, но время - почти 1 минута! Не катит такое.

------------------
Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Re: Поиск словосочетаний в офисных документах
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 11.03.05 07:52:40 Попробуй посмотри там - тока там все за деньги www.download.com ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Поиск словосочетаний в офисных документах
Каратаев Автор Сообщений: 3977 Откуда: Алматы Дата регистрации: 04.12.2001	Каратаев 11.03.05 09:18:20 Документы без пароля. piva Filer.DLL не позволяет искать с учетом кодировок - там тока виндовая и все. А как использовать Filer.DLL ? ------------------ Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Страницы: 1 2 3

:: Список Форумов•Список тем•Поиск•Войти

Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 9 (Гостей: 9)