如果问题就这么结束,那么也就不会有这篇文章。怪我手贱,在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
一个示例程序: 复制代码 代码如下: 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