読者です 読者をやめる 読者になる 読者になる

No Programming, No Life

新しいNPNLです。http://d.hatena.ne.jp/fumokmm/ から引っ越してきました。

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 に代入されます。