当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs的sort排序

VBScript
VBS教程：函数-TimeSerial 函数
VBS教程：函数-Timer 函数
VBS教程：函数-Time 函数
VBS教程：函数-Tan 函数
VBS教程：函数-StrReverse 函数
VBS教程：函数-String 函数
VBS教程：函数-StrComp 函数
VBS教程：函数-Sqr 函数
VBS教程：函数-Split 函数
VBS教程：函数-Space 函数
VBS教程：函数-Sin 函数
VBS教程：函数-Sgn 函数
VBS教程：函数-SetLocale 函数
VBS教程：函数-Second 函数
VBS教程：函数-ScriptEngineMinorVersion 函数
VBS教程：函数-ScriptEngineMajorVersion 函数
VBS教程：函数-Mid 函数
VBS教程：函数-数学函数
VBS教程：函数-LTrim、RTrim 和 Trim 函数
VBS教程：函数-Log 函数

No. « 10 11 12 13 »

技术文章搜索

关键字

VBScript 中的 vbs的sort排序

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-11   浏览: 195 ::
收藏到网摘: n/a

Function fSortArray(aSortThisArray)
Dim oArrayList, iElement
Set oArrayList = CreateObject( "System.Collections.ArrayList" )
For iElement = 0 To UBound(aSortThisArray)
oArrayList.Add aSortThisArray(iElement)
Next
oArrayList.Sort
set fSortArray = oArrayList
End Function
myarray=Array(50,20,30)
MsgBox myarray(0)
MsgBox fSortArray(myarray)(0)
'CreateObject( "System.Collections.ArrayList" )调用了mscoree.dll,是.NET Framework相关组件。