如何解決VBS中字符串連接的性能問(wèn)題

這篇文章將為大家詳細(xì)講解有關(guān)如何解決VBS中字符串連接的性能問(wèn)題，小編覺(jué)得挺實(shí)用的，因此分享給大家做個(gè)參考，希望大家閱讀完這篇文章后可以有所收獲。

當(dāng)然，對(duì)于少量的字符串連接，效率并沒(méi)有對(duì)程序造成多大影響，現(xiàn)在讓我們考慮一個(gè)極端的問(wèn)題：將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ù)組來(lái)解決：

復(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è)問(wèn)題中數(shù)組的大小是可以事先確定的，如果不能預(yù)知數(shù)組的大小就必須使用動(dòng)態(tài)數(shù)組。我水平比較低，不會(huì)用動(dòng)態(tài)數(shù)組，有沒(méi)有更簡(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倍，但是還是比&快多了，而且用起來(lái)比數(shù)組方便。

關(guān)于“如何解決VBS中字符串連接的性能問(wèn)題”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，使各位可以學(xué)到更多知識(shí)，如果覺(jué)得文章不錯(cuò)，請(qǐng)把它分享出去讓更多的人看到。