zoukankan      html  css  js  c++  java
  • Delphi 下的通配符查找函数

    //Delphi 下的通配符查找函数
    Function
     IsLike(ax, abc: String): Boolean; //ax是子串,abc是源串 Var   abcstart, axstart, abclength, axlength: Integer;   endpartabc, endpartax, subax: String;   temp, abcwww, axwww: Integer; Begin //aaa   temp := 0;   abcstart := 1;   axstart := 1;   axwww := 1;   abcwww := 1;   ax:=LowerCase(ax);   abc:=LowerCase(abc);   abclength := Length(abc);   axlength := Length(ax);   result := True;   While axstart <= axlength Do Begin //bbb     If ax[axstart] = '?' Then Begin       inc(axstart);       inc(abcstart);       If abcstart > abclength+1 Then Begin         result := false;         Break;       End;       Continue;     End;     If ax[axstart] = '*' Then Begin       inc(axstart);       temp := 1;       axwww := axstart;       abcwww := abcstart;       Continue;     End;     If Not (ax[axstart] In ['?''*']) Then Begin //ccc       endpartax := Copy(ax, axstart, axlength - axstart + 1) + '?*';       If Pos('?', endpartax) < Pos('*', endpartax) Then Begin         subax := Copy(endpartax, 1, Pos('?', endpartax) - 1);         axstart := axstart + Pos('?', endpartax) - 1;       End       Else Begin         subax := Copy(endpartax, 1, Pos('*', endpartax) - 1);         axstart := axstart + Pos('*', endpartax) - 1;       End;       endpartabc := Copy(abc, abcstart, abclength - abcstart + 1);       If ((Pos(subax, endpartabc) <> 0And (temp = 1)) Or ((Pos(subax, endpartabc) = 1And (temp = 0)) Then Begin //ddd         If temp = 1 Then temp := 0;         abcstart := abcstart + (Pos(subax, endpartabc) + Length(subax) - 1);       End       Else  Begin //ddd         If temp = 0 Then Begin           axstart := axwww;           abcwww := abcwww + 1;           abcstart := abcwww;           temp := 1;           Continue;         End;         result := false;         Break;       End//ddd     End//ccc   End//bbb End//aaa
  • 相关阅读:
    DISTINCT 方法用于返回唯一不同的值 。
    UNION操作用于合并两个或多个 SELECT 语句的结果集。
    JOIN方法也是连贯操作方法之一
    HAVING方法也是连贯操作之一
    GROUP方法也是连贯操作方法之一
    page方法也是模型的连贯操作方法之一
    limit方法也是模型类的连贯操作方法之一
    order方法属于模型的连贯操作方法之一
    field方法属于模型的连贯操作方法之一
    data方法也是模型类的连贯操作方法之一,
  • 原文地址:https://www.cnblogs.com/tulater/p/1317436.html
Copyright © 2011-2022 走看看