Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 04.10.2008, 15:45   #1
Gon
Пользователь
 
Регистрация: 30.04.2008
Сообщений: 16
Репутация: 12
По умолчанию Поиск слова.

Пытаюсь найти введенное пользователем слово в каком то текстовом файле.
Иду по такому алгоритму: считываю 1 букву, нахожу слово начинающееся с этой буквы, считываю 2 букву сверяю с наеденым словом, если сходится проверяю 3 букву и т.д., если не сходится сново ищу слово начинающееся с 1 считанной буквы.

В теории могу представить длинный цыкл, но немагу реализовать.

Можете подсказать реализацию или мб способи нахождения попроще.

Спасибо.
Gon вне форума   Ответить с цитированием
Старый 04.10.2008, 16:02   #2
puporev
Профессионал
 
Регистрация: 13.10.2007
Сообщений: 2,739
Репутация: 965
По умолчанию

Слово - это набор символов, отделенный с двух сторон не буквами.
Задано слово S1. Ищем первое вхождение этого слова в тексте, предварительно вытащив текст в строки.
if (pos(S1,S)>0) and (s[pos(S1,S)-1] не буква) and (s[pos(S1,S)+length(s))] не буква).
Буквы представить в виде константы-множества. Что-то в этом роде.
puporev вне форума   Ответить с цитированием
Старый 05.10.2008, 16:34   #3
pascal65536
Пользователь
 
Регистрация: 03.09.2007
Сообщений: 42
Репутация: 30
По умолчанию

А искать слово ЦЕЛИКОМ не судьба? Зачем именно по буквам?
pascal65536 вне форума   Ответить с цитированием
Старый 05.10.2008, 17:14   #4
puporev
Профессионал
 
Регистрация: 13.10.2007
Сообщений: 2,739
Репутация: 965
По умолчанию

Цитата:
А искать слово ЦЕЛИКОМ не судьба? Зачем именно по буквам?
Видимо чукча не читатель.
Цитата:
Задано слово S1. Ищем первое вхождение этого слова в тексте
puporev вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск слова в таблице (datagridview) kommunist Общие вопросы .NET 4 11.04.2010 20:38
Поиск слова в поле типа МЕМО БД PARADOX KAZAKH БД в Delphi 2 05.06.2008 07:22
Составление слова Cawboy Общие вопросы Delphi 2 03.06.2008 13:21
Поиск 'Слова' JakSon Работа с сетью в Delphi 1 20.04.2008 00:13
Поиск слова в окне Иллидан Общие вопросы Delphi 21 07.03.2008 23:43


04:16.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.