Intelligentes BubleSort; sortieren wie im Windows Explorer

[Iwo Asnet]

Vielleicht sollte man dafür ein Kata eröffnen, denn die portierte Funktion ist ja grauenhaft (sie ist ja auch von C portiert und nicht adaptiert).

[Stevie]

Für XP/Server 2003 gibt's auch folgende Möglichkeit:

Delphi-Quellcode:

function StrCmpLogicalW(P1, P2: PWideChar): Integer;  stdcall; external 'Shlwapi.dll';
function NaturalCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := StrCmpLogicalW(PWideChar(List[Index1]), PWideChar(List[Index2]));
end;

Und dann am besten wie schon erwähnt in Verbindung mit CustomSort benutzen.

[DeddyH]

Müsste man dann aber nicht explizit nach PWideChar casten?

[Stevie]

Zitat von DeddyH:

Müsste man dann aber nicht explizit nach PWideChar casten?

Stimmt, hab die Delphi Versionen vor 2009 schon verdrängt Hab es mal editiert

[Iwo Asnet]

Zitat von Stevie:

Für XP/Server 2003 gibt's auch folgende Möglichkeit:

Ziemlich kompakt, würde ich sagen

[sx2008]

Wie auch immer man das NaturalCompare umsetzen mag, ich denke man sollte unbedingt ein Testprogramm dafür haben.
Rein gefühls- und erfahrungsmässig kann der NaturalCompare schwieriger sein als gedacht; vielleicht hat man irgendwelche Grenzfälle vergessen oder verhält sich bei manchen Strings anderst als gedacht.
Hier sind z.B. 4 Strings bei denen man etwas überlegen muss um sie in die richtige Reihenfolge zu bringen

Code:

Part- 200B
Part-200B
Part-01000-
Part-01000-000

PS:
function StrCmpLogicalW(P1, P2: PWideChar): Integer; stdcall; external 'Shlwapi.dll'; Gut, wenn's nicht immer funktioniert ist MS schuld

[himitsu]

Ach, daß könnt ihr alles vergessen ... in Windows 8 hat der Explorer das schon wieder vergessen.
Und wenn die aus Redmond konsequent sind, dann schaffen sie StrCmpLogicalW uch gleich mit ab.


Der sortiert jetzt auch nicht mehr nach 1 2 3 10 20 100, sondern 1 10 100 2 20 3

[Stevie]

Zitat von himitsu:

Der sortiert jetzt auch nicht mehr nach 1 2 3 10 20 100, sondern 1 10 100 2 20 3

Welche Sortierung der Explorer benutzt, ist durch einen Registry Eintrag geregelt, den konnte man schon mindestens unter Vista verstellen afaik.

[Iwo Asnet]

Super, damit ist die Lösung zwar kompakt, aber i.A. nicht das, was man will.

Ich wäre ja dafür, die Idee von Popov aufzugreifen, nach dem ein zu sortierender Schlüssel aus den Bestandteilen:
<Prefix><Zahl><Postfix> besteht, wobei jedes Teil optional ist. Die 'Teile' werden von links nach rechts vergleichen, wobei führende und folgende Leerzeichen ignoriert werden. Wer will, kann bei Gleichheit der Einzelkomponenten noch die Strings in Gänze vergleichen, um eine totale Ordnung zu erzielen.

Zitat von sx2008:

Hier sind z.B. 4 Strings bei denen man etwas überlegen muss um sie in die richtige Reihenfolge zu bringen

Code:

Part- 200B
Part-200B
Part-01000-
Part-01000-000

Das wäre dann

Code:

Part-01000-
Part-01000-000
Part- 200B
Part-200B

Kann man mit leben, finde ich.

[Stevie]

Zitat von Iwo Asnet:

Super, damit ist die Lösung zwar kompakt, aber i.A. nicht das, was man will.

Nun, da das Thema heißt "sortieren wie im Windows Explorer", ist die Function StrCmpLogicalW genau das Richtige, denn diese wird vom Explorer benutzt.

Dass die Sortierung anhand bestimmter Pattern eventuell anders sein muss, steht auf einem anderen Blatt.