Sortierroutine anpassen

[horsthorn]

Im Moment mache ich mir endlich mal die Arbeit und schreibe alle DVD's in ein Verzeichnis (ca. 200 !)
Natürlich unter Zuhilfenahme der Listview.dll von Frank
Jetzt habe ich aber ein Problem:
Die fortlaufenden Nummern werden schön ordentlich aufsteigend und absteigend sortiert wenn es nur reine Ziffern sind.
Bei meinen DVD's sind aber einige nachträglich dazu gekommen und haben deshalb eine Ziffer mit "Anhang" - Beispiel: 18a
Hier sortiert die Listview.dll aber zuerst die Ziffern und dann alle Ziffern mit Anhang. Wie kann ich das so schreiben, daß die Ziffern mit Anhang auch fortlaufend einsortiert werden ?


So wie auf dem Bild soll es sein. Sortiere ich jetzt über irgendeinen der Spaltenbuttons, wird die Reihenfolge umgeschrieben und lässt sich nicht mehr in diese Form bringen. Ich muss dann manuell in einem Texteditor die CSV-Datei umgruppieren und das kann es ja nicht sein oder !
Bitte um Hilfe (vielleicht sehe ich ja auch vor lauter Bäumen den Wald nicht )

[Jac de Lad]

LVM_SORTITEMSEX Message (Windows)

Hiermit geht es, da kannst du deinen eigenen Algorithmus bestimmen.

Die Sortierung sieht dann in etwa so aus (ungetestet!):

proc Sortieren
Parameters a&,b&,c&
declare a$,b$,r%
a$=GetText$(listview&,a&,0)'Erste Spalte der Zeile a
b$=GetText$(listview&,b&,0)'Erste Spalte der Zeile b
 'Vergleich:
'r% > 0, wenn a$ nach b$ kommen soll
'r% = 0, wenn a$ und b$ gleich sind (bzw. die Reihenfolge egal ist)
'r% < 0, wenn a$ vor b& kommen soll
Return r%
endproc

cls
'...Listview erstellen und füllen
sendmessage(listview&,LVM_SORTITEMSEX,0,ProcAddr("Sortieren",3))
'...Code...

Die Message ruft "Sortieren" automatisch so oft auf, bis alles nach dem dort vorgegebenen Algorithmus sortiert ist.

Jac

[horsthorn]

@Jac
Danke, aber...
warum bekomme ich die Fehlermeldung:

LVM_SORTITEMSEX nicht declariert !

Irgendwas mache ich wieder falsch !
API und ich - die "unendliche nicht passende Geschichte" )

[Jac de Lad]

Ja, klar, das ist eine API-Konstante.

Google hilft: 4177

[AHT]

Zitat von horsthorn

@Jac
Danke, aber...
warum bekomme ich die Fehlermeldung:

LVM_SORTITEMSEX nicht declariert !

Irgendwas mache ich wieder falsch !
API und ich - die "unendliche nicht passende Geschichte" )

Du machst da wohl nichts falsch. Zumindestens in meiner Messages.ph gibt es diese Message noch nicht. Ersetze den Ausdruck LVM_SORTITEMSEX durch $1051.
$1051 ist die Zahl, unter der Windows diese Message führt.

[THFR]

Horst, was hast du unter ASortListview(H,B,A) eingestellt? Zahlenwert oder Alphabet.
Mit Alphabet müßte es gehen. Dann müßte aber aus 1 = 0001 werden.

Gruß Thomas

[horsthorn]

Da ich ja bekannt dafür bin, immer ohne API (bin ich zu blöde für ) ans Ziel zu kommen, habe ich einfach meinem Code eine Zeile hinzugefügt:

tab_nr$=GETTEXT$(tab_nr&)
I%=LEN(tab_nr$)
CASE I% < 4:tab_nr$=MKSTR$(" ",(4-I%))+tab_nr$
CASENOT RIGHT$(tab_nr$,1) > CHR$(65):tab_nr$=tab_nr$+CHR$(32)

Sicher, die Zeile ist jetzt maßgeschneidert für mein DVD-Album.
Aber - es klappt !

[Frabbing]

Eigentlich war ich immer der Ansicht, dass Zahhlenwerte mit angehängten Buchstaben (Quasi im Hausnummern-Style) auch richtig sortiert werden. Werde das mal bei Gelegenheit testen.
Ansonsten könntest du anstelle 18a auch 18.1 oder 18.01 usw. benutzen. Die werden auf jeden Fall richtig sortiert, weil die Sortierung nicht nur ganze Zahlen berücksichtigt.

[horsthorn]

@Frank
Meine kleine Code-Zeile hilft tatsächlich (darf doch auch mal ein Erfolgserlebnis haben )
Hier wird, wenn das rechte Zeichen nicht größer wie CHR$(65) 'a' eine Leerstelle eingefügt. Die Ziffern stehen also schön säuberlich untereinander und werden auch richtig sortiert. CHR$(32) ist in der Codewertung ja eine Leerstelle, aber wem sag ich das




Beim Sortieren wird jetzt schön alles nach der Reihe gezeigt. Vorwärts und rückwärts

[Frabbing]

Klar gönne ich dir das Erfolgserlebnis.
Hab gerade aber mal getestet, hausnummernartige Nummern werden bei mir allerdings richtig sortiert. Sollte ab Version 1.5 gehen.