Пятница, 29 Мар 2024, 18:01
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51635


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей


Главная » Статьи » Студентам » Pascal

Фильтрованный поиск в строке
Есть множество задач, где необходимо использование так называемой "дикой
карты", то есть поиск в строке по фильтру, когда в качестве поиска используется
подстрока с символом "*" (звездочка). Например, если необходимо выяснить наличие
подстроки 'St' с какими-либо символами перед ней, то в качестве параметра для
поиска задается подстрока вида '*St'. Звездочка может присутствовать как в
начале/конце подстроки, так и по обеим ее сторонам. Также при составлении
фильтра вместо любого одиночного символа возможна подстановка знака вопроса.

Пока функция может только сообщать о наличии необходимых вложений, но было бы
интересно получить ваши примеры, которые могли бы и возвращать искомую
подстроку.

{

Данная функция осуществляет сравнение двух строк. Первая
строка
может быть любой, но она не должна содержать символов соответствия
(* и ?).
Строка поиска (искомый образ) может содержать абсолютно любые
символы.
Для примера: MatchStrings('David Stidolph','*St*') возвратит
True.

Автор оригинального C-кода Sean Stanley
Автор портации на Delphi David
Stidolph}
function MatchStrings(source, pattern:
String): Boolean;
var

pSource: Array [0..255] of Char;
pPattern: Array [0..255] of Char;

function MatchPattern(element, pattern: PChar):
Boolean;

function IsPatternWild(pattern: PChar): Boolean;
var
t: Integer;
begin
Result := StrScan(pattern,'*') <>
nil;
if not Result then Result := StrScan(pattern,'?') <> nil;
end;

begin
if 0 = StrComp(pattern,'*') then
Result := True
else if (element^ = Chr(0))
and (pattern^ <> Chr(0)) then
Result := False
else if element^ = Chr(0)
then
Result := True
else begin
case pattern^ of
'*': if
MatchPattern(element,@pattern[1]) then
Result := True
else
Result := MatchPattern(@element[1],pattern);
'?': Result :=
MatchPattern(@element[1],@pattern[1]);
else
if element^ = pattern^ then
Result := MatchPattern(@element[1],@pattern[1])
else
Result := False;
end;
end;
end;
begin

StrPCopy(pSource,source);
StrPCopy(pPattern,pattern);
Result := MatchPattern(pSource,pPattern);end;
Категория: Pascal | Добавил: Lerka (22 Ноя 2012)
Просмотров: 551 | Рейтинг: 1.0/ 4 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Пятница
29 Мар 2024
18:01


Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz