使用VBA快速排序算法按文件扩展名对数组排序

Sub QuickSort(arr() As Variant, low As Long, high As Long)
    Dim i As Long, j As Long
    Dim pivot As Variant, temp As Variant
    
    i = low
    j = high
    pivot = arr((low + high) \ 2)
    
    While i <= j
        While arr(i) < pivot
            i = i + 1
        Wend
        
        While arr(j) > pivot
            j = j - 1
        Wend
        
        If i <= j Then
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
            i = i + 1
            j = j - 1
        End If
    Wend
    
    If low < j Then
        QuickSort arr, low, j
    End If
    
    If i < high Then
        QuickSort arr, i, high
    End If
End Sub

Sub SortArrayByFileExtension()
    Dim arr() As Variant
    Dim i As Long
    
    ' 假设数组中存储了文件名的列表
    arr = Array("file1.txt", "file3.doc", "file2.xlsx", "file4.pdf")
    
    ' 调用快速排序算法按文件扩展名排序数组
    QuickSort arr, LBound(arr), UBound(arr)
    
    ' 输出排序后的数组
    For i = LBound(arr) To UBound(arr)
        Debug.Print arr(i)
    Next i
End Sub

file4.pdf
file3.doc
file2.xlsx
file1.txt