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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

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

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

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

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

Спасибо.
Gon вне форума Ответить с цитированием
Старый 04.10.2008, 15: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, 15:34   #3
pascal65536
Пользователь
 
Регистрация: 03.09.2007
Сообщений: 42
По умолчанию

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS