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()関数の代替関数を作る。 »