VBScript中有没有排序的函数?

想对一个数组进行排序
---------------------------------------------------------------

自己写一个冒泡或二分的排序函数就好了,很简单的呀
---------------------------------------------------------------

Public Sub QuickSort(ByRef arrObj , ByVal indStart , ByVal indEnd )
Dim MagicVal
Dim varTmp
Dim iStart
Dim iEnd

MagicVal = arrObj(indStart)
iStart = indStart + 1
iEnd = indEnd
Do While iStart < iEnd
Do While iStart < iEnd
If MagicVal >= arrObj(iStart) Then
iStart = iStart + 1
Else
Exit Do
End If
Loop
Do While iEnd >= iStart
If MagicVal <= arrObj(iEnd) Then
iEnd = iEnd - 1
Else
Exit Do
End If
Loop
If iStart < iEnd Then
varTmp = arrObj(iStart)
arrObj(iStart) = arrObj(iEnd)
arrObj(iEnd) = varTmp
Else
arrObj(indStart) = arrObj(iEnd)
arrObj(iEnd) = MagicVal
If iEnd - 1 > indStart Then
QuickSort arrObj, indStart, iEnd - 1
End If
If iEnd + 1 < indEnd Then
QuickSort arrObj, iEnd + 1, indEnd
End If
End If
Loop
End Sub

Published At
Categories with Web编程
Tagged with
comments powered by Disqus