VBAでJScriptの正規表現を使う

発端

VBAで正規表現を使おうとした場合、参照設定などしないといけなかったりと、わりと面倒です。そこで、JScriptの正規表現を使ってしまうことで解決しようというのが今回の試みです。

ソース

'スクリプトエンジンを宣言(JScript)
  Set js = CreateObject("ScriptControl")
  js.Language = "JScript"
 
'スクリプトを定義する(JScript)
  Dim script As String
  script = "'abcdefg'.match(/a/)"

'ヒットした文字を出力
  Dim result As String
  result = js.eval(script)
  MsgBox result

解説

js.eval(script) の結果、正規表現 /a/ にマッチした文字列が result に代入されます。

参照

VBAからJScriptのescape()を使う。: Windows Script Programming
JavaScriptの正規表現