XProfan

Jac
de
Lad

Hm, el Sortierung es teilweise muy lahm (después de Datum hauptsächlich)...Hier veces mi Sortierroutine:
Kompilieren Marca Separación

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

Wenn alguien ne Concepto ha, cómo hacerlo Ganze beschleunigen kann, sin dass se inhaltlich qué ändert (Yo finde, el Art el Sortierung bastante ansprechend): Bin para alles offen. Hab aber selber no Optimierung encontrar puede. Ach sí: lv& es el Listview, en el eingefügt wird; el 4 Parámetro son el 4 Spalten (deren Bedeutung se en el Programa deutlich, einfah veces starten), el Rückgabewert es, wer hätte lo pensamiento, el Position a el eingefügt wurde.

PS: Der Digicam-Assistent beherrscht auch Prevista para 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

Was macht Su Datum-Proc porque??

Hier una Ejemplo con Datenbankdatum:
Kompilieren Marca Separación

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 ▲

Jac
de
Lad

Jaja, el Yo auch ya pensamiento, sólo voluntad Yo el Tiempo einbeziehen, porque uno a una Tag en efecto mehrere Bilder macht (el Función es natürlich sólo sinnvoll, si la Kamera el Datum auch setzt, mi machts por desgracia, no...)

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

Yo fänds angenehmer, si uno el Línea a cada Punto marca podría y no sólo al Dateinamen.
El Einstellungen Puffergröße y CRC-Puffer sagen me garnichts. Yo weiß no como el normalen Digicam-Nutzer sonst así va.
En Erstellung des Unterordners wäre el MMöglichkeit una Suffix y/oder Präfix anzugeben muy praktisch:
<Bezeichnung><Datum>
<Datum><Bezeichnung>
más o menos.
Als Schriftart sería Yo más una kleineren Font wählen - optimal wäre el jeweilige Systemfont.
Dann hast Usted auch mehr Platz en Deiner Oberfläche y kannst todavía mehr Características einbauen ;)

¿Por qué puede ser porque el Encabezamiento no nutzen, a Archivos a sortieren?

Win98 Aunque al aussterben aber el Inidateien dürfen dorteine cierto Größe no überschreiten. En wirklich
vielen Bildern puede dortevtl. Problemas geben.

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

Jac
de
Lad

Aalso:

Puffergröße legt el Größe des Puffers para el Übertragung fest. Je größer el Puffer es, desto más rápido voluntad el Archivos übertragen, aber deste weniger se auch el Fortschritt adecuado (si Puffergröße una Megabyte es, se después de cada eingelesenen y geschriebenen Megabyte aktualisiert, wenns weniger como una Megabyte es se häufiger aktualisiert).

CRC-Größe legt el Größe fest, con el una Checksumme se determina, con el getestet se, si el Expediente ya übertragen wurde.

Was media du con
[quote:32cd26eb73]En Erstellung des Unterordners wäre el MMöglichkeit una Suffix y/oder Präfix anzugeben muy praktisch:
<Bezeichnung><Datum>
<Datum><Bezeichnung>
[/quote:32cd26eb73]
???

Schirftart, hm, Yo tener el no verstellt. Was wäre dein Vorschlag?

Como todavía mehr Platz? (Soll el una versteckte Anspielung ser, el Yo no entdecke, oder es el ernst gemeint? Wenn sí: Propuestas!)

Mit Encabezamiento: Meinst du en Encabezamiento clic y luego automáticamente danach sortieren? Weiß no como el va...

El INI-Expediente: Jaja, Yo weiß, el es en meiner Todo-Liste. Hab aber todavía no vernünfitge Solución gefunden.

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:4fc3695876=Jacob Liebeck]Aalso:

Puffergröße legt el Größe des Puffers para el Übertragung fest. Je größer el Puffer es, desto más rápido voluntad el Archivos übertragen, aber deste weniger se auch el Fortschritt adecuado (si Puffergröße una Megabyte es, se después de cada eingelesenen y geschriebenen Megabyte aktualisiert, wenns weniger como una Megabyte es se häufiger aktualisiert).

CRC-Größe legt el Größe fest, con el una Checksumme se determina, con el getestet se, si el Expediente ya übertragen wurde.
[/quote:4fc3695876]
Aaah sí. Yo weiß sí no, si Usted vorhast, Su Programa el Öffentlichkeit vorzustellen aber esta Erklärung es el Mindeste, qué aún en Programa auftauchen debería.

Usted puede en efecto una Schieberegler einbauen, el en el una Ende una Texto schnelleres Kopieren y en el Anderen una con genauere Fortschrittsanzeige ha.

[quote:4fc3695876]
Was media du con
[quote:4fc3695876]En Erstellung des Unterordners wäre el MMöglichkeit una Suffix y/oder Präfix anzugeben muy praktisch:
<Bezeichnung><Datum>
<Datum><Bezeichnung>
[/quote:4fc3695876]
???
[/quote:4fc3695876]
Im Einstellungsdialog Es el Opción Unterordner con Datum redactar disponible. Como simplemente todavía una Editar davor y detrás de él hacer en el uno eigenen Texto eingeben kann. Damit heißt el Unterordner entonces z.B. 02.08.2006-Garten

[quote:4fc3695876]
Schirftart, hm, Yo tener el no verstellt. Was wäre dein Vorschlag?
[/quote:4fc3695876]
Kompilieren Marca Separación

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

[quote:4fc3695876]
Como todavía mehr Platz? (Soll el una versteckte Anspielung ser, el Yo no entdecke, oder es el ernst gemeint? Wenn sí: Propuestas!)
[/quote:4fc3695876]
War mehr una Scherz... siehe smiley

[quote:4fc3695876]
Mit Encabezamiento: Meinst du en Encabezamiento clic y luego automáticamente danach sortieren? Weiß no como el va...
[/quote:4fc3695876]
Usted erstellst doch el Listview con el LV.dll, oder?
Kompilieren Marca Separación

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

[quote:4fc3695876]
El INI-Expediente: Jaja, Yo weiß, el es en meiner Todo-Liste. Hab aber todavía no vernünfitge Solución gefunden.

Jac

[/quote:4fc3695876]
Einfach alles en una unsichtbares Listview escribir y como CSV-Expediente speichern.

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

Jac
de
Lad

Hm, el Propuestas klingen todos muy vernünftig!

Yo voluntad ahora primero mein Windoof neu aufsetzen y mich entonces como dran hacer!

Gracias,
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

Nein, Yo benutze el GridBox de XProfan 10.

Wegen Platz y así, meinste con Tabcontrols wärs mejor?

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:10beb70f78]Nein, Yo benutze el GridBox de XProfan 10.
Wegen Platz y así...[/quote:10beb70f78]
Nur a Klarstellung: El Listview.dll besitzt sólo una Grösse de 84.480 Bytes, ungepackt! Mit Ayuda de UPX deutlich weniger.

[quote:10beb70f78]Mit Encabezamiento: Meinst du en Encabezamiento clic y luego automáticamente danach sortieren? Weiß no como el va...[/quote:10beb70f78]
Ein Feature el Listview.dll. Sortieren el Einträge, qué en cada Spalte funktioniert. Und Dank Ensamblador muy rápidamente.
Un Sortierung después de Buchstaben oder después de Pagar (auch Dezimalzahlen y negative Pagar). Und el Aufruf es kinderleicht, z.B. así:
Kompilieren Marca Separación

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

Drückst du ahora en el Headerbutton, sortiert se el Listview automáticamente, orientierend a el angeklickten Spalte. Klickst du otra vez, kehrt el Sortierung en (aufsteigend/absteigend).
Der Programmierer braucht dazu nichts a tun. Gibt aber auch una Función, en manuell después de uno Spalte a sortieren.
Usted debe wirklich veces el Sourcecodes de el Listview.dll-Paket ausprobieren, en a sehen, qué alles posible es.

Jac
de
Lad

Jetzt es Franco igual en 180!

Mit Platz meinte Yo, el Platz en el Ventana principal y en el Einstellungesfenster! Su DLL es fabelhaft, dass Yo mich todavía no registriert habe leigt woanders (el haben wir ya diskutiert).

Und el Sortierfunktion es klasse, habs ya ausprobiert! Also Por favor, no hauen Franco!

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