文字列をN回繰り返すためのVBScriptのビルドイン関数はありますか？

Question

VBScriptに関数があります。String(number,character)は、指定された長さの繰り返し文字を含む文字列を返します。例：

String(5, "A")  ' output: "AAAAA" 

文字列を繰り返す機能はありますか？例えば：。

RepeatString(5, "Ab")  ' output "AbAbAbAbAb" 

Answer 1

いいえ、何も代わりに内蔵されていない：一般的な簡単な解決策

Function RepeatString(number, text) 
    Redim buffer(number) 
    RepeatString = Join(buffer, text) 
End Function 

について

n  = 5 
str = "Ab" 
result = replace(space(n), " ", str) 

Answer 2

しかし、テキストは短いですが、繰り返し回数が多い場合、これははるかに高速なソリューションです。

Function RepeatString(ByVal number, ByVal text) 
    RepeatString="" 
    While (number > 0) 
     If number And 1 Then 
      RepeatString = RepeatString & text 
     End If 
     number = number \ 2 
     If number > 0 Then 
      text = text & text 
     End If 
    Wend 
End Function