textdatei sortieren

[herrentor]

moin

ich möchte gerne eine textdatei sortieren lassen. und zwar so, dass keine doppelten einträge in einem bereich vorkommen, sondern dafür ein zähler um eins erhöht wird.

beispiel:

[22.02.05]
werder; wird; meister;
werder; ist; meister;
bayern; wird; letzter;

[23.02.05]
werder; wird; meister;


es soll also unter einem datum nicht 2mal die gleiche zeile auftreten. mit databanken hab ich mich noch nie beschäftigt, gibt es andere möglichkeiten?

[alcaeus]

Moin herrentor,

such mal hier im Forum, das Thema gabs schon öfters (auch in letzter Zeit)

Greetz
alcaeus

[herrentor]

ich weiß, ich hatte vor nicht ganz so langer zeit eine ähnliche frage gestellt, aber das ergebniss war, dass ich mit einer *.ini datei versuchen soll, hat aber nicht hingehauen und jetzt hab ich die ansprüche soweit zurückgeschraubt, dass es vielleicht doch in einer stringlist sortiert werden kann, oder nicht?

[Schuster]

Mit einer Stringlist sollte das funken

Delphi-Quellcode:

MeineString_List : TStringlist;

Procedure xxxx
begin
MeineString_List:=TStringlist.Create;

    try
        MeineString_List.LoadFromFile(Pfad);
    except
    begin
        ShowMessage('Fehler beim Laden der Datei');
        MeineString_List.free;
        exit;
    end;
end;

function vergleiche(x:Integer):String;    //x Ist der aktuelle String (count)
var temp: string;
begin
    temp:= trim(copy(MeineString_List.Strings[x],41,30));
    Hier dann noch die Stringlist nach temp durchsuchen und vergleichen.
    usw.
end;

[herrentor]

ist das bei deinem ansatz nicht so, dass man in einer datei dann auch nur insgesamt einmal ein string vorkommen kann? die datei darf durchaus mehrere male den string enthalten, jedoch nicht zwischen einem datum und dem nächsten.

[Schuster]

Zitat:

ist das bei deinem ansatz nicht so, dass man in einer datei dann auch nur insgesamt einmal ein string vorkommen kann? die datei darf durchaus mehrere male den string enthalten, jedoch nicht zwischen einem datum und dem nächsten.

Ja mein ursprünglicher Code ist so aufgebaut.

Aber du kannst dir ja den Index von einem Datum bis zum nächsten merken und dann nur diesen Bereich nach
doppelten Einträgen durchforsten.

[herrentor]

das problem ist nur, dass es keine festen indizes gibt. es stehen immer unterschiedlich viele einträge unter'm datum. angenommen ich würde das datum auch noch rausnehmen, wie kann denn die zeilen vergleichen, ich durchschau irgendwie dein programm nicht. ich hätte das jetzt so gemacht:

Delphi-Quellcode:

if fileexists('C:\test.txt') then
        begin
        sl.LoadFromFile('C:\test.txt');
        if pos('werder; wird; meister', sl.Text)=0 then
        begin
         sl.Add('werder; wird; meister');
         sl.SaveToFile('C:\test.txt');
        end;
        end;

aber ich kann doch nicht alle möglichen varianten (werder; wird; meister/ werder; ist; meister/ etc.) hinschreiben, wie kann ich das vereinfachen und wie kann ich in die datei einen counter einfügen, der sich dann bei else erhöht?

[Sharky]

Zitat:

Zitat von herrentor

das problem ist nur, dass es keine festen indizes gibt. es stehen immer unterschiedlich viele einträge unter'm
datum.

Ich sehe einfach das Problem nicht ;-)
Lade die Datei in ein StringList.
Jetzt kopierst Du alle Einträge zwichen dem ersten und nächsten "Datum" in eine zweite SL. Diese sortierst Du und prüfst auf doppelte Einträge. Danach verschiebst Du diese in eine dritte Stringlist.
Jetz wiederholst Du dies für alle Einträge die zwichen zwei Daten stehen.
Fertig.

[herrentor]

hast du den befehl für das herauskopieren zwischen datum1 und datum2 vielleicht parat?

[Sharky]

Zitat:

Zitat von herrentor

hast du den befehl für das herauskopieren zwischen datum1 und datum2 vielleicht parat?

Dafür gibt es keinen "Befehl". Du musst schon etwas dafür Programmieren. Aber das sollte doch kein Problem sein.
Du weisst ja wie eine Textzeile aussieht in der das Datum steht.