Menu
▾
▴
RE: [perl-win32-gui-users] sorting a listview
|
From: Frazier, J. J. <Joe.Frazier@PeopleClick.com> - 2002-06-27 15:32:17
|
Here is what I use. I have "global" vars called $dir and $sortCol. =
$dir contains the current direction (asc or desc), while $sortCol =
contains the last sorted column. Using both, I then either reverse the =
sort is the column is the same as the current sorted column, or apply a =
asc sort if it is a new column.
sub lvwJobposts_ColumnClick{
my $sort =3D shift; #column to sort on, passed in by the click event =
and is the header you click on.
my @Rows;
for(my $x =3D 0; $x < $win->lvwJobposts->Count();$x++){
my @Values;
for(my $y =3D 0; $y <=3D $win->lvwJobposts->{Columns}; $y++){
my %data =3D $win->lvwJobposts->ItemInfo($x, $y);
push @Values, $data{-text};
}
push @Rows, \@Values; =20
=3Dpod
this grabs all the columns in a row and stuffs into an array subscript, =
then go to the next array subscript and do the same thing again. After =
this loop, @Rows is a 2 diminsional array like this:
[joe, frazier, 30, tammy],
[john, smith, 35, ''],
[bill, wilson, 40, Cary]
where the columns are laid out like "firstname, lastname, age, wife".
=3Dcut=09
}
if ($sort =3D=3D $sortCol){
if($dir eq 'f'){
$dir =3D 'b';
}elsif($dir eq 'b'){
$dir =3D 'f';
}
}else{
$sortCol =3D $sort;
$dir =3D "f";
}
my @result;
dosort (\@Rows, \@result, $sort, $dir);
$win->lvwJobposts->Clear();
for (my $d =3D 0; $d <=3D $#result;$d++){
Win32::GUI::DoEvents();
$win->lvwJobposts->InsertItem(-text =3D>$result[$d]);
}
}
sub dosort { # dosort \@sort, \@result, column 0 to n, 'f'|'r'
my ($sort, $sorted, $col, $dir) =3D @_;
if ($dir eq 'f') {
@$sorted =3D sort { $a->[$col] <=3D> $b->[$col] || $a->[$col] cmp =
$b->[$col] } @$sort;
} else {
@$sorted =3D sort { $b->[$col] <=3D> $a->[$col] || $b->[$col] cmp =
$a->[$col] } @$sort;
}
}
This could be cleaned up and made shorter, but It works great and I dont =
have time to mess with it right now. Perhaps Aldo can put something in =
the core Win32 to handle all this junk for us at some point in the =
future.
Joe
> -----Original Message-----
> From: ma...@mm... [mailto:ma...@mm...]
> Sent: Thursday, June 27, 2002 2:32 AM
> To: per...@li...
> Subject: [perl-win32-gui-users] sorting a listview
>=20
>=20
> hi. i've got alist view with 4 columns, being catalogue=20
> number, artist,
> title and qty (there's 2 other columns but they don't matter)=20
> and i've been
> trying to figure out how to sort the whole listview on a=20
> column click. i
> found a message sometime last year where someone posted=20
> something that i
> kind of got working, after a bit of tweaking. the problem is=20
> that the qty
> column doesn't sort properly and i just can't seem to figure=20
> out why. all
> the other columns sort fine when i click on them. any ideas?=20
> code below
>=20
> thanx in advance
>=20
>=20
> sub ListView_ColumnClick {
> $totalcols =3D 6;
> my $column =3D shift;
> print "column:$column\n";
> $column=3D$column+1;
>=20
> ## i do this so that I can toggle between ascending and descending
> sorts
> ## 0 =3D ascending (A-Z), 1 =3D decending (Z - A)
> if ($lastcolumn =3D=3D $column) # if you clicked the same=20
> column twice in
> a row
> {$sortorder =3D 1 - $sortorder;} # toggle between 1=20
> and 0 values
> else
> {$sortorder =3D 0;}
> print "You Clicked $column, last time it was=20
> $lastcolumn,sortorder
> =3D$sortorder\n";
> $lastcolumn =3D $column;
>=20
> %data=3D();
> $rows=3D$ListView->Count();
> print "rows:$rows\n";
> for $i(0..$rows-1)
> {
> $row=3D"";
> my %result=3D$ListView->GetItem($i,0);
> $image=3D$result{-image};
> for $j(0..$totalcols-1)
> {
> my %result=3D$ListView->GetItem($i,$j);
> $text=3D$result{-text};
> $row.=3D",$text";
> }
> $data{$i}=3D"$image$row";
> }
>=20
> my %sortcol =3D NewList($column, %data);
> SortListItem(\%data,\%sortcol,$column);
> if ($sortorder) {
> print "Sorted descending by Column $column\n";
> } else {
> print "Sorted ascending by Column $column\n";
> }
> return;
> }
>=20
> sub SortListItem {
> my ($data,$sortcol,$column) =3D @_;
> my $check;
> my %data =3D %$data;
> my %sortcol =3D %$sortcol;
>=20
> $check =3D "$_" foreach (values %sortcol);
>=20
> $ListView->Clear(); ## clear the ListView window
> $index =3D 0;
> if ($sortorder =3D=3D 0)
> { ## this is sorting in ascending order
> if (($column =3D=3D 1) or ($column =3D=3D 4))
> {
> print "sorting numerically\n";
> foreach (sort {
> (substr($sortcol{$a},0,index($sortcol{$a}," "))) =
<=3D>
> =20
> (substr($sortcol{$b},0,index($sortcol{$b}," "))) }
> keys %sortcol)
> {
> my @newdata =3D split/,/,$data{$_};
> print $data{$_};
> InsertListItem(@newdata);
> }
> }
> else {
> foreach (sort { uc($sortcol{$a}) cmp uc($sortcol{$b})
> } keys %sortcol)
> {
> my @newdata =3D split/,/,$data{$_};
> print $data{$_};
> InsertListItem(@newdata);
> }
> }
> $ListView->Update();
> }
> else
> { ## this is sorting in descending order
> if (($column =3D=3D 1) or ($column =3D=3D 4))
> {
> print "sorting numerically\n";
> foreach (sort {
> (substr($sortcol{$b},0,index($sortcol{$b}," "))) <=3D>
> (substr($sortcol{$a},0,index($sortcol{$a}," "))) } keys
> %sortcol)
> {
> my @newdata =3D split/,/,$data{$_};
> print $data{$_};
> InsertListItem(@newdata);
> }
> }
> else {
> foreach (sort { uc($sortcol{$b}) cmp uc($sortcol{$a})
> } keys %sortcol)
> {
> my @newdata =3D split/,/,$data{$_};
> print $data{$_};
> InsertListItem(@newdata);
> }
> $ListView->Update();
> }
> }
> my $lpPoint =3D pack("LLLLLALLLL", LVIF_STATE, 0, 0,
> 0x2000,LVIS_STATEIMAGEMASK, " ", 127, 0, 0, 0);
> my $rtn =3D $SendMsg->Call($ListView->{'-handle'},=20
> LVM_SETITEMSTATE, -1,
> $lpPoint);
>=20
> return;
> }
>=20
> sub NewList {
> ## This creates another hash to use only for sorting purposes.
> my ($column,%sortcol) =3D @_;
> my $sortthis;
>=20
> foreach (keys %sortcol) {
> my @info =3D split /,/, $sortcol{$_};
> $sortthis =3D $info[$column];
> $sortcol{$_} =3D "$sortthis";
> }
> return(%sortcol);
> }
>=20
> sub InsertListItem {
> my(@info) =3D @_;
> $Window->ListView->InsertItem(
> #-item =3D> $Window->ListView->Count(),
> -text =3D> =
[@info[1],@info[2],@info[3],@info[4],
> @info[5],@info[6]],
> );
> #$Window->ListView->SetItem(
> # -item =3D> $item,
> # -subitem =3D> 1,
> # -text =3D> $description,
> # );
> print "@info[1] @info[2] @info[3] @info[4] @info[5] @info[6]\n";
> }
>=20
>=20
>=20
> -------------------------------------------------------
> Sponsored by:
> ThinkGeek at http://www.ThinkGeek.com/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20
|