Windows 10 Pro_x64 + Excel2013_x86 VBA で JScript を少し試してみる

Windows 10 Pro_x64 + Excel2013_x86 VBA で JScript を少し試してみる

VBA だと like "[]" で単純な正規表現風の比較はできるのだが

もう少し柔軟性が欲しいので試してみる

※C:\windows\syswow64\regsvr32 C:\ChakraCore.dll はエラーを吐いてNG

参考にしたのは以下のサイト

VBAでJScriptの正規表現を使う

JavaScript エンジン Chakra を無理矢理使う

・ツール->参照設定　より以下をチェックする

　Microsoft Script Control 1.0

Private Sub CommandButton1_Click()
'
    Dim js      As New ScriptControl
    Dim result  As String
    '
    '   Microsoft Script Control 1.0を
    '   チェックしない場合は以下のコードになる
    '   Dim js As Object
    '   Set js = CreateObject("ScriptControl")
    '
    js.Language = "JScript"
    '
    'スクリプトを定義する(JScript)
    '
    Dim script As String
    script = "'abcdefg'.match(/a/)"
    '
    'ヒットした文字を出力
    '
    result = js.Eval(script)
    Debug.Print result
End Sub