listbox sort by length ?

[kevin_sauerwald]

I am using a list box to grab a bunch of names that will be
use as a replace list... issue is if you have something like
grab_proc and grap_proc_name and you do a replace with
with lets say g_grab_proc you end up getting
a double hit on grab_proc_name..

so if I can sort the list to longest to shortest I think it will fix
it.... and I cant just name the replace use a space afterwards to
fix it..

any ideas ??

[Dave Sell]

So then, do you just want to sort your ListBox in terms of string length instead of ASCII sorting (which is built into the control)?

[kevin_sauerwald]

yep.. thats it... Not by A-Z or what not...

I could write code to do it.. just wondering if there
was some way to change the sort criteria...

or someone had quick code snipit to do it..

[RhinoBull]

Here is a quick sample for you, Kevin:

Public Sub SortByLength(lst As ListBox)
'=======================================
Dim i&, j&, tmpValue
Dim arTemp() As String
 
    Debug.Print "Start Time: " & Format(Now, "hh:nn:ss")
    
    ReDim arTemp(lst.ListCount - 1)
    For i = 0 To lst.ListCount - 1
        arTemp(i) = lst.List(i)
    Next i
    lst.Clear
    For i = 0 To UBound(arTemp)
        For j = i To UBound(arTemp)
            If Len(arTemp(i)) > Len(arTemp(j)) Then
                tmpValue = arTemp(j)
                arTemp(j) = arTemp(i)
                arTemp(i) = tmpValue
            End If
        Next
        lst.AddItem arTemp(i)
    Next
    
    Debug.Print "End Time: " & Format(Now, "hh:nn:ss")
 
End Sub

[Halsafar]

Debug.Print "Start Time: " & Format(Now, "hh:nn:ss")

What does Now do?
the rest is easy, I aint never seen that Now used before

[dglienna]

returns system time

[RhinoBull]

Originally posted by dglienna
returns system time

To be exact: System Date and Time

[HumePeabody]

I have used a recursive QuickSort (which you can probably do a Goolge on) for sorting. I pass a variable through hte Sort function to a CompareFunction that lets you have variable methods of Sorting/Comparing without the need for a different sort for each.

1 = Sort by Length,
2 = Sort Alphabetically
3 = ...

HTH

Hume