VBAのJScriptのeval()の挙動について

質問

VBAのコードを調べていますが、
JScriptで記述されている部分があり、
この部分でよく分からない挙動があるので教えてください。
(JSONデータをパースしているコードです)

具体的には、(実際のコードを簡略化したもの)
----------------------------------------
Sub test()
Dim x As String
Dim sc As Variant
Dim y As String
x = "{""A"":""d"",""B"":""e"",""C"":""f""}"
Set sc = json_perse(x)
y = sc.CodeObject.getValue("B")
Debug.Print y
End Sub

Public Function json_perse(ByVal x As String) As Variant
Dim sc As Object
Set sc = CreateObject("ScriptControl")
With sc
.Language = "JScript"
.AddCode "function getValue(){ var $tmp=''; for(var $i = 0; $i < arguments.length; $i++){ $tmp += ""['"" + arguments[$i] + ""']""; } return eval('e' + $tmp); }"
.AddCode "var e = eval(" & x & ");"
End With
Set json_perse = sc
End Function
------------------------------------------
のコードを実行すると、
getValue()の引数で指定した文字列(ここではB)
の後の:の後の文字(ここではe)が返されますが、
なぜ、このようになるのかがよく分かりません。

この処理をしている部分を抽出すると
-------------------------------------
function getValue(){
　var $tmp='';
　for(var $i = 0; $i < arguments.length; $i++){
　$tmp += ""['"" + arguments[$i] + ""']"";
　}
　return eval('e' + $tmp);
}
var e = eval(" & x & ");
-------------------------------------
となっていて、
eval()は、文字列として指定されたコードをJavaScriptのコードとして評価する
ということですが、
eval(" & x & ")とeval('e' + $tmp)の部分が何をしているのかがよく分かりません。
なぜ、このコードを実行すると、
$tmpの文字(この場合はB)の後の:の後にある値が取得できるのでしょうか。

回答No.1

m-take0220

eval(" & x & ")
このxは、json_perse(ByVal x As String)の括弧の中にあるxです。なので、今回のコードでは、"{""A"":""d"",""B"":""e"",""C"":""f""}"が渡されます。なので、

e = {"A":"d","B":"e","C":"f"};

となり、eに連想配列が代入されます。
eval('e' + $tmp)の$tmpは、arguments.length=1、argumenst[0]="B"の場合、"['B']"になります。なので、実行されるコードはe['B']となり、連想配列eから'B'に該当する部分を取得するので、'e'が返ってきます。

お礼

どのようなことが行われているのかがよく理解できました。
とても分かりやすい説明ありがとうございました。

なお、今回の現象を調べるために、
さらにコードを簡略化して調べていたのですが、
下記のように引数なしで固定値を返すようにすると、
なぜか、引数を指定しないと、正しい値が戻ってきません。
もし、この理由が分かりましたら教えていただけないでしょうか。

よろしくお願いします。

----------------------------------------------
Sub test()
　Dim x As String
　Dim sc As Variant
　Dim y As String
　x = "{""A"":""d"",""B"":""e"",""C"":""f""}"
　Set sc = json_perse(x)
　y = sc.CodeObject.getValue() '【変更箇所】
　'y = sc.CodeObject.getValue("") ' これはOK
　Debug.Print y
End Sub

Public Function json_perse(ByVal x As String) As Variant
　Dim sc As Object
　Set sc = CreateObject("ScriptControl")
　With sc
　　.Language = "JScript"
　　.AddCode "function getValue(){ return eval('e[""B""]'); }" '【変更箇所】
　　.AddCode "var e = eval(" & x & ");"
　End With
　Set json_perse = sc
End Function
------------------------------------------------