VB.net解析Json数据(附类库+Demo)

发布时间：2020-12-16 22:18:26 所属栏目：大数据来源：网络整理

导读：今天整理电脑的时候，偶然看到一年前使用Vb.net开发的点餐项目，翻腾翻腾找到了这个东西。记得当时使用Vb.net做了一个服务器，需要对Json数据进行解析。在Android或者C#上有比较成熟的Json解析工具类，在Vb.net上还没有。在国外一家网站上找到的这个类库。

今天整理电脑的时候，偶然看到一年前使用Vb.net开发的点餐项目，翻腾翻腾找到了这个东西。

记得当时使用Vb.net做了一个服务器，需要对Json数据进行解析。在Android或者C#上有比较成熟的Json解析工具类，在Vb.net上还没有。在国外一家网站上找到的这个类库。现在整理出来，供有需要的人使用。

这个类库仅支持ObjectToString，StringToObject简单的转换，在此基础上我进行了扩展，让其支持Object[]到JsonString的相互转换。这两个方法在文章最后给出（注：这两个方法没有编译到类库中，可以自己根据源码编译进去）。

需要注意一点：如果类的属性包含日期类型Date，该类库会抛出NotImplementedException错误，因为Json标准里没有定义Date类型。

日期格式转为字符串处理即可（我是这么处理的）。

先来介绍一下这个类库的使用方法。

ObjectToString 方法实例：

Imports PW.JSON

Module Module1

  Class Prova

    Private _id As Integer
    Private _name As String
    Private _valido As Boolean
    Private _subObject As Prova
    Private _numero As Integer
    Private _numeroDec As Double
    Private _array() As String

    Public Property ID() As Integer
      Get
        Return _id
      End Get
      Set(ByVal value As Integer)
        _id = value
      End Set
    End Property

    Public Property Name() As String
      Get
        Return _name
      End Get
      Set(ByVal value As String)
        _name = value
      End Set
    End Property

    Public Property Valido() As Boolean
      Get
        Return _valido
      End Get
      Set(ByVal value As Boolean)
        _valido = value
      End Set
    End Property

    Public Property SubObject() As Prova
      Get
        Return _subObject
      End Get
      Set(ByVal value As Prova)
        _subObject = value
      End Set
    End Property

    Public Property NumeroDec() As Double
      Get
        Return _numeroDec
      End Get
      Set(ByVal value As Double)
        _numeroDec = value
      End Set
    End Property

    Public Property Array() As String()
      Get
        Return _array
      End Get
      Set(ByVal value As String())
        _array = value
      End Set
    End Property

    Public Sub New(ByVal ID As Integer,ByVal Name As String)
      _id = ID
      _name = Name
    End Sub

    Public Function SomeMethod() As String
      Return "Method: " & _id
    End Function

  End Class

Sub Main()
    Dim objprova As New Prova(1,"Nome Object")
    objprova.Array = Split("A E I O U")
    objprova.NumeroDec = 100.34
    objprova.SubObject = New Prova(2,"Nome - SubObject")
    objprova.Valido = True
    Console.WriteLine(PW.JSON.JSONHelper.ObjectToString(objprova))
    Console.ReadLine()
 
End Sub
End Module

打印结果为：

{"NumeroDec": 100.34,"Name": "Nome Object","Array": ["A","E","I","O","U"],"SubObject": {"NumeroDec": 0,"Name": "Nome - SubObject","Array": null,"SubObject": null,"Valido": false,"ID": 2},"Valido": true,"ID": 1}

StringToObject方法实例：

Sub Main()

Dim strJSON As String = "{""NumeroDec"": 100.34,""Name"": ""Nome Object""," & _
                        " ""Array"": [""A"",""E"",""I"",""O"",""U""]," & _
                        " ""SubObject"": {""NumeroDec"": 0,""Name"": ""Nome - SubObject""," & _
                        " ""Array"": null,""SubObject"": null,""Valido"": false,""ID"": 2}," & _
                        " ""Valido"": true,""ID"": 1}"

Dim objprova As Prova
objprova = PW.JSON.JSONHelper.StringToObject(strJSON,GetType(Prova))

Console.WriteLine(objprova.Name)
Console.WriteLine(objprova.SubObject.Name)
Console.ReadLine()
 
End Sub

结果为：

Nome Object

Nome - SubObject

下面是我扩展的ObjectListToString() 方法，思路很简单，循环调用ObjectToString，拼接成[{},{},{}……]形式：

''' <summary>
    ''' 将对象数组拼装成json字符串
    ''' </summary>
    ''' <param name="objectList"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ObjectListToString(ByVal objectList As List(Of Object))
        Dim stringBuilder As New String("")

        stringBuilder += "["
        For Each entity As Object In objectList
            stringBuilder += PW.JSON.JSONHelper.ObjectToString(entity) + ","
        Next
        stringBuilder = stringBuilder.Substring(0,stringBuilder.LastIndexOf(","))
        stringBuilder += "]"
        Return stringBuilder
    End Function

下面是我扩展的StringToObject()方法，思路就是对[{},{}……]进行拆分，去掉首尾的“[”，“]”后，添加逗号“,” ，然后按照“},”进行拆分即可。

    ''' <summary>
    ''' 将Json格式的数据解析成Object
    ''' </summary>
    ''' <param name="jsonData">包含点菜信息的json数据</param>
    ''' <param name="_classType">转化成sellLogDetail类</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function StringToObjectList(ByVal jsonData As String,ByVal _classType As Type)

        '传过来的字符串是“[{ },{ },{ }]”,去掉最后面的“]”,加上一个“,”,这样可以按“},”进行拆分
        Dim adatperString = jsonData.Substring(0,jsonData.LastIndexOf("}") + 1) + ","
        '然后按“{”拆分成数组
        Dim str As String() = adatperString.Split("{")
        Dim list As New List(Of SellLogDetail)
        For index = 1 To str.Length - 1
            If (str(index).EndsWith("},")) Then
                '拼装成一个完整的json数据
                Dim strData As String = "{" + str(index).Substring(0,str(index).Length - 1)
                'MsgBox(strData)

                Dim detail As New SellLogDetail
                Try
                    '转化成对象SellLogDetail
                    detail = PW.JSON.JSONHelper.StringToObject(strData,GetType(SellLogDetail))
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try

                list.Add(detail)
            End If
        Next
        '返回列表
        Return list
    End Function

附类库+demo

点我下载

原文链接： http://www.67tgb.com/?p=511

欢迎访问：望月听涛

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!