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) <> 0) And (temp = 1)) Or ((Pos(subax, endpartabc) = 1) And (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

转载于:https://www.cnblogs.com/tulater/archive/2008/10/23/1317436.html