Problem mit Suche

[youu]

Hallo erstmal,

Habe ein Problem mit einer Suche.

Ich gebe ein Suchwort ein, lasse dateien durchsuchen nach dem wort und wenn gefunden gibt er die Zeile in der Datei aus.
Allerdings soll die suche mit Wildcard funktionieren.

Das heißt man muss z.B nur "Hal" eingeben und trotzdem wird das Wort "Hallo" gefunden.



Ich habe eine Funktion dazu, die wie folgt aussieht:

Delphi-Quellcode:

function MatchStr(Source,Pattern:String;CaseSensitive:Boolean):Boolean;

  function Match(Source,Pattern:PChar):Boolean;
  begin
    if StrComp(Pattern,'*')=0 then Result:=true
                              else
      if (Source^=Chr(0)) and
         (Pattern^<>Chr(0)) then Result:=false
                            else
        if Source^=Chr(0) then Result:=true
                          else
          case Pattern^ of
          '*': if Match(Source,@Pattern[1]) then Result:=true
                                            else Result:=Match(@Source[1],Pattern);
          '?': Result:=Match(@Source[1],@Pattern[1]);

          else if Source^=Pattern^ then Result:=Match(@Source[1],@Pattern[1])
                                   else Result:=false;
          end;
  end;

begin
  if not(CaseSensitive) then begin
   Source :=AnsiLowerCase(Source);
   Pattern:=AnsiLowerCase(Pattern);
   end;

  Result:=Match(PChar(Source),PChar(Pattern))
end;

ausgerufen so:

Delphi-Quellcode:

for i := 0 to LBZWDateipfad.Count - 1 do
  Begin
    zw:=GetXLine(Path + '\Kunden\' + LBZWDateipfad.Items.Strings[i], 3); // nicht beachten ist nur die funktion zum Zeilen auslesen
    IF MatchStr(zw , suche + '*' ,false)= true then
      Begin
       // speicher ergebnisse
      end;
  end;

zw = ist die Zeile die ausgelesen wurde.
suche = das Suchwort.



Nun zum eigentlichen Problem:

Er findet einfach alles wenn ich zb: "E" eingebe findet er alles auch wörter ohne "E".

Er findet nur dann nix wenn der Buchstabe überhaupt nicht vorkommt in der Zeile der Textdatei.


Was mache ich falsch?

[youu]

bitte um hilfe

[Klaus01]

Hallo,

pushen erst nach 24h.

Hast Du schon einmal die Suche bemüht.
Die Stichworte sind in Deiner Anfrage alle enthalten.
-> hier

Grüße
Klaus

[marabu]

Hallo,

deinen Code habe ich mir erstmal anders hingeschrieben:

Delphi-Quellcode:

function MatchStr(Source, Pattern: string; CaseSensitive: Boolean = True): Boolean;

  function Match(Source, Pattern: PChar): Boolean;
  begin
    if StrComp(Pattern, '*') = 0 then Result := true else
    if (Source^ = Chr(0)) and (Pattern^ <> Chr(0)) then Result := false else
    if Source^ = Chr(0) then {Result := true} Exit else
    case Pattern^ of
      '*': Result := Match(Source, @Pattern[1]) or Match(@Source[1], Pattern);
      '?': Result := Match(@Source[1], @Pattern[1]);
      else Result := (Source^ = Pattern^) and Match(@Source[1], @Pattern[1]);
    end;
  end;

begin
  if not CaseSensitive then
  begin
    Source := AnsiLowerCase(Source);
    Pattern := AnsiLowerCase(Pattern);
  end;
  Result := Match(PChar(Source), PChar(Pattern))
end;

Bei langen Strings ist die Rekursion keine ökonomische Lösung.

Ich habe dir zusätzlich eine kleine Änderung eingebaut: Wenn du am Ende des Source-Strings angekommen bist, darfst du das Ergebnis nicht unbedingt auf FALSE setzen.

Grüße vom marabu

[youu]

danke das war es.