VB で inspect
デバッグの補助用にこんな関数を作ったんだけど。
Eval はローカル変数を参照してくれないみたい。
いい方法あったら誰か教えてください。
'-----------------------------------------------------------------------------
' @brief 変数の値を示す文字列を返す
' @ident 識別子名（文字列）
'-----------------------------------------------------------------------------
Function Inspect(ByVal ident)
Dim value
value = Eval(ident)
Inspect = ident & "=" & value
End Function
a = 123
MsgBox Inspect("a") ' OK: a=123
Function Moge()
b = "moge"
ib = Inspect("b") ' NG: b=
End Function
Moge()
