AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Volltextsuche mit Delphi

Ein Thema von Balosh · begonnen am 21. Apr 2015 · letzter Beitrag vom 22. Mai 2015
Antwort Antwort
Balosh

Registriert seit: 21. Apr 2015
31 Beiträge
 
Delphi 10 Seattle Professional
 
#1

AW: Volltextsuche mit Delphi

  Alt 7. Mai 2015, 08:46
Ich dreh noch am Rad.
Seit über einer Woche versuche ich die Sonderzeichen (ä,ö,ü,ß usw.) mit in die Suche einzubeziehen und bekomme es einfach nicht hin. Habe verschiedene Tipps aus dem Internet probiert aber nichts hat wirklich funktioniert.

Wie bekomme ich das in dieser Source gebacken:

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);
            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;
Ich weiß echt nicht mehr weiter.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.880 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Volltextsuche mit Delphi

  Alt 7. Mai 2015, 09:13
Wie meinst Du das? Pos müsste auch Umlaute finden oder meinst Du Alternativen ( ae für ä usw.)?
Markus Kinzler
  Mit Zitat antworten Zitat
Balosh

Registriert seit: 21. Apr 2015
31 Beiträge
 
Delphi 10 Seattle Professional
 
#3

AW: Volltextsuche mit Delphi

  Alt 7. Mai 2015, 09:48
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.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.529 Beiträge
 
Delphi 12 Athens
 
#4

AW: Volltextsuche mit Delphi

  Alt 7. Mai 2015, 09:57
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
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Balosh

Registriert seit: 21. Apr 2015
31 Beiträge
 
Delphi 10 Seattle Professional
 
#5

AW: Volltextsuche mit Delphi

  Alt 21. Mai 2015, 07:59
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.
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

AW: Volltextsuche mit Delphi

  Alt 21. Mai 2015, 08:21
Also du hast XE7 und du hast Delphi-Referenz durchsuchenSystem.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 Delphi-Referenz durchsuchenTStringList.LoadFromFile schauen und anders schreiben als
Delphi-Quellcode:
// gleich richtig laden
slist-LoadFromFile( Path + Rec.Name, TEncoding.UTF8 );
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Balosh

Registriert seit: 21. Apr 2015
31 Beiträge
 
Delphi 10 Seattle Professional
 
#7

AW: Volltextsuche mit Delphi

  Alt 21. Mai 2015, 08:44
// 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.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz