Question

我总是得到错误：

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

要修复此错误，请将JSON更改为JSON数组（例如[1,2,3]）或更改反序列化类型，使其成为普通的.NET类型（例如，不是像整数这样的基本类型，而不是可以从JSON对象反序列化的集合类型，如数组或List）。 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

Answer 1

我会使用List(Of Result)类型进行初始化，如下所示：

Public Class results
    <JsonProperty("result")>
    Public Property Result As New List(Of Result)
End Class

反序列化此JSON字符串

1 个答案: