Volltextsuche mit Delphi

[Balosh]

Wenn ich zum Beispiel in einer Textdatei nach einem Wort mit 'ä' Suche bringt er mir die Meldung:

"Keine Zuordnung für Unicode-Zeichen in der Multibyte-Zielcodeseite vorhanden."

Da ich ja die "Volltextsuche" sowieso auf Unicode Basis machen wollte und alles bisher auch funktioniert nur das hier nicht, würde ich das wenn es geht auch noch irgendwie hinbekommen.

[himitsu]

Wer bringt diese Meldung? (wo)

Bei den Codes auf dieser Seite 5 kann ich nichts erkennen, wo ich soeine Fehlermeldung vermuten würde.
[edit] auf der vorherrigen Seite 5

[Balosh]

Sry für die späte Meldung. Habe mittlerweile das Programm zu 95% lauffähig gemacht so wie ich es mir vorgestellt habe (Danke hierfür für die ganze Hilfe). Nur ein einziges Problem bleibt noch übrig:

Das am Anfang dieses Threads angesprochene Problem mit den .dfm Dateien. Habe den Code zwar mittlerweile so das er die Umbrüche und die Zeichen (z.B. " '+ " oder " +") vor der Suche rausnimmt, nur mein Problem ist das es bei mir vorkommen kann das zum Beispiel bei " Caption= ...." ein Wort mit Umlaut stehen kann und das wird ja in delphi zum Beispiel in #228 umgewandelt und damit hat das Programm irgendwie Probleme es umzusetzen. Mit .txt und .pas Dateien funktioniert alles ohne Probleme (z.B suche mit Umlauten, Umbrüchen usw.)

Hier mal der Code für die Suche in den Dateien:

Code:

procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
    Path: string;
    slist: TStringList;
begin
  Path := IncludeTrailingBackSlash(PathName);
  slist := TStringList.Create;
  try
    if FindFirst (Path + '*', faAnyFile, Rec) = 0 then
    begin
      repeat
        if (Rec.attr in [faDirectory, (faDirectory+faArchive)]) then
        begin
          if Checkbox1.Checked then
          begin
            if (Rec.Name <> '.') and (Rec.Name <> '..') then
              FileSearch( Path+Rec.Name , FileName);
          end;
        end else
          if MatchesMask( Rec.Name, FileName) then
          begin
            slist.LoadFromFile(Path + Rec.Name);
            slist.Text := UTF8Encode(slist.Text);
            slist.Text := StringReplace(slist.Text,'''+', '',[rfReplaceAll]);
            slist.Text := StringReplace(slist.Text,'''', '',[rfReplaceAll]);
            slist.Text := StringReplace(slist.Text,#13#10, '',[rfReplaceAll]);
            if pos(cbSucheT.Text, slist.Text)>0 then
               Listbox1.Items.Add(Path + Rec.Name);
          end;
      until FindNext(Rec) <> 0;
    end;
  finally
     FindClose (Rec);
     slist.free;
  end;
end;

Habt ihr vielleicht eine Lösung wie ich das Problem noch lösen kann? Und bitte seit gnädig mit mir was die bisherigen Befehle betrifft.

[Sir Rufo]

Also du hast XE7 und du hast System.IOUtils und baust dir tatsächlich die Datei-Suche noch selber und darüberhinaus willst du alles in einer Methode abarbeiten?

Trenn den Mist doch mal voneinander, dann ist das Testen auch erheblich einfacher.

Dann wäre da noch

Delphi-Quellcode:

            slist.LoadFromFile(Path + Rec.Name);
            slist.Text := UTF8Encode(slist.Text);

WÜrde ich ja mal in die Doku TStringList.LoadFromFile schauen und anders schreiben als

Delphi-Quellcode:

// gleich richtig laden
slist-LoadFromFile( Path + Rec.Name, TEncoding.UTF8 );

[Balosh]

Zitat von Sir Rufo:

// gleich richtig laden
slist-LoadFromFile( Path + Rec.Name, TEncoding.UTF8 );

Habe ich schon probiert. Wenn ich das so mache bringt er mir die Fehlermeldung: "Keine Zuordnung für Unicode-Zeichen in der Multibyte-Zielcodeseite vorhanden." Mit dem Befehl von mir bringt er mir die Meldung nicht.

[himitsu]

Dann ist das wohl kein UTF-8 und somit ist es falsch diese Umwandlung vorzunehmen.
Und UTF8Encode UTF8Decode gibt einfach einen Leerstring zurück, wenn es kein valides UTF-8 ist, während TEncodiung korrekt einen Fehler wirft.

Außerdem ist slist.Text ein UnicodeString und UTF8Encode an der Stelle sowas von sinnlos.
slist.Text ist Unicode (slist.LoadFromFile hat UTF-8 bereits übersetzt, wenn das BOM vorhanden war), UTF8Encode wandelt es nach UTF-8 um, Delphi erkennt bei der Zuweisung, daß slist.Text ein UnicodeString ist und wandelt das UTF-8 vom UTF8Encode wieder nach Unicode um ... es ändert sich also nichts.

[Perlsau]

Manchmal kann es durchaus vorkommen, daß man nicht weiß, welche Codierung eine Textdatei enthält, insbesondere dann, wenn die Datei kein Byte Order Mark (BOM) enthält. In solchen Fällen öffne ich die jeweilige Text-Datei mit PsPad – einem unicode-fähigen Freeware-Editor – und kann dann unter dem Menüpunkt Format leicht feststellen, wie die Datei codiert wurde.