由vbs sort引发.NET Framework之间的关系说明

2020-07-26 11:51:26

字体：大中小

来源：转载

供稿：网友

如果问题就这么结束，那么也就不会有这篇文章。怪我手贱，在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 