0

我有一个看起来像这样的 JSON 对象。

{
 "Errors":{
   "err1":[
     //* Array of err1 objects
   ],
   "err2":[
     //* Array of err2 objects
   ]
 }
}

我使用此对象报告在对 PHP 页面的请求中发现的错误。

我想将该对象转换为基本上像这样声明的 vb.Net 对象：

Public Class WebErrContainer
  Public Errors as List(Of IWebError)
End Class

Public Class Err1
  Implements IWebError
End Class

Public Class Err2
  Implements IWebError
End Class

Public Interface IWebError
End Interface

我不知道我的实现是否足够好，我对 vb.net 比较陌生，所以我现在在 OOP 方面的技能有点低。

就是这样......我想我已经尽可能地解释了情况。

如果您需要更多信息，我会提供。

提前感谢您提供的任何帮助。谢谢。

PD：我目前正在使用 Newtonsoft 的 JSON.Net 库。随意推荐一些其他库或方法来处理 VB.NET 中的 JSON。

我通过这样做解决了这种情况：

Public Sub New(ByVal jsonText As String)
    Dim jObject As JObject = jObject.Parse(jsonText )
    Dim jErrors As JToken = jObject("Errors")
    Dim jS = New JsonSerializer()

    ' This is the "temporal" dictionary that stores the errors like they are 
    ' stored in JSON
    Dim jsErrs As New Dictionary(Of String, List(Of Object))

    ' List that is going to be passed to the "Errors" field in the class
    Dim lErrors As New List(Of IWebError)



    jsErrs = jS.Deserialize(New JTokenReader(jErrors ), jsErrs .GetType)
    If Not jsErrs Is Nothing Then
        For Each errType As KeyValuePair(Of String, List(Of Object)) In jsErrs 
            For Each Err As Object In errType.Value
                lErrors .Add(jS.Deserialize(New JTokenReader(Err), Type.GetType(errType.Key)))
            Next
        Next
    End If
    Me.Errors = lErrors
End Sub
4

3 回答 3

1

可能最简单的解决方案是制作一个基于andErrors计算的只读属性：Err1Err2

Public Class WebErrContainer
  Public Readonly Property Errors as List(Of IWebError)
    Get
      Return (Ctype(Err1, IEnumerable(Of IWebError))).Concat(Err2).ToList
    End Get
  End Property

  Public Err1 as List(Of Err1)
  Public Err2 as List(Of Err2)
End Class
于 2012-04-05T07:05:46.353 回答
1

您可以使用 Deserialize 自动为您执行此操作，还是发生了一些奇怪的事情。我用过 Newtsonsoft，我是这样做的（在 c# 中）

JsonConvert.DeserializeObject(Of MyJsonFromPHP)(jsonResponseText)

Public Class MyJsonFromPHP
     Public Property Errors as ErrorCollection
End Class

Public Class ErrorCollection
    Public Property err1 As List(Of Err1)
    Public Property err2 As List(Of Err2)
End Class

Public Class Err1
    Public Property code as Integer
    Public Property message as String
End Class
于 2012-04-11T10:25:15.847 回答
0

我想这可能会对你有所帮助。这里 strJSON 是你的 JSON 字符串

Dim jsS As New JavaScriptSerializer : objPostData = jsS.DeserializeObject(strJSON)

之后你可以像这样迭代

For Each objTop As Object In objPostData
                objDic = CType(objTop, Generic.Dictionary(Of String, Object))
                dim strError  as string = objDic.Item("Errors")
Next

如果你还想要什么，请告诉我

于 2012-04-05T07:20:53.273 回答