2018年10月
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31      
無料ブログはココログ

« VBScriptのReplace()関数の代替関数を作る。 | トップページ | VBAのReplace()関数の代替関数 »

2008年5月 4日 (日)

VBAのReplace()関数も、チョー遅い!

VBAのReplace()関数も、VBScriptと同じ実装のようです。というか、VBAが先に遅い実装をした?

a = String(1024& * 1024&, "a")
t1 = Timer
b = Replace(a, "a", "b")
Debug.Print Timer - t1
' 32.875

同様に、"VBScript.RegExp"のReplace()メソッドは、チョー速い!

a = String(1024& * 1024&, "a")
t1 = Timer
Set re = CreateObject("VBScript.RegExp")
re.Global = True
re.Pattern = "a"
b = re.Replace(a, "b")
Debug.Print Timer - t1
' 0.203125

« VBScriptのReplace()関数の代替関数を作る。 | トップページ | VBAのReplace()関数の代替関数 »