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

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

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

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

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

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

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

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

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

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

Слово - это набор символов, отделенный с двух сторон не буквами.
Задано слово 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
По умолчанию

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

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


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск слова в таблице (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 22:43