1、需求：VBScript对数组的功能支持相对其他语言而言比较弱，然而在脚本应用中经常要使用数组，甚至对数组排序等，例如：遍历某个目录下的所有文件，并按某个规则依次保存到数组中。
成都网站建设哪家好，找
创新互联建站！专注于网页设计、
网站建设公司、微信开发、
小程序设计、集团
成都企业网站定制等服务项目。核心团队均拥有互联网行业多年经验，服务众多知名企业客户；涵盖的客户类型包括：
公路钻孔机等众多领域，积累了大量丰富的经验，同时也获得了客户的一致赞美！
2、实现方法：既然VBScript本身的功能不够，那么可以调用.NET Framework相关组件（mscoree.dll）的功能，具体实现如下：
1> 写个数组排序函数（参数：数组）：
Function aSortArray(Array)
Dim i,oArrayList, iElement,tempArray()
'CreateObject( "System.Collections.ArrayList" )即是调用了mscoree.dll,是.NET Framework的相关组件
Set oArrayList = CreateObject( "System.Collections.ArrayList" )
For iElement = 0 To UBound(Array)
oArrayList.Add Array(iElement)
Next
'调用对象的排序方法
oArrayList.Sort
redim tempArray(oArrayList.count)
for i=0 to oArrayList.Count-1
If oArrayList.item(i)<>"" Then
tempArray(i) = oArrayList.item(i)
End If
Next
aSortArray=tempArray
End Function
'说明：由于oArrayList是对象，直接做为返回值，意义不大，因此需要对oArrayList对象再处理，只存储它的值就可以了。
'上述排序结果输出的数组是按从小到大排序的，若要得到从大到小的结果数组，将tempArray(i) = oArrayList.item(i) 改为 tempArray(ArrayList.Count-1-i) = oArrayList.item(i) 即可。
2>验证功能：
Sub main
Dim arrs,a,i
arrs=Array(12,14,70,2,89,412,87,41,8,-7,60)
a=aSortArray(arrs)
for i=0 to UBound(a)
If a(i)<>"" Then
log.Message( a(i))
End If
Next
End Sub
运行，输出结果如下：
网页标题：VBScript脚本实现数组排序-创新互联
网页URL：
http://cdkjz.cn/article/dggjop.html
