Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Поиск подстроки в строке по маске

Автор: Krokodil 12.12.2004, 16:03

Дана строка.
Маска :
* - любое количество символов(межет и ни одного).
? - один символ(может и ни одного).
Определить , подходит ли данная строка под заданную маску.
Заранее спасибо. smile

Автор: Zero 12.12.2004, 18:41

У тебя не корректно написано, чтобы нам было понятно, напиши пример входящих данных и исходящих (результат)
Насколько я понял, то получается: что вначале идёт приглошения для ввода строки, а потом пользователь её вводит, и в результате выходит, что
* ─ подходит (так как
? ─ подходит ( один или не одного (или более) символа строка всегда содержит

Автор: Krokodil 14.12.2004, 19:33

Входная строка :
123абвг456
Маска :
123*456
Ответ :
Подходит.

Входная строка :
123абвг456
Маска :
123?456
Ответ :
Не подходит.

Входная строка :
123456
Маска :
*аа*
Ответ :
Не подходит.

Входная строка :
12345678
Маска :
?456
Ответ :
Не подходит.

Входная строка :
345678
Маска :
?456
Ответ :
Подходит.

smile

P.S. Надеюсь, теперь будет по-понятнее.

Автор: Zero 17.12.2004, 23:21

Цитата(Krokodil @ 14.12.2004, 19:33)

P.S. Надеюсь, теперь будет по-понятнее.

Конечно!!! smile

Извени что долго не отвечал, просто у меня сессия началась, сегодня сдал экзамен, поэтому появилось время залесть в и-нет.
Держи прогу

Код


program Maska;
var
 s,m:string;
Begin
  write('Введите исходную строку: ');
  readln(S);
  write('Введите маску строки: ');
  readln(m);
  repeat
    if m[1]=s[1] then
      begin
        delete(s,1,1);
        delete(m,1,1);
      end else

    if m[1]='*' then
      begin
        repeat
          if s[1] in ['a'..'z','A'..'Z'] then delete(s,1,1);
        until not(s[1] in ['a'..'z','A'..'Z']);
        delete(m,1,1);
      end else

    if m[1]='?' then
      begin
        if s[1] in ['a'..'z','A'..'Z'] then delete(s,1,1);
        delete(m,1,1);
      end else

    if m[1]<>s[1] then begin writeln('Ответ: Неверно'); exit; end;
  until length(s)=0;
  writeln('Ответ: Верно');
end.

Правдо я её особо не тестиовал, возможно что-то не предусмотрел, но в основном вроде всё так. smile

Автор: Marriage 19.12.2004, 02:36

Zero

А числа у тебя учтены ????

Предлагаю другой вариант

Проверяйте....

Писал в делье, поэтому для паскаля придется чуток подправить ...
Добавлено @ 02:45
Zero

А числа у тебя учтены ????

Предлагаю другой вариант

Код



var
s,m:string;
i,y:Integer;
res:boolean;
Begin

 res:=TRUE;       //прелположим, что строки подходит
 S:='123456';    //строка
 m:='123?';      //маска

 i:=0;           //обнуляем счетчик строки
 y:=0;           //обнуляем счетчик маски






 repeat

   Inc(i);        //устанавливаем в  1
   Inc(y);        //

   IF s[i] <> m[y] then   //Если элемент маски не равен элементу строки
    Begin

     IF m[y]='?' then    //? - это любой символ, забиваем на всё и идем дальше
      Begin
       continue;
      end;

     IF m[y]='*' then    //Множество любых символов
                         //наращиваем маску на следущий символ
      BEgin

       inc(y);

       If m[y]=#0 then   //конец маски, то есть любое количество любых символов
        Break;            //выход из цикла
       Repeat             //
         inc(i);          // наращиваем индекс строки до тех пор , пока не совпадет символ с символом маски
       Until (s[i]=m[y]) or (i>Length(s));//или пока не достигнут будет конец строки



       continue;
      end;

     res:=False; //ЛОЖ
    End;




 until i=Length(s);



 IF res then
  Writeln('Èäåíòè÷íî!!!')
 else
  Writeln('Íå èäåíòè÷íî!!!');


end;

Проверяйте....

Писал в делье, поэтому для паскаля придется чуток подправить ...

Автор: Romtek 7.1.2005, 12:26

Код

Function StrMatch (S, WildCard: String): boolean;
var i, j, slen, wlen :integer;
    fnd: boolean;
begin
   fnd := true;
   if not (WildCard = '*') then
    begin
     i := 1;
     j := 1;
     wlen := Length (WildCard);
     slen := length (S);
     repeat
      if WildCard[i] = '*' then
       begin
        inc (i);
        if i<= wlen then
        while(j <= slen) and (WildCard[i] <> S[j]) do
            inc(j);
        fnd := (j <= slen) or (i > wlen);
       end;
      while ( j <= wlen )
            and (i <= slen)
            and (WildCard[i] <> '*')
            and fnd
            do
       begin
        if WildCard[i] <> '?' then
          fnd := (WildCard[i] = S[j]);
        inc (i);
        inc (j);
       end;
    until (j > wlen) or (i > slen) or not fnd;
   end;
 StrMatch := fnd;
end;