Problem mit Tstringlist und ss sowie ß

[Franzelchen]

Ich habe eine Liste mit ca 30000 Wörtern welche ca 5000 doppelte Begriffe enthält. Tstringlist.duplicate entfernt mir diese doppelten aber es hat ein Problem mit ss und ß. Bei gleichlautende Begriffen (weiß und weiss) wird das Wort mit ß in die Liste übernommen, das Wort mit ss dagegen abgelehnt. Wer hilft mir?

[TonyR]

Zitat:

Zitat von Franzelchen

...Bei gleichlautende Begriffen (weiß und weiss) wird das Wort mit ß in die Liste übernommen, das Wort mit ss dagegen abgelehnt...

Echt jetzt? Ich dachte Duplicates wirft wirklich nur genau identische Wörter raus.... :gruebel:

Und was ist da jetz so schlimm dran???

[Franzelchen]

das macht es ja auch nur bei ß und ss hat es seine Schwierigkeiten. Hat vielleicht mit der Tatsache zutun das es ß im englischen Alphabet nicht gibt?

[3_of_8]

Ich weiß nicht genau, ob die TStringList da ANSI berücksichtigt, aber warum schreibst du dir nicht selber ne Funktion, die die Dinger "rauswirft"? Sortier die StringList mit nem Quicksort, führ ne binäre Suche aus, ob das Wort schon drin ist, und wenn ja, schmeiß es raus bzw. tu es gar nicht erst rein.

[Franzelchen]

Die Tstringlist wird im Anschluß in eine Datenbankdatei verwandelt. Daraufhin wird die Datenbank mit Begriffen verglichen in denen zB. weiß und weiss enthalten sind. weiss wird als fehlend angesehen und markiert, weil die Stringlist (weiß) enthält aber (weiss) nicht.

[Torpedo]

Zitat:

Zitat von Franzelchen

Die Tstringlist wird im Anschluß in eine Datenbankdatei verwandelt. Daraufhin wird die Datenbank mit Begriffen verglichen in denen zB. weiß und weiss enthalten sind. weiss wird als fehlend angesehen und markiert, weil die Stringlist (weiß) enthält aber (weiss) nicht.

Und wo liegt das Problem? weiss ist eben nicht weiß. ss <> ß
Dann wurde das Wort eben falsch eingegeben. Wenn "Delphi" nicht gefunden wird, weil Delfi drin ist, dann ist das doch auch kein Fehler, oder? ;)

[Franzelchen]

Die Ausgangsliste wird nach TStringlist überführt und mit Duplicate werden die Doppelten entfernt. Das Problem ist das ss wie ß behandelt wird. Ist Baß oder Weiß enthalten wird Bass oder Weiss obwohl andere Schreibweise nicht mehr in die Stringlist aufgenommen, weil DOPPELT!!! Ich möchte aber das WEISS und BASS dennoch in der Stringlist enthalten sind damit ich nach der Umwandlung in Datenbank die Begriffe WEISS und BASS nicht ständig als fehlend markiert werden.

[Bernhard Geyer]

Welches Windows-Version hast du? Unter Vista wurden die Spielregeln geändert und Delphi verwendet Win32-API-Funktionen ...

[Franzelchen]

Zitat:

Zitat von Bernhard Geyer

Welches Windows-Version hast du? Unter Vista wurden die Spielregeln geändert und Delphi verwendet Win32-API-Funktionen ...

Ich habe XP Home

[3_of_8]

Ich hab die Classes.pas nicht da, aber dass für eine einfache Stringliste WinAPI-Funktionen verwendet werden, bezweifle ich irgendwie.

[Franzelchen]

Zitat:

Zitat von 3_of_8

Ich hab die Classes.pas nicht da, aber dass für eine einfache Stringliste WinAPI-Funktionen verwendet werden, bezweifle ich irgendwie.

Diese Antwort hilft mir aber auch nicht weiter

[Klaus01]

Vielleicht helfen Dir diese Infos etwas weiter.

Grüße
Klaus

[Franzelchen]

Zitat:

Zitat von Klaus01

Vielleicht helfen Dir diese Infos etwas weiter.

Grüße
Klaus

Allerbesten Dank. Endlich eine Antwort mit der man etwas anfangen kann!!!

[Namenloser]

Zitat:

Zitat von 3_of_8

Ich hab die Classes.pas nicht da, aber dass für eine einfache Stringliste WinAPI-Funktionen verwendet werden, bezweifle ich irgendwie.

Doch tut sie. Sie nutzt ansicomparetext (oder so ähnlich), um strings zu ordnen.

[Franzelchen]

Zitat:

Zitat von Klaus01

Vielleicht helfen Dir diese Infos etwas weiter.

Grüße
Klaus

Deine kurze Antwort finde ich am Besten, denn ich bin viel zu sehr Anfänger um mich mit API Funktionen auszukennen. Anbei die Lösung des Problems:

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
RichEdit1.Lines.LoadFromFile(OpenDialog1.Filename) ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
codieren(Sender);
entdoppeln(Sender);
decodieren(Sender);

end;

procedure TForm1.codieren(Sender: TObject);
var
LB :TStringlist;
begin
LB:= TStringList.Create;
LB.Text:= RichEdit1.Text;
LB.Text:= StringReplace(LB.Text,'ß','SSSS',[rfReplaceAll]);
LB.SaveToFile('C:\neu3\test.txt');
LB.Free;
end;

procedure TForm1.entdoppeln(Sender: TObject);
var
SL: TStringList;
begin
SL := TStringList.Create;
try
with SL do
begin
Sorted := True;
Duplicates := dupIgnore;
LoadFromFile('C:\neu3\test.txt');
end;
SL.SaveToFile('C:\neu3\test2.txt');
finally
SL.Free;
end;
end;

procedure TForm1.decodieren(Sender: TObject);
var
LB :TStringlist;
begin
LB:= TStringList.Create;
LB.LoadFromFile('C:\neu3\test2.txt') ;
LB.Text:= StringReplace(LB.Text,'SSSS','ß',[rfReplaceAll]);
RichEdit2.Text := LB.Text;
LB.SaveToFile('C:\neu3\test3.txt');
LB.Free;
end;


end.