Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2009, 23:07   #1
rodionov_uv
Пользователь
 
Регистрация: 21.12.2009
Сообщений: 15
По умолчанию Документы Word и Delphi

Помогите пожалуйста на работе сталкнулся с такой проблемой : мне на компьютер присылают по сетке кучу файлов *.doc. в определённую папку, которые я просматриваю и сортирую. А всвязи с аттестацией на предприятии в этой папке накопилось уже около 11500 файлов.И я написал програмку сортирующую эти файлы(саму программу и текст прикрепил).
Но у меня возникла проблема с пробелами в документах.Например я ищу в файлах слова "ПРИКАЗ №" или "ТЕХНИЧЕСКОЕ УСЛОВИЕ №",а там вместо одного пробела стоит два или три или вообще нет.
Так вот у меня вопрос нельзя ли как нибудь исправить эту проблему с пробелами.
Извеняюсь за столь подробный текст и заранее спасибо всем откликнувшимся.
Вложения
Тип файла: rar Project2.rar (178.8 Кб, 17 просмотров)
Тип файла: txt Unit1.txt (3.1 Кб, 122 просмотров)
rodionov_uv вне форума Ответить с цитированием
Старый 22.12.2009, 23:33   #2
rockedit
Форумчанин
 
Аватар для rockedit
 
Регистрация: 18.03.2009
Сообщений: 109
По умолчанию

Здравствуйте. все можно, надо просто искать по словам, в ворде словами являеться любая последовательность символов не разделенных пробелами. вы можете использовтаь для поиска интерисуемых слов W.Selection.Words . Как я понимаю вам не нужен весь документ а нужен тока заголовок , вот и выделите необходимую часть и проверяете есть ли нужная последовательность. В разделе литература я выложил книгу "Программирование документов и приложений MS Office в Delphi", там много полезного.
Мозг человека обычно загружен лишь на 10% своей мощности; остальное резерв для опереционной системы. Если помог не пожалей "+", это лучшее спасибо
rockedit вне форума Ответить с цитированием
Старый 23.12.2009, 00:00   #3
rodionov_uv
Пользователь
 
Регистрация: 21.12.2009
Сообщений: 15
По умолчанию

rockedit
вот именно по этой книге я писал эту программу

Последний раз редактировалось rodionov_uv; 23.12.2009 в 00:40.
rodionov_uv вне форума Ответить с цитированием
Старый 23.12.2009, 01:06   #4
rockedit
Форумчанин
 
Аватар для rockedit
 
Регистрация: 18.03.2009
Сообщений: 109
По умолчанию

Та там примера нет, там просто наптисано что есть коолекция слов суть в чем W.Selection.Words - сдесь содерожаться вес слова выделенного фрагмента, именно слова т.е. если вы выделили "11 22" то там будет 11 и 22, без пробелов. ну и потом если не ошибаюсь W.Selection.Words.Item()
Мозг человека обычно загружен лишь на 10% своей мощности; остальное резерв для опереционной системы. Если помог не пожалей "+", это лучшее спасибо
rockedit вне форума Ответить с цитированием
Старый 23.12.2009, 01:12   #5
rodionov_uv
Пользователь
 
Регистрация: 21.12.2009
Сообщений: 15
По умолчанию

rockedit
Через W.Selection.Words прога вообще отказывалась работать.Выдавала ошибку и код был ого-го нашёл его в "королевстве дельфи",а этот хоть работает
rodionov_uv вне форума Ответить с цитированием
Старый 23.12.2009, 01:16   #6
rockedit
Форумчанин
 
Аватар для rockedit
 
Регистрация: 18.03.2009
Сообщений: 109
По умолчанию

Можно впринцпипи ничего не выделять и испорльзовать весь документ. W.Documents.Words
Мозг человека обычно загружен лишь на 10% своей мощности; остальное резерв для опереционной системы. Если помог не пожалей "+", это лучшее спасибо
rockedit вне форума Ответить с цитированием
Старый 23.12.2009, 01:31   #7
rodionov_uv
Пользователь
 
Регистрация: 21.12.2009
Сообщений: 15
По умолчанию

rockedit
выдаёт ошибку на W.Documents.Words при автоматическом поиске, а при выделении в документе строки вручную зараза работает.
Изображения
Тип файла: bmp ошибка.bmp (258.0 Кб, 123 просмотров)

Последний раз редактировалось rodionov_uv; 23.12.2009 в 01:59.
rodionov_uv вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работать в Word, не открывая документы (работа с закрытыми документами Word) Георгиевич Microsoft Office Word 10 07.09.2009 11:19
Word Delphi xtc_win64 Общие вопросы Delphi 9 31.07.2009 12:48
Delphi + word ToLeG Мультимедиа в Delphi 2 09.07.2009 16:42
создание файла в папке Мои Документы (Delphi) sonic007 Помощь студентам 1 27.05.2008 17:07
из delphi в word *Devil* Microsoft Office Word 1 24.05.2007 07:55