归并算法对二维数组的多列依次排序

cgzn

ykcbf1100 发表于 2024-8-1 17:06
px是干啥的？

colspx 是用递归的办法处理依次排序的。按sortrule的顺序，先排第一排序列，然后对第一排序列的相同的数值进行第二排序，依此类推
mergsort 是对arr的lt到rt行按某一列排序

cgzn

111111111111111

今铭昔

cgzn

今铭昔 发表于 2024-8-21 07:03

这么简单啊。会不会属于耍赖啊，语言内置了排序。另外这个能不能对中英文数字等各种字符混排

时间的音符

Public Sub main()
    t = Timer
    nums = [b3:e20567]
    ReDim indexs(LBound(nums) To UBound(nums))
    For i = LBound(nums) To UBound(nums)
        indexs(i) = i
    Next
    rules = [{-1,-1,1,1}]
    Call qSort(nums, LBound(nums), UBound(nums), rules, 1, indexs)
    ans = nums
    For i = LBound(nums, 1) To UBound(nums, 1)
        For j = LBound(nums, 2) To UBound(nums, 2)
            ans(i, j) = nums(indexs(i), j)
        Next
    Next
    [l3].Resize(UBound(nums, 1), UBound(nums, 2)) = ans
    MsgBox Timer - t
End Sub

Private Function random(lo, hi)
    random = Int(Rnd * (hi - lo + 1)) + lo
End Function

Private Function swap(indexs, a, b)
    tmp = indexs(a)
    indexs(a) = indexs(b)
    indexs(b) = tmp
End Function

Private Function qSort(nums, lo, hi, rules, level, indexs)
    If lo >= hi Or level > UBound(rules) Then Exit Function
    If rules(level) = 0 Then
        Call qSort(nums, lo, hi, rules, level + 1, indexs)
        Exit Function
    End If
    pre = random(lo, hi)
    swap indexs, pre, lo
    l1 = lo: l2 = hi + 1
    i = lo + 1
    Do While i < l2
        t = (nums(indexs(i), level) - nums(indexs(lo), level)) * rules(level)
        If t < 0 Then
            swap indexs, i, l1 + 1
            i = i + 1
            l1 = l1 + 1
        ElseIf t > 0 Then
            swap indexs, i, l2 - 1
            l2 = l2 - 1
        Else
            i = i + 1
        End If
    Loop
    swap indexs, lo, l1
    Call qSort(nums, l1, l2 - 1, rules, level + 1, indexs)
    Call qSort(nums, lo, l1 - 1, rules, level, indexs)
    Call qSort(nums, l2, hi, rules, level, indexs)
End Function

cgzn

今铭昔 发表于 2024-8-21 07:03

我把b:e 随便改了个字母，排序有些不太对，是不是也要加上 比较规则=文本

今铭昔

cgzn 发表于 2024-8-22 16:03
这么简单啊。会不会属于耍赖啊，语言内置了排序。另外这个能不能对中英文数字等各种字符混排

内置的方便啊，写排序算法我都写吐了。JS的排序只看你的比较结果，什么中英文混输排序洒洒水的事情，因为JS是函数式处理，函数作为参数传进去。调用者（sort）会给你的回调函数a和b形参（都是数组中的元素），然后你对其进行比较，最后返回一个数值，表示比较结果：返回0表示不变，返回正数表示a排在b的后面，返回负数表示a排在b的前面。至于改字母为什么不行，建议上表格我看一下。

cgzn

今铭昔 发表于 2024-8-23 16:38
内置的方便啊，写排序算法我都写吐了。JS的排序只看你的比较结果，什么中英文混输排序洒洒水的事情，因为 ...

您请看，我就改了一个t，js的排序乱了

今铭昔

cgzn 发表于 2024-8-23 16:45
您请看，我就改了一个t，js的排序乱了

一招秒杀

对于 Excel 工具栏就有多字段各种排序，对于SQL 不就是直接 Order By 1,2 desc， 3 吗？这么标准化的功能 还要另外写什么代码，谁知道你写的这代码靠谱不靠谱，要打个大大的问号，真是能折腾啊。