XProfan

- page 1 -

Frank
Abbing

Hm, so une frontière c'est moi pas bekannt.
mais qui Csv-Dossier est assez undurchsichtig. si du mir den Code et alle nécessaire Fichiers zuschickst, schaue je mir qui l'affaire volontiers la fois à.

17.03.2007 ▲

la hâte Du ici qui richtigen Werte stehen (qui 16 ist important) ?

@allô Walter
là mon ADRESSOR-1.0 également avec 16 Spalten fonctionne, habe je Votre CSV-Dossier la fois y gestartet. cela Ergebnis vois Du dans Ausschnitten dans den deux Bildern. chez mir wird chacun Spalte anstandslos sur- et abwärts avec Mausklick sortiert. -
Kompilieren Marque Séparation

If bytes&>0

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

E

ab_sortiert.jpg Preview

131 kB

Hochgeladen:

18.03.2007

Downloadcounter:

Download

auf_sortiert.jpg Preview

132 kB

Hochgeladen:

18.03.2007

Downloadcounter:

Download

Jörg
Sellmeyer

je peux qui Beobachtung de Walter bestätigen. chez numerischer Sortierung wird ca. im unteren Drittel alles durcheinander gewürfelt. Ist bien trop voyons, si on qui Spalte avec den Jahreszahlen sortiert.

ListView3.prf	3 kB

Hochgeladen:	18.03.2007

Downloadcounter:
		Download

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

Muss mon attitude revidieren - chez qui nummerischen Sortierung wird zum Schluss bunt gemischt - aussi chez meinem Code (ADRESSOR) passiert cela - hatte d'abord qui nummerische Sortierung pas jusqu'à zum Ende verfolgt

@Walter
la hâte Du réellement qui ganzen Musiktitel aus qui CSV-Dossier Deiner Festplatte ?

Frank
Abbing

Hi,

kanns aussi nachvollziehen, et hab aussi déjà une Erklärung prêt.

Schuld sommes qui vider Zeilen! chacun le vide la ligne erzeugt une faute dans qui Sortierung. sommes alle Zeilen avec payons pleine, arbeitet qui Sortierung - comment gewohnt - korrekt. comment longtemps ist cette Bug maintenant eigentlich déjà unentdeckt geblieben?

So, hab maintenant une zusätzliche Sicherung dans qui Sortierung incorporé, sodass aussi qui vider Zeilen richtig bearbeitet volonté. Im Anhang une bug-bereinigte Version qui Listview.dll.

Listview.dll	88 kB

Hochgeladen:	18.03.2007

Downloadcounter:
		Download

Jörg
Sellmeyer

Wow! cela nenn je Service! et juste qui neue Version!
je crois allerdings, qui qui le crochet chez Walter un Anderer ist. avec diesem Code tritt es nämlich toujours sur.
Kompilieren Marque Séparation

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

si on seulement Spalte 4 sortiert, läßt sich après Spalte 1 pas plus sortieren. il faut wohl den Klick sur den Spaltenbutton intercepter et qui Autosortiererei pour Spalte 4 aufheben um Spalte 1 trop sortieren. c'est mais wahrscheinlich pas Sinn cela Features, ou bien?
Salut
Jörg

[offtopic]Habe je déjà erwähnt, qui Dir qui Vorschau extrem bien gelungen ist, iF? non? Ok - alors qui Vorschau ist Dir extrem bien gelungen![/offtopic]

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

[offtopic]
Jörg Sellmeyer

[offtopic]Habe je déjà erwähnt, qui Dir qui Vorschau extrem bien gelungen ist, iF? non? Ok - alors qui Vorschau ist Dir extrem bien gelungen![/offtopic]

merci.

[/offtopic]

Frank
Abbing

si on seulement Spalte 4 sortiert, läßt sich après Spalte 1 pas plus sortieren.

Hm, peux je pas bestätigen. la fois abgesehen en, dass du versuchst,dans deinem Testprogramm Spalte 1 pour payons trop sortieren, quoique es sans équivoque Textes contient. Text 1353 ist nunmal aucun numéro et muss folglich pour Buchstaben sortiert volonté...
Walters Code funktioniert einwandfrei avec qui neuen Dll!

Jörg
Sellmeyer

la hâte droite. chez mir funktioniert es aussi!

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

Walter
Köhler

Im Ernst, freut mich aussi la fois quoi donner trop peut comme seulement trop prendre.
et wenn´s seulement qui Hinweis sur une Buck ist.
bien cela Frank cela tout de suite korrigiert hat. je hatte mir déjà qui travail gemacht et alle vider Zellen avec 9999 trop füllen, sieht mais Scheiße aus; peux je alors wieder weg faire.
@ Frank avec cette CSV Dossier. MACHE MAL FOLGENDES

Erstelle une Kopie
lösche quelques Zeilen per Zufall
Füge dans qui Kopie quelques Zeilen imaginär en supplément

et eh bien Stichwort COMPARE
cherche qui Zeilen, qui sich dans Spalte1 +Spalte2 (Interpret et Titel) unterscheiden.
je komm avec einfacher Boucle sur 3 Sekunden, sous qui Voraussetzung einer eindeutigen Sortierung beider Listview pour gleichen Kriterien dans Spalte1+2
via Sortmanual (bien cela es cela gibt, sonst dauert qui l'affaire endlos)

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

19.03.2007 ▲

Walter
Köhler

Ist seulement un Ausschnitt Horst.
Habe en tout 156 CD`s avec je ca. 200 MP3 Songs.
(Ist arrêt mon Hobby, solange je penser peux )
je voulais pas plutôt Alles einlesen, jusqu'à cela Gesamtprogram steht.
Sieht déjà entier gentil aus, werde cela ensuite la fois présenter wenn´s fertig ist.

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

19.03.2007 ▲

- page 2 -

Frank
Abbing

et eh bien Stichwort COMPARE
cherche qui Zeilen, qui sich dans Spalte1 +Spalte2 (Interpret et Titel) unterscheiden.
je komm avec einfacher Boucle sur 3 Sekunden, sous qui Voraussetzung einer eindeutigen Sortierung beider Listview pour gleichen Kriterien dans Spalte1+2
via Sortmanual (bien cela es cela gibt, sonst dauert qui l'affaire endlos)

je hab qui Funktion pas oublier qc. Zum prochain Update plane je vous einzubauen:

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

19.03.2007 ▲