如果問題就這么結(jié)束,那么也就不會有這篇文章。怪我手賤,在Google中輸入“vbs sort”,回車,看到一段代碼,頓時淚流滿面。
代碼如下:
Set outputLines = _
CreateObject("System.Collections.ArrayList")
'add lines
outputLines.Add output
outputLines.Add output
outputLines.Sort()
For Each outputLine in outputLines
stdout.WriteLine outputLine
Next
System.Collections.ArrayList不是.NET里面的類嗎?在VBS中可以使用.NET中的類?事實證明,大約的確是可以的,不過僅限于很少一部分,至于是哪些,自己想吧。
一個示例程序:
代碼如下:
Set ArrayList = _
CreateObject("System.Collections.ArrayList")
Randomize
For i = 1 To 10
n = Int(100 * Rnd + 1)
out = out & n & " "
ArrayList.Add n
Next
WScript.Echo out
WScript.Echo "============================="
ArrayList.Sort()
out = ""
For Each i In ArrayList
out = out & i & " "
Next
WScript.Echo out
當(dāng)然了,不是每個系統(tǒng)上都裝有.NET Framework的,這種沒有移植性的代碼還是少寫的好。不過有特殊需要的朋友,主要先安裝.net組件。讓腳本可以做更多的事。