快捷導(dǎo)航

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

更新時(shí)間：2011年01月21日 23:18:54 作者：

字符串連接誰不會(huì)，還用得著寫？沒錯(cuò)，在VBS中連接字符串確實(shí)很簡(jiǎn)單，無非就是&和+，不過本文不是討論&和+用法之間的區(qū)別，而是討論字符串連接的效率問題，即樣才能快速地連接字符串？

當(dāng)然，對(duì)于少量的字符串連接，效率并沒有對(duì)程序造成多大影響，現(xiàn)在讓我們考慮一個(gè)極端的問題：將1到100000之間的所有數(shù)字連接成一個(gè)字符串。

最簡(jiǎn)單的解決方案是直接使用&連接：

復(fù)制代碼代碼如下:

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

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

復(fù)制代碼代碼如下:

 
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倍。在這個(gè)問題中數(shù)組的大小是可以事先確定的，如果不能預(yù)知數(shù)組的大小就必須使用動(dòng)態(tài)數(shù)組。我水平比較低，不會(huì)用動(dòng)態(tài)數(shù)組，有沒有更簡(jiǎn)單的方法呢？答案是有，那就是字典：

復(fù)制代碼代碼如下:

 
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 

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

總結(jié)：&連接符號(hào)的效率是比較低的，在連接少量字符串時(shí)可以使用，但是在大量字符串連接時(shí)應(yīng)該使用Join函數(shù)+數(shù)組。
原文：http://demon.tw/programming/vbs-string-concatenation.html