根据字符串参数选择 Json 属性

Question

我正在使用 Json.net，以下是我的 JsonResponse 类

Imports Newtonsoft.Json
Imports AustinHarris.JsonRpc
Public Class JsonResponse
    Inherits AustinHarris.JsonRpc.JsonResponse
    <JsonProperty(PropertyName:="token")> Public Property token As String
    <JsonProperty(PropertyName:="product")> Public Property product As String
    <JsonProperty(PropertyName:="status")> Public Property status As String
End Class

如您所见，我的 Json 对象有一些额外的自定义属性。我正在使用以下代码来创建我的 Json 对象。

jsonrpc_response = JsonConvert.DeserializeObject(Of JsonResponse)(json_string)

最后，我有一个 JsonObject，其属性为令牌、产品和状态。现在我想做的是使用字符串作为参数访问这些属性，例如

MsgBox ("This is my token: " & jsonrpc_response("token"))
MsgBox ("This is my product: " & jsonrpc_response("product"))

但是，这不起作用，因为无法以这种方式访问这些属性。如何基于字符串作为属性名称参数访问属性？

Answer 1

我找到了一个解决方案，以下添加到 JsonResponse 类的功能非常完美！

Public Function GetPropValue(src As Object, propName As String) As Object
        Return src.[GetType]().GetProperty(propName).GetValue(src, Nothing)
End Function

因此

MsgBox("This is my token: " & jsonrpc_response.GetPropValue(jsonrpc_response, "token"))