ASP/VBS 数组快速排序

最新推荐文章于 2021-01-14 14:28:12 发布

AMinfo

最新推荐文章于 2021-01-14 14:28:12 发布

阅读量2.4k

点赞数

分类专栏： VBS

本文链接：https://blog.youkuaiyun.com/AMinfo/article/details/22687333

版权

VBS 专栏收录该内容

13 篇文章

订阅专栏

本文介绍了一种使用ASP/VBS实现的数组快速排序方法。通过创建一个System.Collections.ArrayList对象并利用其Sort方法来完成排序过程。该方法适用于VBS脚本环境中，需要系统安装.NET支持。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

ASP/VBS 数组快速排序方法：

Function fsArray(thisArray)
	Dim oArrayList, iElement
	Set oArrayList = CreateObject("System.Collections.ArrayList")
	For iElement = 0 To UBound(thisArray)
		oArrayList.Add CLng(thisArray(iElement))
	Next
	oArrayList.Sort
	thisArray = oArrayList.toArray
	str = join(thisArray, ",")
	Response.write Str & "<BR>"
	fsArray = thisArray
End Function

MyArray = Split("12,4,356,8943,23,123,34456,4223,2232,3454,78,13", ",")
For i=0 to ubound(MyArray)
	Response.write MyArray(i) & ","
Next
Response.write "<BR>"
MyArray = fsArray(MyArray)
For i=0 to ubound(MyArray)
	Response.write MyArray(i) & ","
Next

以上代码需要系统安装.net方可支持。