VBS中的字符串連接的性能問題

2020-07-26 11:51:23

字體：大中小

來源：轉載

供稿：網友

當然，對于少量的字符串連接，效率并沒有對程序造成多大影響，現在讓我們考慮一個極端的問題：將1到100000之間的所有數字連接成一個字符串。

最簡單的解決方案是直接使用&連接：

復制代碼代碼如下:

 
begin = Timer 
For i = 1 To 100000 
str = str & CStr(i) 
Next 
WScript.Echo str 
finish = Timer 
WScript.Echo finish - begin 

但是這個程序在我電腦上需要運行60.648秒，效率太低。換一種方案，用數組來解決：

復制代碼代碼如下:

 
begin = Timer 
Dim arr(100000) 
For i = 1 To 100000 
arr(i) = i 
Next 
str = Join(arr, "") 
WScript.Echo str 
finish = Timer 
WScript.Echo finish - begin 

這次只用了0.742秒，大概快了60倍。在這個問題中數組的大小是可以事先確定的，如果不能預知數組的大小就必須使用動態數組。我水平比較低，不會用動態數組，有沒有更簡單的方法呢？答案是有，那就是字典：

復制代碼代碼如下:

 
begin = Timer 
Set oDic = CreateObject("scripting.dictionary") 
For i = 1 To 100000 
oDic.Add i, CStr(i) 
Next 
str = Join(oDic.Items, "") 
WScript.Echo str 
finish = Timer 
WScript.Echo finish - begin 

運行時間為1.593，是數組的2倍，但是還是比&快多了，而且用起來比數組方便。

總結：&連接符號的效率是比較低的，在連接少量字符串時可以使用，但是在大量字符串連接時應該使用Join函數+數組。
原文：http://demon.tw/programming/vbs-string-concatenation.html

上一篇：用VBS精確計算2的100次方的代碼

下一篇：VBS中用CDO.Message發送郵件的實現代碼