XProfan

- Página 1 -

Frank
Abbing

Hm, así una Grenze Yo no soy bekannt.
Aber el Csv-Expediente es así bastante undurchsichtig. Wenn du me el código y todos benötigten Archivos zuschickst, schaue Yo el Sache gerne veces a.

17.03.2007 ▲

Hast Usted hier el richtigen Werte posición (el 16 es wichtig) ?

@¡Hola Walter
Como mein ADRESSOR-1.0 ebenfalls con 16 Spalten se ejecuta, Yo Su CSV-Expediente veces en él comenzó. Das Ergebnis siehst Usted en Ausschnitten en el zwei Bildern. En me se jede Spalte anstandslos en- y abwärts con Mausklick sortiert. -
Kompilieren Marca Separación

If bytes&>0

    Dim bereich#,bytes&
    ReadFileQuick(addr(main_datei$),bereich#,0,bytes&)
    CsvToListview(listview&,bereich#,bytes&,16)
    Dispose bereich#

E

ab_sortiert.jpg Prevista

131 kB

Hochgeladen:

18.03.2007

Ladeanzahl:

Descargar

auf_sortiert.jpg Prevista

132 kB

Hochgeladen:

18.03.2007

Ladeanzahl:

Descargar

Jörg
Sellmeyer

Puedo el Beobachtung de Walter bestätigen. En numerischer Sortierung se ca. en el unteren Drittel alles durcheinander gewürfelt. Ist bien a sehen, si uno el Spalte con el Jahreszahlen sortiert.

ListView3.prf	3 kB

Hochgeladen:	18.03.2007

Ladeanzahl:
		Descargar

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

Muss mi Meinung revidieren - en nummerischen Sortierung se para Schluss bunt gemischt - Auch en mi Code (ADRESSOR) passiert el - hatte zuerst el nummerische Sortierung no a para Ende verfolgt

@Walter
Hast Usted tatsächlich el ganzen Musiktitel de el CSV-Expediente Deiner Festplatte ?

Frank
Abbing

Hi,

kanns auch nachvollziehen, y tener auch ya una Erklärung parat.

Schuld son el leeren Zeilen! Jede vacío Línea producido una Fehler en el Sortierung. Sind todos Zeilen con Pagar gefüllt, arbeitet el Sortierung - como gewohnt - korrekt. Como largo es dieser Bug ahora eigentlich ya unentdeckt geblieben?

So, tener ahora una zusätzliche Sicherung en el Sortierung instalado, sodass auch el leeren Zeilen correcto bearbeitet voluntad. Im Anhang una bug-bereinigte Versión el Listview.dll.

Listview.dll	88 kB

Hochgeladen:	18.03.2007

Ladeanzahl:
		Descargar

Jörg
Sellmeyer

Wow! Das nenn Yo Service! Und igual el neue Versión!
Yo glaube allerdings, daß el Haken en Walter una Anderer es. Mit diesem Code tritt lo nämlich siempre todavía en.
Kompilieren Marca Separación

besser nicht im Interpreter laufen lassen, sonst könnt ihr erstmal Kaffee trinken gehen!
 $I Listview_Funktionen.inc
Declare LVDllHdl&
Declare LVItemtexts#,LVbereich#,LVBuffer#,LVParamBuffer#
Dim LVParamBuffer#,320
Dim LVItemtexts#,16384
LVDllHdl&=UseDll(Listview.dll)
Declare ListView2&

Proc TextListView2

    WhileLoop 0,16000

        SetItem ListView2&,Test  + Format$(0000,&Loop),Test,Test,Format$(0000,Rnd(&Loop)),Test,Test,Test,Test,Test,Test

    Wend

EndProc

Proc SetListView2

    InitMessages(%hwnd)
    Declare tmptxt$
    tmptxt$=Spalte 1
    IColumn(ListView2&,Addr(tmptxt$),200,1)
    tmptxt$=Spalte 2
    IColumn(ListView2&,Addr(tmptxt$),140,0)
    tmptxt$=Spalte 3
    IColumn(ListView2&,Addr(tmptxt$),100,0)
    tmptxt$=Spalte 4
    IColumn(ListView2&,Addr(tmptxt$),100,0)
    IColumn(ListView2&,Addr(tmptxt$),100,0)
    IColumn(ListView2&,Addr(tmptxt$),100,0)
    IColumn(ListView2&,Addr(tmptxt$),100,0)
    IColumn(ListView2&,Addr(tmptxt$),100,0)
    IColumn(ListView2&,Addr(tmptxt$),100,0)
    IColumn(ListView2&,Addr(tmptxt$),100,0)
    IColumn(ListView2&,Addr(tmptxt$),100,0)
    TextListView2
    ShowListView(ListView2&,1,1,Width(%hwnd) - 2,Height(%hwnd) - 2)

EndProc

Proc ExitLV

    Dispose LVItemtexts#
    Dispose LVParamBuffer#
    CloseMessages(%hwnd)
    FreeDll LVDllHdl&

EndProc

UserMessages 16
WindowStyle $218
Window 100,100 - 620,520
ListView2&=CreateListView(%hwnd,%hinstance,0,14417146,-1,$0)
SetListView2
SetColumnAlignment(ListView2&,0,1)
Autosortlistview(ListView2&,2,0,1,2)
Update(ListView2&)
Declare ende%

WhileNot ende%

    WaitInput

    If %umessage = 16

        ende% = 1

    EndIf

Wend

ass=s4 href='./../../funktionsreferenzen/XProfan/exitlv/'>ExitLV

Wenn uno sólo Spalte 4 sortiert, läßt se danach Spalte 1 no mehr sortieren. Man muß wohl el Clic en el Spaltenbutton abfangen y el Autosortiererei para Spalte 4 aufheben en Spalte 1 a sortieren. Pero esto es wahrscheinlich no Sinn el Features, oder?
Saludo
Jörg

[offtopic]Posesiones Yo ya erwähnt, daß Usted el Prevista extremo bien gelungen es, IF? Nein? Ok - Así que el Prevista es Usted extremo bien gelungen![/offtopic]

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

[offtopic]
Jörg Sellmeyer

[offtopic]Posesiones Yo ya erwähnt, daß Usted el Prevista extremo bien gelungen es, IF? Nein? Ok - Así que el Prevista es Usted extremo bien gelungen![/offtopic]

Gracias.

[/offtopic]

Frank
Abbing

Wenn uno sólo Spalte 4 sortiert, läßt se danach Spalte 1 no mehr sortieren.

Hm, kann Yo no bestätigen. Tiempo abgesehen su, dass du versuchst,en deinem Testprogramm Spalte 1 después de Pagar a sortieren, obwohl lo eindeutig Textos enthält. Texto 1353 es nunmal no Zahl y muss folglich después de Buchstaben sortiert voluntad...
Walters Code funktioniert einwandfrei con el neuen Dll!

Jörg
Sellmeyer

Hast Recht. En me funktioniert lo auch!

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

Walter
Köhler

Im Ernst, freut mich auch algo Geben a puede como sólo a nehmen.
Und wenn´s sólo el Referencia en una Buck es.
Gut el Franco el inmediatamente korrigiert ha. Tuve me ya el Arbeit gemacht y todos leeren Zellen con 9999 a füllen, sieht aber Scheiße aus; kann Yo also otra vez weg hacer.
@ Franco con dieser CSV Expediente. MACHE MAL FOLGENDES

Erstelle una Kopie
lösche algunos Zeilen por Zufall
Füge en el Kopie algunos Zeilen imaginär dazu

Und nun Stichwort COMPARE
Búsqueda el Zeilen, que en Spalte1 +Spalte2 (Interpret y Titel) unterscheiden.
Yo komm con einfacher Bucle en 3 Sekunden, bajo el Voraussetzung uno eindeutigen Sortierung beider Listview después de gleichen Kriterien en Spalte1+2
via Sortmanual (bien el lo el son, sonst dauert el Sache endlos)

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

19.03.2007 ▲

Walter
Köhler

Ist sólo una Ausschnitt Horst.
Posesiones total 156 CD`s con je ca. 200 MP3 Songs.
(Ist sólo mein Hobby, solange Yo denken kann )
Yo quería no más Alles einlesen, a el Gesamtprogram es.
Sieht ya bastante nett de, voluntad el entonces veces vorstellen wenn´s fertig es.

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

19.03.2007 ▲

- Página 2 -

Frank
Abbing

Und nun Stichwort COMPARE
Búsqueda el Zeilen, que en Spalte1 +Spalte2 (Interpret y Titel) unterscheiden.
Yo komm con einfacher Bucle en 3 Sekunden, bajo el Voraussetzung uno eindeutigen Sortierung beider Listview después de gleichen Kriterien en Spalte1+2
via Sortmanual (bien el lo el son, sonst dauert el Sache endlos)

Yo el Función no vergessen. Zum nächsten Actualización plane Yo ellos einzubauen:

CompareColumns(quellllistview1,spalte,quelllistview2,spalte,ziellistview,spalte,flag)

19.03.2007 ▲