« VBScriptのReplace()関数は、チョー遅い! | トップページ | VBScriptのReplace()関数の代替関数を作る。 »

2008年5月 2日 (金)

VBScriptのReplace()関数の代替にJScriptを使う。

ScriptControl経由でJScriptのStringオブジェクトのreplace()メソッドを使う。

a=String(1024*1024,"a")
t1=Timer
Set sc=CreateObject("ScriptControl")
sc.Language="JScript"
sc.AddCode "function replace(s,p,r){return s.replace(p,r);}"
b=sc.CodeObject.replace(a,"a","b")
MsgBox Timer-t1
' 0.625

わざわざ使うほどのことはないですが、HTMLやWSFなどならいいかも。

« VBScriptのReplace()関数は、チョー遅い! | トップページ | VBScriptのReplace()関数の代替関数を作る。 »