vbs的sort排序
更新時(shí)間:2008年08月01日 23:29:28 作者:
vbs+sort排序效果代碼
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" )調(diào)用了mscoree.dll,是.NET Framework相關(guān)組件。
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" )調(diào)用了mscoree.dll,是.NET Framework相關(guān)組件。
相關(guān)文章
用vbs腳本獲取網(wǎng)卡MAC,CPUID,硬盤序列號(hào)的實(shí)現(xiàn)代碼
這篇文章主要介紹了用vbs腳本獲取網(wǎng)卡MAC,CPUID,硬盤序列號(hào)的實(shí)現(xiàn)代碼,需要的朋友可以參考下2019-04-04用vbscript實(shí)現(xiàn)從文本文件中刪除所有重復(fù)行的代碼
這篇文章主要為大家介紹了關(guān)于從文本文件中刪除重復(fù)名字的類似問(wèn)題,需要的朋友可以參考一下2007-04-0415分鐘學(xué)會(huì)vbscript中的正則表達(dá)式
這篇文章主要介紹了15分鐘學(xué)會(huì)vbscript中的正則表達(dá)式,需要的朋友可以參考下2018-06-06用vbs實(shí)現(xiàn)顯示系統(tǒng)調(diào)色板的代碼
用vbs實(shí)現(xiàn)顯示系統(tǒng)調(diào)色板的代碼...2007-10-10