Sortiern nach Datum (strings)

[eragon123]

Ich habe eine Liste von Daten, die allerdings in Form von Strings gespeichert sind. Die sehen so aus:

Code:

z.B. : 20.02.09 - 05.04.09

Code:

06.04.09 - 07.06.09

Wie kann ich diese jetzt sortieren? Ich hab es mal mit einem einfachen Bubblesort getestet, aber das schien nicht zu funktionieren.

[Luckie]

Konvertiere die Zeichenfolgen erst in ein Datumsformat und sortiere dann dieses.

[idefix2]

Zitat:

Ich hab es mal mit einem einfachen Bubblesort getestet, aber das schien nicht zu funktionieren.

Warum sollte ein einfacher Bubblesort gerade da nicht funktionieren?

Der Schlüssel zum Sortieren ist die Vergleichsroutine, mit einem direkten Stringvergleich wirst Du nicht weit kommen, weil der ja alphabetisch und nicht nach Datum sortiert. Aber wenn die Vergleichsfunktion die Daten richtig vergleicht, wird jeder (richtig implementierte) Sortieralgorithmus sortieren.

Wenn Du Dir das vorherige Konvertieren in ein Datumsformat sparen willst:

function less (a,b: string): boolean;
begin
less := copy(a,7,2)+copy(a,4,2)+copy(a,1,2) < copy(b,7,2)+copy(b,4,2)+copy(b,1,2)
end;

Wenn es sich nur um relativ wenige Werte handelt, ist die Ineffizienz, die durch den Zusatzaufwand bei jedem einzelnen Vergleich entsteht, gleichgültig. Die Funktion funktioniert natürlich nur für Daten ab dem Jahr 2000 mit jeweils zweistellig angegebener Jahreszahl, Monatszahl und Tageszahl.

[xZise]

Moin,

Interessant wäre auch, wie du sortiert hast. Weil BubbleSort sagt ja nur wie man etwas sortiert, aber nicht genau wie man den Code schreibt. Und nach was willst du sortieren? Erstes Datum? Zweites Datum? Differenz?

Und dann ist die Vergleichsoperation wichtig. In der Regel (um sowas dynamisch zu gestalten) wird eine Methode genommen die beide Werte bekommt und -1, 0 oder +1 zurückgibt (so ähnlich wie CompareString) und damit sagt, welcher von beiden ist größer.

Ich würde also einfach den Pseudocode aus der Wikipedia nehmen und nach Delphi übersetzen:

Delphi-Quellcode:

function bubbleSort( A : array of <Datentyp> ) : array of <Datentyp>;
begin
  n := Length(A);
  repeat
    swaped := false;
    for i := 0 to n - 2 do
    begin
      if Compare(A[ i ], A[ i + 1 ]) > 0 then
      begin
        // A[i] und A[i + 1] vertauschen
        swaped := true;
      end
    end
    n := n - 1
  until (n < 1) or (not swaped);
end;

Du musst jetzt nur noch die Elemente A[i] und A[i + 1] vertauschen. Ich bin mir nicht sicher ob ein Array als Referenz übergeben wird, also man kein Rückgabewert braucht. Außerdem musst du noch eine Compare-Funktion schreiben (s.o.) die halt einen Wert größer 0 (i.d.R. wird +1 genommen) zurückgibt, wenn das erste Element größer ist als das zweite.

MfG
Fabian

[idefix2]

Delphi-Quellcode:

until (n >= 1) and  (swaped);

das kanns aber nicht sein. Sollte sein

Delphi-Quellcode:

until (n<1) or not swaped;

Und aufpassen, ein dynamisches array beginnt bei Index 0

[xZise]

Ah mist :D In Java gibt es

Code:

while() {}

und

Code:

do {} while()

und beide berechen ab, wenn die Bedingungen nicht zutreffen. Bei Delphi war das ja anders :oops:

Habe den Code mal korrigiert.

MfG
Fabian

PS: Der Off-by-One-Error ist ja beschäment :pale:
PPS: Warum ist das jetzt nicht inline.... hmpf

[idefix2]

Noch immer nicht ganz. Es würde zwar so funktionieren, aber mit unnötigen Schleifendurchläufen.
Statt "and" gehört "or" in die Abbruchbedingung, wenn in einem Durchlauf keine Elemente vertauscht werden, ist das feld fertig sortiert.

[Amateurprofi]

Noch besser wäre es m.E. so
1) Am Anfang n nicht auf die Länge des Arrays stellen, sondern auf den höchsten Index.
2) Das Senken von n um 1 nicht am Ende der Repeat-Schleife ausführen, sondern am Anfang.
3) Die For-Schleife von 0 bis n laufen lassen.
4) Beim Until nur swaped abfragen. Die Abfrage, ob n einen bestimmten Grenzwert erreicht hat, ist bei dieser Konstruktion überflüssig.

Delphi-Quellcode:

function bubbleSort( A : array of <Datentyp> ) : array of <Datentyp>;
begin
  n := High(A);
  repeat
    n := n - 1;
    swaped := false;
    for i := 0 to n do
      if Compare(A[ i ], A[ i + 1 ]) > 0 then
      begin
        // A[i] und A[i + 1] vertauschen
        swaped := true;
      end
  until not swaped;
end;

[xZise]

Es geht hier ja eigentlich nicht um den besten Sortieralgorithmus (da kann man Mergesort, Quicksort oder Heapsort nehmen), sondern darum, dass er überhaupt erstmal sortiert.

Leider meldet sich der Threadersteller nicht mehr.

MfG
Fabian

[eragon123]

Danke für die Hilfe.
Ich habe jetzt erst einmal dieser Variante

Delphi-Quellcode:

function less (a,b: string): boolean;
begin
less := copy(a,7,2)+copy(a,4,2)+copy(a,1,2) < copy(b,7,2)+copy(b,4,2)+copy(b,1,2)
end;

genutzt. So schnell muss es nicht sein da nur maximal ca. 100 Datensätze sortiert werden müssen.

[Luckie]

So bald sich aber das Datumsformat ändert, funktioniert der Code nicht mehr!

[mkinzler]

Deshalb ist es ja auch keine gute Idee Datumswerte als Strings abzulegen

[idefix2]

@Luckie, mkinzler

im Prinzip habt ihr Recht, aber es hängt natürlich von den Anforderungen an das Programm ab.

Wenn die Daten jetzt schon in diesem Format vorliegen und dabei in absehbarer Zeit keine Änderung vorgesehen ist, kann man das wohl so lassen und seine Energie genausogut in andere Sachen stecken :)

[himitsu]

Wenn die Datumsstrings programmintern erzeugt werden, dann sollte man sich dazu auch eine passende Umkehrfunktion auswählen.
DateToStr <> StrToDate sollte im laufenden Betrieb kaum probleme bereiten, es sei denn jemand spielt an den Systemoptionen rum oder man verbietet seinem Delphiprogramm nicht, die neuen Daten zu importierern.

Sollten diese Strings aber auch noch gespeichert oder übertragen werden und es muß unbedingt ein String sein, dann sollte man ein bestimmtes Datumsformat festlegen, welches sich dann auch leicht dekodieren läßt.

PS: Es gibt auch Datumsformate, welche sich direkt als String vergleichen lassen ... also alles welches dieses als irgendwelche Folgen von YY-MM-DD, btw. YYYY-MM-DD enthält. :stupid:

[xZise]

Zitat:

Zitat von eragon123 (Beitrag 1028886)

Danke für die Hilfe.
Ich habe jetzt erst einmal dieser Variante

Delphi-Quellcode:

function less (a,b: string): boolean;
begin
less := copy(a,7,2)+copy(a,4,2)+copy(a,1,2) < copy(b,7,2)+copy(b,4,2)+copy(b,1,2)
end;

genutzt. So schnell muss es nicht sein da nur maximal ca. 100 Datensätze sortiert werden müssen.

Aber das ist doch keine Sortierung? Oder ging es dir eher darum, wie vergleiche ich zwei Strings miteinander?

MfG
Fabian

[idefix2]

Er ist bei seinem Sortierprogramm darüber gestolpert, dass er Datumswerte, die als Strings vorliegen, falsch vergleicht - und deshalb falsch sortiert.

[eragon123]

Genauso ist es.
Die Daten sind in Form von Strings, da meine Quelle das genauso her gibt. Und das erst umzuwandeln lohnt sich vom Aufwand her nicht.