Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6461
Последний выпуск: 19.06.2015

Сравнение строк типа like (как в access)

12K
01 декабря 2006 года
dolph
16 / / 14.03.2006
Подскажите как сравнить в delphi строчки, таким образом, как написано в заголовке.

Другими словами надо проверить входит ли одна строка в другую.
330
01 декабря 2006 года
Delpher
493 / / 14.08.2005
pos(substr,str);
если подстрока есть - выдает позицию начала подстроки.
288
04 декабря 2006 года
makbeth
1.0K / / 25.11.2004
Можно еще воспользоваться регулярными выражениями (получится полностью "как like"). Компонент для этого дела берем здесь: http://www.regexpstudio.com/RegExpStudio.html
99K
06 февраля
Shamr
1 / / 06.02.2018
Я тут взял и написал для своей задачи процедуру которая умеет определять соответствие по Маске. * -- любое количество любых символов. Даже если символов нет, то тоже все отлично.? -- точно один любой символ. Если надо в маске прописать * или ?, чтобы она воспринималась как * или ?, то надо писать пару. Есть недостаток. Если надо написать поиск скажем Тескт_Любой символ_?да, то будет воспринято процедурой Текст?_любой символ_да. Ну и по звездочке то же самое.
Вот текст процедуры:
Код:
Function Like(StrLike, Str : String) : Boolean;
Var PEach, pOne, i, k, Sl : Integer;
    Frst : Boolean;
    StrArray : Array of String;
Begin
  SetLength(StrArray, 0);
  i := 1;
  k := 0;
  SL := Length(StrLike);
  While i <= SL do
  Begin
    Case StrLike[i] of
      '*' : Begin
        If (i < SL) and (StrLike[i + 1] = '*') Then
        Begin
          If k >= length(StrArray) Then
          Begin
            SetLength(StrArray, k + 1);
          End;
          StrArray[k] := StrArray[k] + '*';
          i := i + 1;
        End else
        If (i = SL) Or (StrLike[i + 1] <> '*') Then
        Begin
          If k < Length(StrArray) Then
          Begin
            inc(k);
          End;
          SetLength(StrArray, k + 1);
          StrArray[k] := '*';
          Inc(k);
        End;
      End;
      '?' : Begin
        If (i < SL) and (StrLike[i + 1] = '?') Then
        Begin
          If k >= length(StrArray) Then
          Begin
            SetLength(StrArray, k + 1);
          End;
          StrArray[k] := StrArray[k] + '?';
          i := i + 1;
        End else
        If (i = SL) Or (StrLike[i + 1] <> '?') Then
        Begin
          If k < Length(StrArray) Then
          Begin
            inc(k);
          End;
          SetLength(StrArray, k + 1);
          StrArray[k] := '?';
          Inc(k);
        End;
      End;
      Else
      Begin
        If k >= length(StrArray) Then
        Begin
          SetLength(StrArray, k + 1);
        End;
        StrArray[k] := StrArray[k] + StrLike[i];
      End;
    End;
    i := i + 1;
  End;
  Result := True;
  Frst := True;
  i := 0;
  While i < Length(StrArray) Do
  Begin
    If StrArray[i] = '?' Then
    Begin
      Delete(Str, 1, 1);
      Frst := True;
    End else
    If StrArray[i] = '*' Then
    Begin
      Frst := False;
      If i = Length(StrArray) - 1 Then
      Begin
        Str := '';
      End else
      Begin
        k := i;
        While (k < Length(StrArray)) and ((StrArray[k] = '*') or (StrArray[k] = '?')) Do
          k := k + 1;
        If k >= Length(StrArray) Then
          Str := '' else
        Begin
          i := k - 1;
        End;
      End;
    End else
    Begin
      pOne := Pos(StrArray[i], Str);
      If Frst and (pOne = 1) Then
      Begin
        Delete(Str, 1, Length(StrArray[i]));
      End else
      If (not FRST) and (pOne <> 0) Then
      Begin
        Delete(Str, 1, pOne + Length(StrArray[i]) - 1);
      End;
    End;
    i := i + 1;
  End;
  Result := Str = '';
End;
Пример: Like('*.do?*', 'Файл.doc') даст истину,
Like('*.do?*', 'Файл.docx') - истина,
Like('*.do?', 'Файл.docx') - лож. И т.д.
87K
19 февраля
Milka Ivanova
3 / / 19.02.2018
У нас на сайте очень просто заказать проститутку Москвы нужно лишь позвонить ей и она приедет к вам для незабываемого отдыха.
248
20 февраля
Ramon
1.1K / / 16.08.2003
Цитата: Milka Ivanova
У нас на сайте очень просто заказать проститутку Москвы нужно лишь позвонить ей и она приедет к вам для незабываемого отдыха.

А она принесет тулы для секса и какой-нить HEX дамп для "расковыривания" или надо со своими?

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог