pdf文件名按文件夹顺序打印

此函数将按字母数字顺序进行排序:

This function will sort alphanumerically:

Private Sub SortAlphaNum(List() As String)
    Dim TagedList() As String       ' List with "tags" in the numbers.
    ReDim taggedlist(UBound(List))

    Dim item As String              ' One item with tags.
    Dim ch As String                ' One character.
    Dim num As String               ' A number.  Can be multidigit.
    Dim digitCount As Integer       ' The number of digits.
    Dim i, j As Integer

    ' Visit each item in the list.
    For i = 0 To UBound(List) - 1
        ' Init.
        item = ""
        inNum = False
        num = ""
        digitCount = 0
        j = 1

        ' Examine each character.
        While j <= Len(List(i))
            ' Get one character.
            ch = Mid(List(i), j, 1)

            ' If the character is not a digit put it in the item.
            If ch < "0" Or ch > "9" Then
                item = item & ch

            ' Else, this is a digit.
            Else
                ' Keep reading digits.
                While ch >= "0" And ch <= "9"
                    ' Increase the count and add digit to num.
                    digitCount = digitCount + 1
                    num = num & ch
                    j = j + 1

                    ' Get another character.
                    ch = Mid(List(i), j, 1)
                Wend

                ' Add the tag and digit to the item.
                item = item & digitCount
                item = item & num

                ' If this is not the end of the line, add the last character read to the item.
                If j <= Len(List(i)) Then
                    item = item & ch
                End If
            End If
            j = j + 1
        Wend
        ' update the tagged list with the item.
        taggedlist(i) = item
    Next i

    ' Sort the tagged list (along with the real list).
    ' This is just a bubble sort.  Probably should replace.
    For i = 0 To UBound(taggedlist) - 2
        For j = 0 To UBound(taggedlist) - 2
            If taggedlist(j) > taggedlist(j + 1) Then
                item = taggedlist(j)
                taggedlist(j) = taggedlist(j + 1)
                taggedlist(j + 1) = item
                item = List(j)
                List(j) = List(j + 1)
                List(j + 1) = item
            End If
        Next j
    Next i
End Sub

要使用类似这样的名称:

To call it use something like this:

Private Sub Command1_Click()
    Dim i As Integer
    Dim mylist() As String
    ReDim mylist(List1.ListCount)

    ' Get list from listbox1.
    For i = 0 To List1.ListCount - 1
        mylist(i) = List1.List(i)
    Next i

    ' Sort the list.
    Call SortAlphaNum(mylist)

    ' Display in listbox2.
    List2.Clear
    For i = 0 To List1.ListCount
        Call List2.AddItem(mylist(i))
    Next i
End Sub

通过在数字组前面放置标签"进行排序.例如:两个文件
CR 9.1.09.pdf
CR 13.08.08.pdf
将被标记为
CR 1 9. 1 1. 2 09.pdf
CR 2 13. 2 08. 2 08.pdf
现在可以正常对其进行排序，然后使用原始列表重新显示.
我已经做出了一个假设(可能很糟糕)，即所有数组都从0开始.

This sorts by putting a "tag" in front of digit groups. For example: the two files
CR 9.1.09.pdf
CR 13.08.08.pdf
will be tagged as
CR 19.11.209.pdf
CR 213.208.208.pdf
This can now be sorted normally and then redisplayed using the original list.
I have made the assumption (probably bad) that all arrays start at 0.