|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.11.2008, 13:33 | #1 |
Регистрация: 22.11.2008
Сообщений: 3
|
Поиск одинаковых слов (Delphi 7)
Дан файл,содержащий текст на русском языке.Найти слова,встречающиеся в каждом предложении или сообщить,что таких слов нет.Помогите кто чем может.Очень надо.Спасибо заранее.
|
22.11.2008, 13:54 | #2 |
Форумчанин
Регистрация: 06.06.2007
Сообщений: 282
|
Если необходимо найти слова, которые стречаются в КАЖДОМ предложении, то предлагаю примерно следующий алгоритм:
1. Загрузить файл в Memo (1 строка = 1 предложение). 2. Первое предложение забить полностью в массив - 1 элемент = 1 слово. 3. Пройтись циклом по остальному тексту, в цикле исп. функию pos. 4. Если слово не встретилось в очередном предложении - обнуляем (:= '') соответствующий элемент массива. 5. Смотрим что осталось в массиве, делаем вывод.
Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.
Последний раз редактировалось VVM; 22.11.2008 в 13:57. |
22.11.2008, 20:42 | #3 |
Регистрация: 22.11.2008
Сообщений: 3
|
Я конечно благодарен,но если вам не очень сложно напишите кусочек кода...пожалуйста...мне просто курсовик сдават ьа я не понимаю этой темы ... заранее спасибо...
|
23.11.2008, 13:15 | #4 |
Форумчанин
Регистрация: 06.06.2007
Сообщений: 282
|
Вот код. Полагаю, его можно оптимизировать, но мне лень =)
Код:
'.' - разделитель предложений, ' ' - разделитель слов. Открываем только текстовые файлы (*.txt).
Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.
Последний раз редактировалось VVM; 23.11.2008 в 13:17. |
27.11.2008, 20:14 | #5 |
Регистрация: 22.11.2008
Сообщений: 3
|
Благодарю...спасли от армии)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск одинаковых строк | Demitriy | Microsoft Office Excel | 45 | 26.07.2010 08:50 |
ПОИСК ОДИНАКОВЫХ СЛОВ (не проходите мимо!) | MAD | Помощь студентам | 12 | 24.12.2007 22:41 |
Поиск слов в тексте | pleer | Общие вопросы Delphi | 5 | 23.09.2007 08:19 |
Поиск одинаковых строк в файле | ATL | Помощь студентам | 13 | 02.05.2007 01:05 |