XProfan

Français

p.specht

Gridboxversuch: maintenant aussi alphanumerisch abwärts sortierbar
==============================================
qui sortierte Gridbox-Style sortiert automatisch alphanumerisch aufwärts. veux on cela ganze retourner, ist une Umwandlung dans qui pas angezeigten ersten Spalte avec dem Sortierschlüssel vorzunehmen.

Hinweis de Michael Wodrich: cela Selectstring devrait aussi encore angepasst volonté, um l'allemagne et suisse aussi chez inverser Sortierung trop kennzeichnen - et pas fälschlicher Weise autre Einträge!

merci, Michael, pour qui Hinweise!
aussi cherche je encore pour einer Possibilité, qui aktuellen Spaltenbreiten pour einer Veränderung avec qui souris festzustellen. chez qui nachstehenden variante rester qui "Sensorfelder" zur Changement qui Sortierreihenfolge dans qui obersten Spalte nämlich sur den Werten, qui trop Beginn eingestellt étions... peux très verwirrend son!

là Sonderzeichen z.B. (ÄäÖöÜüß) vom Gridbox-Sortieralgorithmus comme (AaOoUuss) behandelt volonté, um annuaire-Sortierung trop erreichen, suffisant es pas, qui marque simple comme chr$(255-ord("x")) herumzudrehen. Letztlich blieb seulement sur A...Z sur Z...A, a...z sur z...a et 0..9 sur 9...0 trop spiegeln. qui Sonderzeichen doit auparavant selbst sur AOUaouss gemappt volonté - une Behelfslösung arrêt, sur Neudeutsch: un "Workaround"...

Kompilieren Marque Séparation

Titre de la fenêtre upper$("Gridboxtest Nr.3: Spaltensort up/down maintenant aussi Alphanumerisch")
var data$=\
"01|Singapur|108|20.994 €|745 €|31,5 °C#"+\
"07|Schweiz|102|41.319 €|2.040 €|12,7 °C#"+\
"08|Niederlande|102|27.585 €|1.388 €|14,3 °C#"+\
"13|Kanada|101|22.761 €|1.366 €|7,4 °C#"+\
"14|Belgien|100|25.417 €|1.388 €|14,5 °C#"+\
"15|Deutschland|100|25.548 €|1.150 €|13,5 °C#"+\
"16|Vereinigtes Königreich|100|25.524 €|1.204 €|12,8 °C#"+\
"17|Österreich|100|26.442 €|1.456 €|13,0 °C#"+\
"200|osterinseln|100|26.442 €|1.456 €|13,0 °C#"+\
"20|Schweden|99|30.087 €|1.932 €|9,4 °C#"+\
"22|Dänemark|99|32.333 €|2.583 €|11,9 °C#"+\
"108|Äquatorialguinea|56|2.757 €|119 €|30,2 °C#"+\
"300|äquatorialguiness|56|2.757 €|119 €|30,2 °C"
Windowstyle 24':window 0,0-640,480
CLS
var srt$=»
var t$=\
";1;0;"+\
"Platz;1;40;"+\
"Land;0;180;"+\
"Ø IQ;2;80;"+\
"Ø Einkommen;1;80;"+\
"Bildungsausg/EW;2;110;"+\
"Ø Tageshöchsttemp;2;130"
var sort&=1:var multi&=2
var gbhdl&=@Créer("GridBox",%hwnd,t$,sort&+multi&, 0,0,width(%hwnd),height(%hwnd))
declare tmp$[],mx%,my%,down&,spalte&
tmp$[]=explode(data$,"#"):clear data$
spalte&=2
MAKEGRID:

whileloop 0,sizeof(tmp$[])-1

    Addstring(gbhdl&,num$(tmp$[&Boucle],spalte&,down&)+"|"+tmp$[&Boucle])

endwhile

@Sélectionnez String(gbhdl&,-1,"Schweiz")
@Sélectionnez String(gbhdl&,-1,"Deutschland")
@Sélectionnez String(gbhdl&,-1,"Österreich")

repeat

    waitmouse
    mx%=%mousex:my%=%mousey
    ' Windowtitle str$(mx%)+»+str$(my%)

    si my%<23 : down&=0:cas my%<12:down&=1

        si mx%<42:spalte&=1

        elseif mx%<222:spalte&=2

        elseif mx%<300:spalte&=3

        elseif mx%<382:spalte&=4

        elseif mx%<490:spalte&=5

        elseif mx%>=490:spalte&=6

        endif

        clearlist gbhdl&
        goto "MAKEGRID"

    endif

until %clé=27

FIN

proc num$ :parameters z$,sp&,down&

    var s$=substr$(z$,sp&,"|")
    s$=translate$(s$," €",»)
    s$=translate$(s$," °C",»)
    s$=translate$(s$,".",»)
    s$=translate$(s$,»,»)

    si val($ S)<>0

        s$=right$("0000000000"+s$,10)
        cas down&:s$=str$(2147483647-val($ S))

    d'autre

        s$=substr$(z$,sp&,"|")
        s$=translate$(s$,"Ä","A")
        s$=translate$(s$,"Ö","O")
        s$=translate$(s$,"Ü","U")
        s$=translate$(s$,"ä","a")
        s$=translate$(s$,"ö","o")
        s$=translate$(s$,"ü","u")
        s$=translate$(s$,"ß","ss")

        si down&=1

            var y&=0:var p$=»

            whileloop len($ S):y&=ord(mid$(s$,&loop,1))

                si between(y&,65,90):y&=155-y&

                elseif between(y&,48,57):y&=105-y&

                elseif between(y&,97,122):y&=219-y&

                endif

                p$=p$+chr$(y&)
                endwhile:s$=p$

            endif

        endif

        return s$

    endproc