Like unter Delphi

[smudo]

Hallo,

ich suche eine Funktion unter Delphi, welche mir zwei Strings so miteinander vergleicht, wie es in einer DB "like" macht.
Kennt sich da vllt. jemand aus?

Danke im Voraus
René

[Nikolas]

Ich kenne die Funktion zwar nicht, denke mir aber, dass die z.B. die Levenstein-Distanz weiterhelfen könnte.

[smudo]

Also, Like vergleicht zwei Strings mit Platzhaltern und ohne Beachtung der Gross- und Kleinschreibung.
Letzteres ist ja kein Problem, aber die Platzhalter machen mir zu schaffen.

für D%p?ie ergibt Like:

• True bei folgenden Begriffen: delphi, delpie, dpie
• False bei folgenden Begriffen: delpfhie, elphi, delphy

Solch ein Vergleich muss doch auch unter Delphi möglich sein, eventuell mit AnsiResemblesText (SoundEx, RegEx...?)

[marabu]

Hallo,

es gibt kein reguläres Pascal-Sprachmittel für deinen Test, aber selbstverständlich kannst du dir eine Funktion schreiben oder eine RegEx-Unit verwenden.

Grüße vom marabu

[CK_CK]

Hi!
Sowas macht man mit regulären Ausdrücken.

Ich hab' mal ein Programm geschrieben, was dir beim entwickeln der Ausdrücke hilft: [KLICK]

Viele Grüße,
Chris

[Schubi]

Da hilft dir folgende Unit:

Delphi-Quellcode:

unit wcomp;


interface

// case-sensitive  (Gross/Kleinschreibung wird beachtet)
function CompareWildString(const wild, Name : string) : Boolean;

// case-insensitive (Gross/Kleinschreibung ingorieren)
function CompareWildText(const wild, Name : string) : Boolean;

implementation

uses SysUtils;



const MAXB = 8;


(*
* Compare a wild card name with a normal name.
* Taken from Matt Dillon's csh program.
*)
function CompareWildString(const wild, Name : string) : Boolean;
label goback;
var
  w : PChar;
  n : PChar;

  back : array[0..MAXB-1, 0..1] of PChar;
  s1, s2 : char;
  bi : integer;
begin
  w := PChar(wild);
  n := PChar(Name);
  bi := 0;

  while (n^ <> #0) or (w^ <> #0) do
  begin
    case w^ of
      '*':
      begin
        if bi = MAXB then
        begin
          raise Exception.CreateFmt('CompareWildString(%s, %s)'#13#10+
            'too many levels of ''*''', [wild, Name]);
        end;
        back[bi, 0] := w;
        back[bi, 1] := n;

        Inc(bi);
        Inc(w);
        continue;

        goback:

          Dec(bi);
          while (bi >= 0) and (back[bi,1]^ = #0) do
            Dec(bi);

          if bi < 0 then
          begin
            Result := False;
            Exit;
          end;

          w := back[bi,0];
          Inc(w);
          Inc(back[bi,1]);
          n := back[bi,1];
          Inc(bi);
          continue;
        end;

      '?':
      begin
        if n^ = #0 then
        begin
          if bi > 0 then
            goto goback;
          Result := False;
          Exit;
        end;
      end;
     
      else  // default
      begin
        s1 := n^;
        s2 := w^;

        if s1 <> s2 then
        begin
          if bi > 0 then
            goto goback;
          Result := False;
          Exit;
        end;
      end; // default
    end; // case ...

    if n^ > #0 then
      Inc(n);
    if w^ > #0 then
      Inc(w);
  end;
  Result := True;
end;


function CompareWildText(const wild, Name : string) : Boolean;
begin
  Result := CompareWildString(AnsiUpperCase(wild), AnsiUpperCase(Name));
end;

end.

In Str1 darfst du dann * und ? einbauen, wie in der Windows-Suche.
CompareWildText(Str1, Str2)

[sakura]

Zitat von marabu:

es gibt kein reguläres Pascal-Sprachmittel für deinen Test

Nur weil Du nicht alle Delphi-Klassen kennst... Maskenvergleiche mit * (nicht %) und ? gibt es in der Unit Masks und der Klasse TMask. Die Anwendung ist selbsterklärend.

Masks wurde eigentlich für Dateinamenvergleiche geschaffen, funktioniert aber auch bei normalen Strings zuverlässig.

......

[smudo]

Ich bin erstmal überwältigt von der Flut der Antworten. Ich werde die Vorschläge unter die Lupe nehmen und mich zu meinem Resultat äußern.

[Schubi]

Zitat von sakura:

Zitat von marabu:

es gibt kein reguläres Pascal-Sprachmittel für deinen Test

Nur weil Du nicht alle Delphi-Klassen kennst... Maskenvergleiche mit * (nicht %) und ? gibt es in der Unit Masks und der Klasse TMask. Die Anwendung ist selbsterklärend.

Masks wurde eigentlich für Dateinamenvergleiche geschaffen, funktioniert aber auch bei normalen Strings zuverlässig.

......

Delphi-Quellcode:

uses Masks;
[...]
procedure TForm1.Button1Click(Sender: TObject);
var
  Mask : TMask;
begin
  Mask := TMask.Create(Edit1.Text);
  If Mask.Matches(Edit2.Text) Then Button1.Caption := 'True'
  else Button1.Caption := 'False';
  Mask.Destroy;
end;

Danke Miezekatze
Kannte ich auch nicht.
Ist auch etwas Umständlich so fürs Erste, aber man kann das ja verpacken.

[marabu]

Danke auch von mir - die Kapsel ist ja schon da: MatchesMask()

Mit Pascal-Sprachmittel wollte ich allerdings ausdrücken, dass pattern matching keine intrinsische Funktionalität von Pascal ist - im Gegensatz zu Perl und Mumps und ...

Freundliche Grüße