vba - VBA 中链表的快速排序

Question

不幸的是，我继承了一些在 VBA 中使用 LinkedLists 的 VBA 代码，但没有任何内容被排序，并且需要排序。

链表示例: http://support.microsoft.com/kb/166394

我试图通过将以下代码转换为 LinkedList 对项目进行快速排序: VBA array sort function?

但是我很难遵循函数的逻辑来确定如何将其转换为非编号系统(例如链接列表)。

有人可以帮助注释代码以解释发生的情况，或者可能帮助翻译吗？

Answer 1

首先，您需要一个链接列表对象。我将使用一个数组作为示例。为了简单起见，我们采用 5 个节点。

'Declaration of the array
Dim LinkedList(0 To 4) As Node

现在，是时候填充数组了。我们说变量 head 是我们的 LinkedList 的头部:

Dim i As Integer
i = 0

Dim currentNode As Node
Set currentNode = head.pnext

While Not currentNode.pnext Is currentNode 'walk rest of list to end
    LinkedList(i) = currentNode
    i = i + 1
    Set currentNode = currentNode.pnext      'current pointer to next node
Wend

我们的LinkedList现已填充，我们可以使用快速排序。我们用这一行启动初始调用:

QuickSort LinkedList, LBound(LinkedList), UBound(LinkedList)

我们对这个功能做了一些调整:

Public Sub QuickSort(vArray As Node, inLow As Long, inHi As Long)

  Dim pivot   As Integer
  Dim tmpSwap As Integer
  Dim tmpLow  As Long
  Dim tmpHi   As Long

  tmpLow = inLow
  tmpHi = inHi

  pivot = vArray((inLow + inHi) \ 2).Key

  While (tmpLow <= tmpHi)

     While (vArray(tmpLow).Key < pivot And tmpLow < inHi)
        tmpLow = tmpLow + 1
     Wend

     While (pivot < vArray(tmpHi).Key And tmpHi > inLow)
        tmpHi = tmpHi - 1
     Wend

     If (tmpLow <= tmpHi) Then
        tmpSwap = vArray(tmpLow).Key
        vArray(tmpLow).Key = vArray(tmpHi).Key
        vArray(tmpHi).Key = tmpSwap
        tmpLow = tmpLow + 1
        tmpHi = tmpHi - 1
     End If

  Wend

  If (inLow < tmpHi) Then QuickSort vArray, inLow, tmpHi
  If (tmpLow < inHi) Then QuickSort vArray, tmpLow, inHi

End Sub

我觉得还不错。如果有问题或误解请告诉我。