Сортировка как в Windows-проводнике

[Скрипт]

Не появилось ничего нового по этому вопросу?

В чём сложность и почему нельзя воспользоваться Excel-средствами для сортировки. Сложность в таких именах:
1_Имя файла
2_Имя файла
10_Имя файла

Еxсel вот такой отсортирует:
1_Имя файла
10_Имя файла
2_Имя файла

Никакой библиотеки не появилось для такой сортировки?
Потому что я сам вряд ли смогу сделать такую сортировку.

[Hugo121]

Добавить ведущие нули, сортировать.
Можно добавить в параллельном массиве (или столбце), сортировать по нему.

[Скрипт]

Hugo121, сортировка - это очень сложный код. Такой код могут делать только профессиональные программисты. Я не профессиональный программист, поэтому даже не буду пытаться делать такой код.

Хотел бы готовое что-нибудь. Может появилось.

[doober]

Например так.
Если учитывать цифры в нутри,то немного сложнее будет

Sub MMM()
    Dim A As Collection
    Set A = New Collection
    A.Add "1_Имя файла"
    A.Add "10_Имя файла"
    A.Add "2_Имя файла"
    Set A = Sort(A)
End Sub

Public Function Sort(ByRef A As Collection) As Collection
    Set b = New Collection
    ReDim x(1 To A.Count, 1 To 2)
    For n = 1 To A.Count
        x(n, 1) = Val(A(n))
        x(n, 2) = n
    Next
    BubbleSort x
    For n = 1 To A.Count
        b.Add A(x(n, 2))
    Next
    Set Sort = b
End Function
Public Sub BubbleSort(ByRef List)

    Dim First As Integer, Last As Integer
    Dim i As Integer, j As Integer
    Dim Temp As Integer
    Dim Temp1 As Integer, Temp2 As Integer
    First = LBound(List)
    Last = UBound(List)
    For i = First To Last - 1
        For j = i + 1 To Last
            If List(i, 1) > List(j, 1) Then
                Temp = List(j, 1)
                Temp1 = List(j, 2)
                List(j, 1) = List(i, 1)
                List(j, 2) = List(i, 2)
                List(i, 1) = Temp
                List(i, 2) = Temp1
            End If
        Next j
    Next i
End Sub

[Hugo121]

Скрипт, Вы думаете Сергей этот код только что сейчас для Вас написал?
Т.е. это к тому, что таких готовых кодов в сети / в загашниках полно, нужно только найти и чуть подправить под задачу

Сергей - или таки написал всё сейчас?

[Скрипт]

doober, а какой там принцип сортировки?

Я так понял, что в Windows-проводнике различные фрагменты сортируются по разному: если число, то по числовому принципу, если текст, то по текстовому.

Windows-проводник только первые фрагменты принимает за числа, а всё что внутри находится, то считается уже текстом, даже если число или как там?

[Скрипт]

Hugo121, чтобы использовать чужой код, который не известно кем написано, нужно проанализировать сначала код. Вряд ли я смогу осознать код по сортировке.

Я бы хотел средство от известных организаций, например, "Microsoft".

Я знаю только сортировку пузырьком.

[doober]

Игорь,писал сейчас,но брал из загашника BubbleSort.
Пользуюсь SmartIndent и складываю туда полезные решения

BubbleSort и есть сортировка пузырьком

[Hugo121]

Хотя как-то сложно, я даже с ходу не могу смысл уловить...
Я предполагал так - загнать список в двумерный массив. Во второй столбец или эти номера в голом виде как числа, или с ведущими нулями как строки (смотря что там за данные, что там за имена файлов, могут ли числа/имена повторяться и т.д.).
Затем этот двумерный сортируем любым готовым кодом, хоть тем же пузырьком из примера Сергея.
Затем берём нужный отсортированный столбец.
Но удобнее сортировать по второму, тогда первый проще взять - можно его например на лист одним движением выгрузить. Т.е. пузырёк я бы перевернул

[doober]

Не люблю с листами работать,мне так проще.
Смысл простой.
создаем массив полученое число с имени файла,порядковый номер файла в коллекции.
Сортируем двухмерный массив ,по второму столбцу(идекс в исходной коллекции) создаем новую.