XProfan

Jac
de
Lad

Hm, qui Sortierung ist partiellement très paralysé (pour date principale)...ici la fois mon Sortierroutine:
Kompilieren Marque Séparation

proc Datum

    Parameters g$
    declare d$
    d$=GetFTime$(g$)
    Return Val(GetFDate$(g$))*100000+3600*Val(Left$(d$,2))+60*Val(Mid$(d$,4,2))+Val(Mid$(d$,7,2))

endproc

proc Sort

    Parameters f1$,f2$,f3$,f4$,s%
    declare idx%,d!,e!,t$,f$,u%
    Return AddString(lv&,f1$+"|"+f2$+"|"+f3$+"|"+f4$)
    idx%=-1

    whileloop 0,GetCount(lv&)-1

        t$=Lower$(GetText$(lv&,&Loop,0))
        f$=Lower$(f1$)

        Select settings#.sort%

            caseof 0Nach Dateiname (mit Pfad)

            case LT$(f$,t$):idx%=&Loop

            caseof 1Nach Dateiname (ohne Pfad)

            case LT$(SubStr$(f$,-1,""),SubStr$(t$,-1,"")):idx%=&Loop

            caseof 2,3Nach Datum

            d!=Datum(f$)
            e!=Datum(t$)
            case Or(If(Equ(settings#.sort%,3),LT(d!,e!),GT(d!,e!)),And(Equ(d!,e!),LT$(SubStr$(f$,-1,""),SubStr$(t$,-1,"")))):idx%=&Loop

            caseof 4nach Größe (kleinste zuerst)

            case LT(FileSize(f$),FileSize(t$)):idx%=&Loop

            caseof 5nach Größe (größte zuerst)

            case GT(FileSize(f$),FileSize(t$)):idx%=&Loop

            caseof 6Nach Dateiendung

            case Or(LT$(SubStr$(f$,-1,"."),SubStr$(t$,-1,".")),And(Equ$(SubStr$(f$,-1,"."),SubStr$(t$,-1,".")),LT$(Left$(SubStr$(f$,-1,""),Len(SubStr$(f$,-1,""))-1-Len(SubStr$(SubStr$(f$,-1,""),-1,"."))),Left$(SubStr$(t$,-1,""),Len(SubStr$(t$,-1,""))-1-Len(SubStr$(SubStr$(t$,-1,""),-1,".")))))):idx%=&Loop

            caseof 7,8Nicht übertragene zuerst

            s%=1 -> neu
            u%=Equ$(GetText$(lv&,&Loop,3),"Noch nicht übertragen")

            if GT(s%,u%)

                idx%=&Loop

            elseif Equ(s%,u%)

                case If(Equ(settings#.sort%,7),LT$(f$,t$),LT$(SubStr$(f$,-1,""),SubStr$(t$,-1,""))):idx%=&Loop

            endif

        endselect

        case GT(idx%,-1):Break

    wend

    Return InsertString(lv&,idx%,f1$+"|"+f2$+"|"+f3$+"|"+f4$)bei -1 wirds am Ende eingefügt

=s4 href='./../../references-fonction/XProfan/endproc/'>endproc

si quelqu'un ne concept hat, comment on cela Ganze beschleunigen peux, sans dass sich inhaltlich quoi ändert (je trouve, qui Art qui Sortierung entier ansprechend): suis pour alles offen. Hab mais selber aucun Optimierung trouver peut. ah oui: lv& ist cela Listview, dans cela eingefügt wird; qui 4 paramètre sommes qui 4 Spalten (en signification wird im Programme deutlich, einfah la fois starten), qui Rückgabewert ist, qui hätte es gedacht, qui Position à qui eingefügt wurde.

PS: qui Digicam-Assistent beherrscht aussi Vorschau pour Videos einiger Formate!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

22.08.2006 ▲

Michael
Wodrich

quoi pouvoir Votre date-Proc car?? ici un Beispiel avec Datenbankdatum: Kompilieren Marque Séparation Proc Datum Parameters d$ Return Val( CToD$( d$ ) ) EndProc ... Caseof 2,3Nach Datum D& = Datum(F$) E& = Datum(T$) Case Or(If(Equ(Settings#.Sort%,3),Lt(D&,E&),Gt(D&,E&)),And(Equ(D&,E&),Lt$(Substr$(F$,-1,""),Substr$(T$,-1,"")))):Idx%=&
Programmieren, das spannendste Detektivspiel der Welt.	23.08.2006 ▲ Vollständiges citation Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

Jaja, cela habe je aussi déjà gedacht, seulement veux je qui Zeit avec einbeziehen, weil on à einem journée oui aussi plusieurs Bilder pouvoir (qui Funktion ist naturellement seulement sinnvoll, si le caméra cela date aussi mets, mon machts malheureusement pas...)

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

23.08.2006 ▲

Jörg
Sellmeyer

je fänds angenehmer, si on qui la ligne à chacun Stelle markieren pourrait et pas seulement am Dateinamen.
qui Einstellungen Puffergröße et CRC-Puffer dire mir garnichts. je ne sais pas comme dem normalen Digicam-Nutzer sonst so allez.
chez qui Erstellung des Unterordners wäre qui MMöglichkeit un Suffix et/ou bien Präfix anzugeben très pratique:
<Bezeichnung><Datum>
<Datum><Bezeichnung>
ou bien so.
comme Schriftart serait je plutôt une kleineren Font choisir - optimal wäre qui jeweilige Systemfont.
ensuite la hâte Du aussi plus place sur Deiner surface et peux encore plus Funktionen einbauen ;)

pourquoi peux on car qui En-tête pas nutzen, à Fichiers trop sortieren?

Win98 ist zwar am aussterben mais qui Inidateien dürfen dorteine bestimmte Taille pas überschreiten. chez wirklich
vielen Bildern peux cela dortevtl. Probleme donner.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jac
de
Lad

Aalso:

Puffergröße legt qui Taille des Puffers pour qui Übertragung fest. Je größer qui Puffer ist, desto plus rapide volonté qui Fichiers übertragen, mais deste moins wird aussi qui Fortschritt angezeigt (si Puffergröße un Megabyte ist, wird pour chaque eingelesenen et geschriebenen Megabyte aktualisiert, wenns moins comme un Megabyte ist wird häufiger aktualisiert).

CRC-Taille legt qui Taille fest, avec qui une Checksumme ermittelt wird, avec qui getestet wird, si qui Dossier déjà übertragen wurde.

quoi meinst du avec
[quote-part:32cd26eb73]chez qui Erstellung des Unterordners wäre qui MMöglichkeit un Suffix et/ou bien Präfix anzugeben très pratique:
<Bezeichnung><Datum>
<Datum><Bezeichnung>
[/quote-part:32cd26eb73]
???

Schirftart, hm, je hab qui pas verstellt. quoi wäre dein Vorschlag?

comment encore plus place? (Soll cela une versteckte Anspielung son, qui je pas entdecke, ou bien ist cela ernst gemeint? si oui: Propositions!)

avec En-tête: Avez- du sur En-tête klicken et ensuite automatisch après sortieren? sais pas comment cela allez...

qui INI-Dossier: Jaja, je sais, cela steht sur meiner Todo-liste. Hab mais encore aucun vernünfitge Solution trouvé.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jörg
Sellmeyer

[quote-part:4fc3695876=Jacob Liebeck]Aalso:

Puffergröße legt qui Taille des Puffers pour qui Übertragung fest. Je größer qui Puffer ist, desto plus rapide volonté qui Fichiers übertragen, mais deste moins wird aussi qui Fortschritt angezeigt (si Puffergröße un Megabyte ist, wird pour chaque eingelesenen et geschriebenen Megabyte aktualisiert, wenns moins comme un Megabyte ist wird häufiger aktualisiert).

CRC-Taille legt qui Taille fest, avec qui une Checksumme ermittelt wird, avec qui getestet wird, si qui Dossier déjà übertragen wurde.
[/quote-part:4fc3695876]
Aaah oui. je sais oui pas, si Du vorhast, Dein Programme qui Öffentlichkeit vorzustellen mais cet Erklärung ist cela Mindeste, quoi encore im Programme auftauchen sollte.

tu peux oui aussi une Schieberegler einbauen, qui sur dem une Ende une Text schnelleres Kopieren et sur dem Anderen une avec genauere Fortschrittsanzeige hat.

[quote-part:4fc3695876]
quoi meinst du avec
[quote-part:4fc3695876]chez qui Erstellung des Unterordners wäre qui MMöglichkeit un Suffix et/ou bien Präfix anzugeben très pratique:
<Bezeichnung><Datum>
<Datum><Bezeichnung>
[/quote-part:4fc3695876]
???
[/quote-part:4fc3695876]
Im Einstellungsdialog ist qui Option Unterordner avec date erstellen vorhanden. là simple encore un Éditer devant et derrière elle faire dans dem on eigenen Text eingeben peux. avec cela est qui Unterordner ensuite z.B. 02.08.2006-le jardin

[quote-part:4fc3695876]
Schirftart, hm, je hab qui pas verstellt. quoi wäre dein Vorschlag?
[/quote-part:4fc3695876]
Kompilieren Marque Séparation

UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1e>

[quote-part:4fc3695876]
comment encore plus place? (Soll cela une versteckte Anspielung son, qui je pas entdecke, ou bien ist cela ernst gemeint? si oui: Propositions!)
[/quote-part:4fc3695876]
était plus un Scherz... siehe smiley

[quote-part:4fc3695876]
avec En-tête: Avez- du sur En-tête klicken et ensuite automatisch après sortieren? sais pas comment cela allez...
[/quote-part:4fc3695876]
Du erstellst doch cela Listview avec qui LV.dll, ou bien?
Kompilieren Marque Séparation

ListViews&=CreateListView(%hwnd,%hinstance,0,Color&,-1,36)

[quote-part:4fc3695876]
qui INI-Dossier: Jaja, je sais, cela steht sur meiner Todo-liste. Hab mais encore aucun vernünfitge Solution trouvé.

Jac

[/quote-part:4fc3695876]
simple alles dans un unsichtbares Listview écrivons et comme CSV-Dossier Sauver.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jac
de
Lad

Hm, qui Propositions klingen alle très vernünftig!

je werde maintenant erstmal mon Windoof récente aufsetzen et mich ensuite là tour faire!

merci,
Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jac
de
Lad

non, je benutze qui GridBox de XProfan 10.

à cause de place et so, meinste avec Tabcontrols wärs besser?

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Frank
Abbing

[quote-part:10beb70f78]non, je benutze qui GridBox de XProfan 10.
à cause de place et so...[/quote-part:10beb70f78]
seulement zur Klarstellung: qui Listview.dll besitzt seulement une Grösse de 84.480 Bytes, ungepackt! avec Aider de UPX deutlich moins.

[quote-part:10beb70f78]avec En-tête: Avez- du sur En-tête klicken et ensuite automatisch après sortieren? sais pas comment cela allez...[/quote-part:10beb70f78]
un Feature qui Listview.dll. Sortieren qui Einträge, quoi chez chacun Spalte funktioniert. et Dank Assembler très vite.
une Sortierung pour Buchstaben ou bien pour payons (aussi Dezimalzahlen et negative payons). et qui Aufruf ist kinderleicht, z.B. so:
Kompilieren Marque Séparation

AutoSortListview listview&,1,1,0,2,2

Drückst du maintenant sur den Headerbutton, sortiert sich cela Listview automatisch, orientierend à qui angeklickten Spalte. Klickst du nochmal, kehrt sich qui Sortierung um (aufsteigend/absteigend).
qui Programmierer braucht en supplément rien trop 1faire. Gibt mais aussi une Funktion, um manuel pour einer Spalte trop sortieren.
Du devrait wirklich fois le Sourcecodes aus dem Listview.dll-paquet ausprobieren, afin de voyons, quoi alles possible ist.

Jac
de
Lad

maintenant ist Frank juste sur 180!

avec place meinte Je l' place im Hauptfenster et im Einstellungesfenster! Votre DLL ist fabelhaft, dass je mich encore pas registriert habe leigt woanders (cela avons wir déjà diskutiert).

et qui Sortierfunktion ist super, habs déjà ausprobiert! alors s'il te plaît pas hauen Frank!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP