VBS中の文字列接続の性能問題
もちろん、少量の文字列接続に対して、効率はプログラムに大きな影響を与えていません。極端な問題を考えてみましょう。1から100000までの数字をすべて一つの文字列に接続します。一番簡単な解決策は直接使用＆接続です。
begin = Timer
For i = 1 To 100000
str = str & CStr(i)
Next
WScript.Echo str
finish = Timer
WScript.Echo finish - begin
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
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