XProfan-Gridbox komplett sortieren..

[horsthorn]

Bei meiner Gridbox müssen die kompletten Einträge sortiert ausgegeben werden.
Sortiere ich über die Gridbox, wird nur die erste Spalte sortiert und der Rest der Texte stimmt dann nicht mehr.
Jetzt habe ich mir eine "Krücke" geschrieben, mit der die Sortierung funktioniert.
Wer es brauchen kann...

PROC SORTIERER
PARAMETERS datei$
VAR sort&=CREATE("SORTEDLISTBOX",%hwnd,"",(%maxX+10),0,0,0)
        ASSIGN #1,datei$
        RESET #1
                WHILENOT EOF(#1)
                        INPUT #1,text$
                        ADDSTRING(sort&,text$)
                ENDWHILE
        CLOSE #1  
VAR I%=0        
VAR anz%=GETCOUNT(sort&)
        ASSIGN #2,datei$
        REWRITE #2
                WHILENOT I% = anz%
                        text$=GETSTRING$(sort&,I%)
                        PRINT #2, text$
                INC I%
                ENDWHILE
        CLOSE #2
        DesTroyWindow(sort&)        
GRID_BOX_ANZEIGE datei$
ENDPROC

@Frank
Ist die Code-Anzeige so richtig ?

wow Horst,
hast du das für Profan 5.0 geschrieben ?
Aber Spaß beiseite, du solltest das eher Datei sortieren nennen. Wenn du eine größere Datei hast dauert das 2 x einlesen und 1 x schreiben sehr lange. Wenn es nur um die Anzeige geht würde ich es anders machen, schneller.

Proc SORTIERER
parameter grid&,datei$
VAR sort&=CREATE("List",1)
Declare text$
ASSIGN #1,datei$
RESET #1
WHILENOT EOF(#1)
INPUT #1,text$
ADDSTRING(sort&,text$)
EndWhile
clearlist
MoveHandleToList(sort&)
clearlist grid&
MoveListToHandle(grid&)
endproc

Sorry als nicht angemeldet kann man wohl keine Tags setzen.

[horsthorn]

@unregistriert

Als erstes - es heißt parameterS
zum zweiten deine Sortierung mag ja schneller sein, ich muss aber noch die Icon von Programmdateien mit in die Sortierung bekommen und das geht nur über einen neuen Text in der Datei (datei$)
Zum besseren Verständnis lade dir von meiner HP "QUICKSTART SE" runter.
Diese Version ist noch nicht sortiert (hat mich immer geärgert) jetzt mit meinem kleinen Code wird die Nachfolgeversion sortieren.

Download:
freeware

[Frabbing]

hast du das für Profan 5.0 geschrieben ?

Var gibts doch erst ab XProfan 10.

Sorry als nicht angemeldet kann man wohl keine Tags setzen.

Doch, ich sehe zumindest welche.

Per Datei oder Umweg über Listbox ist beides nicht ideal. Üblicherweise geht das per LVM_SORTITEMS oder LVM_SORTITEMSEX und Callback. Ist die gängige Methode und am flexibelsten.

[horsthorn]

@Frank

Per Datei oder Umweg über Listbox ist beides nicht ideal. Üblicherweise geht das per LVM_SORTITEMS oder LVM_SORTITEMSEX und Callback. Ist die gängige Methode und am flexibelsten.

Du kennst mich doch als XProfan-Purist oder nicht ?

[Frabbing]

Du kennst doch die Sortierung der Listview.dll, die arbeitet so. Zugegeben, über Callbacks in XProfan ists dann auch nicht mehr ganz so schnell und zuverlässig, aber immer noch flexibel.
Ich kann aber verstehen, wenn man sich mit der Materie nicht (mehr) beschäftigen will und im Endeffekt kommt es auch nur aufs Ergebniss und die Umstände an. Ich bin sicher, für deine Zwecke ist dein Code völlig ausreichend.