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

2019-10-26 18:04:01

字體：大中小

來源：轉載

供稿：網友

當然，對于少量的字符串連接，效率并沒有對程序造成多大影響，現在讓我們考慮一個極端的問題：將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實現音樂播放的多個代碼小結

下一篇：VBS中通過調用CAPICOM對象實現SHA1&amp;MD5加密