0

我总是得到错误：

无法将当前 JSON 对象（例如 {"name":"value"}）反序列化为类型 'System.Collections.Generic.List`1[Test.Form15+results[]]'，因为该类型需要 JSON 数组（例如 [ 1,2,3]) 正确反序列化。

要修复此错误，请将 JSON 更改为 JSON 数组（例如 [1,2,3]）或更改反序列化类型，使其成为普通的 .NET 类型（例如，不是像整数这样的原始类型，而不是像这样的集合类型可以从 JSON 对象反序列化的数组或列表。JsonObjectAttribute 也可以添加到类型中以强制它从 JSON 对象反序列化。

路径“结果”，第 1 行，位置 10。

我的代码如下，我不确定是双引号引起的问题，还是 json 字符串开头的括号。任何提示将不胜感激。

Public Class Form15

Public Class UTicketContact

    <JsonProperty("display_value")>
    Public Property DisplayValue As String

    <JsonProperty("link")>
    Public Property Link As String
End Class

Public Class URequestedFor

    <JsonProperty("display_value")>
    Public Property DisplayValue As String

    <JsonProperty("link")>
    Public Property Link As String
End Class

Public Class AssignedTo

    <JsonProperty("display_value")>
    Public Property DisplayValue As String

    <JsonProperty("link")>
    Public Property Link As String
End Class

Public Class OpenedBy

    <JsonProperty("display_value")>
    Public Property DisplayValue As String

    <JsonProperty("link")>
    Public Property Link As String
End Class

Public Class AssignmentGroup

    <JsonProperty("display_value")>
    Public Property DisplayValue As String

    <JsonProperty("link")>
    Public Property Link As String
End Class

Public Class Result

    <JsonProperty("u_ticket_contact")>
    Public Property UTicketContact As UTicketContact

    <JsonProperty("u_requested_for")>
    Public Property URequestedFor As URequestedFor

    <JsonProperty("assigned_to")>
    Public Property AssignedTo As AssignedTo

    <JsonProperty("opened_by")>
    Public Property OpenedBy As OpenedBy

    <JsonProperty("assignment_group")>
    Public Property AssignmentGroup As AssignmentGroup
End Class

Public Class results

    <JsonProperty("result")>
    Public Property Result As Result()
End Class


Function FindRequestedFor(ByVal instancename As String,
                          ByVal rtask As String) As String

    Dim requestedfor As String = ""
    'Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)

    Dim accessToken As String = GenerateToken("instancenameredacted",
                                              "clientIdredacted",
                                              "clientSecretredacted",
                                              "accountredacted",
                                              "accountpasswordredacted")

    Dim url As String = "https://" & instancename & ".service-now.com/api/ubis2/request/rtask?query=number%3D" & rtask

    Dim request As WebRequest = WebRequest.Create(url)
    Dim dataStream As Stream

    request.ContentType = "application/json; charset=utf-8"
    request.Method = "GET"
    request.Headers.Add("Authorization", "Bearer " & accessToken)
    dataStream = request.GetResponse.GetResponseStream

    Dim reader As New StreamReader(dataStream)
    Dim responseFromServer As String = reader.ReadToEnd
'Format of the JSON string is:     ""{
  ""result"": [
    {
      ""u_ticket_contact"": {
        ""display_value"": ""Name1"",
        ""link"": ""https://instance.service-now.com/api/now/table/sys_user/470104cf600ad400808370bee6ad2596""
      },
      ""u_requested_for"": {
        ""display_value"": ""Name2"",
        ""link"": ""https://instance.service-now.com/api/now/table/sys_user/470104cf600ad400808370bee6ad2596""
      }, 
      ""assigned_to"": {
        ""display_value"": ""Name3"",
        ""link"": ""https://instance.service-now.com/api/now/table/sys_user/98c7a3e5ac723040773cf2044a10de0c""
      },
      ""opened_by"": {
        ""display_value"": ""Name4"",
        ""link"": ""https://instance.service-now.com/api/now/table/sys_user/470104cf600ad400808370bee6ad2596""
      },
      ""assignment_group"": {
        ""display_value"": ""Group Name1"",
        ""link"": ""https://instance.service-now.com/api/now/table/sys_user_group/bad979fa19c44a40b5a0d99e2b982e75""
      }
    }
  ]
}""
    Console.WriteLine(responseFromServer)

    reader.Close()
    dataStream.Close()

    Dim test = JsonConvert.DeserializeObject(Of List(Of results()))(responseFromServer)
End Function
end class
4

1 回答 1

0

我将使用List(Of Result)带有初始化的类型，如下所示：

Public Class results
    <JsonProperty("result")>
    Public Property Result As New List(Of Result)
End Class
于 2017-09-22T00:13:44.620 回答