Welcome to OStack Knowledge Sharing Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
640 views
in Technique[技术] by (71.8m points)

c# - Sorting an array of folder names like Windows Explorer (Numerically and Alphabetically) - VB.NET

I'm killing myself and dehydrating trying to get this array to sort.

I have an array containing directories generated by;

Dim Folders() As String = Directory.GetDirectories(RootPath)

I need them to be sorted so they appear like in windows explorer in win7 / vista. -- numerically and alphabetically by folder names.

The folder names contain both letters and numbers, sometimes letters only or numbers only.

The simple Array.Sort(Folders) results in

C:inetpubwwwroot
ootpath1
C:inetpubwwwroot
ootpath10
C:inetpubwwwroot
ootpath100
C:inetpubwwwroot
ootpath1004
C:inetpubwwwroot
ootpath101
C:inetpubwwwroot
ootpath11
C:inetpubwwwroot
ootpath12
C:inetpubwwwroot
ootpath2
C:inetpubwwwroot
ootpath3
C:inetpubwwwroot
ootpath4
C:inetpubwwwroot
ootpath5
C:inetpubwwwroot
ootpath6
C:inetpubwwwroot
ootpath7
C:inetpubwwwroot
ootpath8
C:inetpubwwwroot
ootpath87skjnd
C:inetpubwwwroot
ootpath89sdf93kmw3
C:inetpubwwwroot
ootpath9
C:inetpubwwwroot
ootpathad
C:inetpubwwwroot
ootpathin
C:inetpubwwwroot
ootpathdark
C:inetpubwwwroot
ootpatherk
C:inetpubwwwroot
ootpathjkh23978yoaslkd3
C:inetpubwwwroot
ootpathlk2309as
C:inetpubwwwroot
ootpathwork
C:inetpubwwwroot
ootpathzone

What I want to have (and what windows explorer displays) is ...

C:inetpubwwwroot
ootpath1
C:inetpubwwwroot
ootpath2
C:inetpubwwwroot
ootpath3
C:inetpubwwwroot
ootpath4
C:inetpubwwwroot
ootpath5
C:inetpubwwwroot
ootpath6
C:inetpubwwwroot
ootpath7
C:inetpubwwwroot
ootpath8
C:inetpubwwwroot
ootpath9
C:inetpubwwwroot
ootpath10
C:inetpubwwwroot
ootpath11
C:inetpubwwwroot
ootpath12
C:inetpubwwwroot
ootpath87skjnd
C:inetpubwwwroot
ootpath89sdf93kmw3
C:inetpubwwwroot
ootpath100
C:inetpubwwwroot
ootpath101
C:inetpubwwwroot
ootpath1004
C:inetpubwwwroot
ootpathad
C:inetpubwwwroot
ootpathin
C:inetpubwwwroot
ootpathdark
C:inetpubwwwroot
ootpatherk
C:inetpubwwwroot
ootpathjkh23978yoaslkd3
C:inetpubwwwroot
ootpathlk2309as
C:inetpubwwwroot
ootpathwork
C:inetpubwwwroot
ootpathzone

I googled and found out that a class needs to be written that uses IComparable to sort the elements. Being a supernewbie ... I really don't know how it can be done. Most examples I looked at had multi dimensional arrays and keys :S ...

would be even nicer if the sorting could be applied to an array of filenames (instead of foldernames) or an array containing both folders and files ... in which case the sorted folders appear at the top and sorted files below ... is this even possible?

Any help will be greatly appriciated ... :D thanks.

See Question&Answers more detail:os

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Answer

0 votes
by (71.8m points)

You would need to implement an IComparer, as opposed to creating a class that implements IComparable. The difference is that an IComparer has the necessary "knowledge" to compare two objects whereas IComparable is implemented by a class that knows how to compare itself against something else.

And the way Windows Explorer sorts filenames is using a function called StrCmpLogicalW. You can use this function in your own IComparer to get the same sort behavior as Windows Explorer. This function treats numeric parts of strings as numbers so that 9 sorts before 10.

public class MyComparer : IComparer<string> {

    [DllImport("shlwapi.dll", CharSet=CharSet.Unicode, ExactSpelling=true)]
    static extern int StrCmpLogicalW(String x, String y);

    public int Compare(string x, string y) {
        return StrCmpLogicalW(x, y);
    }

}

Array.Sort(unsortedNames, new MyComparer());

And since I just noticed the question is tagged VB... Forgive my rusty VB!

Public Class MyComparer
    Implements IComparer(Of String)

    Declare Unicode Function StrCmpLogicalW Lib "shlwapi.dll" ( _
        ByVal s1 As String, _
        ByVal s2 As String) As Int32

    Public Function Compare(Byval x as String, Byval y as String) As Integer _
        Implements System.Collections.Generic.IComparer(Of String).Compare

        Return StrCmpLogicalW(x, y)

    End Function

End Class

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome to OStack Knowledge Sharing Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...