Alphabetizing Lists

[Zaphod64831]

Does anyone have a code sample that will alphabetize a list? I am using a For Each loop to populate a list but the items all come out jumbled.

Here's what it looks like now:

For Each Animation In Merlin.AnimationNames
   List1.AddItem Animation
Next

Can anyone help?

Well here's a simple process. Put the word in a Temp textbox. Get the first letter of the word. Since each character has a number value, arrange each word in order from which even "number" is the smallest.

For example, on the ASCII Chart, a = 97, b = 98 c = 99 d = 100 etc. etc.

[Serge]

Just change the Sorted property of the ListBox to True.

[da_silvy]

For Each AnimationName In Character.AnimationNames
        ListBox.AddItem AnimationName
Next

and set it to sorted = true, for the listbox

[wengang]

Hey guys, I have a similar problem.

I made a small database that basically reads/write by a text file of the records. This kind of thing

For intX = 0 to intNumRecords
Write #1, strName(intX), strAddress(intX), strEmail(intX)...
Next intX

Question is: How can I alphabetize the strName() of a new
record that is being added to the file and keep all records of the index intX intact (in other words re-writing the entire file now alphabetized with name , address, ....etc.
still corresponding)?

Has anybody done this already?

Thanks .

[kedaman]

Does anyone know how listbox sorts? I have an app that use bubblesort but it goes exponentially slower, the more items i have. If anyone have a faster sorting method, like listbox, post back to me.

[Razzle]

The fastest sorting algorithm is a Shellsort algorithm using a C++ DLL. you can use it e.g. to sort arrays.
The source for the C++ DLL is:

#include <windows.h>
/***********************************************************

shellsort algorithm
dllname : sort32.dll
parameters: array, fieldelementcount

***********************************************************/
void _stdcall sort(double a[], long n)
{
long k, i, j;
double hM
  k = n/2
  while (k>0)
   { for (i=0; i<n-k; i++)
     { j=i;
       while (j>=0 && a[j]>a[j+k])
        { h=a[j]; a[j]=a[j+k]; a[j+k]=h; j=j-k; }
     }
     k = k/2;
    }
}

BOOL WINAPI DllMain (HINSTANCE hDLL, DWORD dwReason, LPVOID lpReserved)
{ return TRUE; }

to use this routine in a VB program:

Declare Sub sort Lib "sort32.dll" (field as Double, ByVal count&)

[Edited by Razzle on 05-07-2000 at 07:12 AM]

[kedaman]

Thanks, can anybody translate that to vb?

[Razzle]

no problem

Sub sort_shell(a() as Variant)
Dim n&, i&, j&, k&, h as Variant
 
  n =  Ubound(a)
  k = n \ 2
  While k > 0
    For i = 0 to n - k
     j = i
     While (j >= 0) And (a(j) > a(j + k))
       h = a(j)
       a(j) = a(j + k)
       a(j + k) = h
       If j > k Then 
         j = j - k
       Else
         j = 0
       End if
     Wend
    Next i
    k = k \ 2
   Wend
End Sub

[Edited by Razzle on 05-07-2000 at 07:49 AM]

[kedaman]

Thanx again, i was thinking, why only double, because i'm sorting strings. Now variant looks much better