JSON在线生成VB.NET实体类应用实例-JSON数据解析

办公魔盒

发布于 2019-12-02 13:02:22

2.7K00

代码可运行

文章被收录于专栏：办公魔盒办公魔盒

运行总次数：0

代码可运行

一、JSON实体类在线工具使用教程

1、打开在线工具地址：http://jstovb.vbee.xyz/

2.在主页json数据框中粘贴标准的json数据然后点击”生成VB.NET实体类“按钮，即可生成解析当前JSON的实体类，然后复制即可使用！

3.代码美化工具，可以美化json数据，js代码等!

二、JSON实体类在VB.NET中应用

目前在vb.net中解析json数据方面，最好的类库是Newtonsot类库，再配上json实体类，可以让你在开发中事半功倍！

1.首先要在工程中引用Newtonsoft.dll类库

Imports Newtonsoft.Json

2.新建一个类文件，把转换好的json实体类，粘贴贴在新的类中！(这里面是一张发票的json数据以此为例)

Public Class CommodityTaxRateItem

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property word As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property row As string

End Class

Public Class CommodityAmountItem

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property word As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property row As string

End Class


Public Class CommodityTaxItem

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property word As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property row As string

End Class

Public Class CommodityNumItem

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property word As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property row As string

End Class

Public Class CommodityUnitItem

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property word As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property row As string

End Class

Public Class CommodityPriceItem

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property word As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property row As string

End Class


Public Class CommodityNameItem

    ''' <summary>
    ''' 信息服务费
    ''' </summary>
    ''' <returns></returns>
    Public Property word As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property row As string

End Class


Public Class CommodityTypeItem

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property word As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property row As string

End Class


Public Class Words_result

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property InvoiceNum As string

    ''' <summary>
    ''' 上海易火广告传媒有限公司
    ''' </summary>
    ''' <returns></returns>
    Public Property SellerName As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property CommodityTaxRate As List(Of CommodityTaxRateItem)

    ''' <summary>
    ''' 中国银行南翔支行446863841354
    ''' </summary>
    ''' <returns></returns>
    Public Property SellerBank As string

    ''' <summary>
    ''' :沈园园
    ''' </summary>
    ''' <returns></returns>
    Public Property Checker As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property TotalAmount As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property CommodityAmount As List(Of CommodityAmountItem)

    ''' <summary>
    ''' 2016年06月02日
    ''' </summary>
    ''' <returns></returns>
    Public Property InvoiceDate As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property CommodityTax As List(Of CommodityTaxItem)

    ''' <summary>
    ''' 百度时代网络技术(北京)有限公司
    ''' </summary>
    ''' <returns></returns>
    Public Property PurchaserName As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property CommodityNum As List(Of CommodityNumItem)

    ''' <summary>
    ''' 招商银行北京分行大屯路支行8661820285100030
    ''' </summary>
    ''' <returns></returns>
    Public Property PurchaserBank As string

    ''' <summary>
    ''' 告传
    ''' </summary>
    ''' <returns></returns>
    Public Property Remarks As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property Password As string

    ''' <summary>
    ''' :嘉定区胜辛南路500号15幢1161室55033753
    ''' </summary>
    ''' <returns></returns>
    Public Property SellerAddress As string

    ''' <summary>
    ''' 北京市海淀区东北旺西路8号中关村软件园17号楼二属A2010-59108001
    ''' </summary>
    ''' <returns></returns>
    Public Property PurchaserAddress As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property InvoiceCode As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property CommodityUnit As List(Of CommodityUnitItem)

    ''' <summary>
    ''' :徐蓉
    ''' </summary>
    ''' <returns></returns>
    Public Property Payee As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property PurchaserRegisterNum As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property CommodityPrice As List(Of CommodityPriceItem)

    ''' <summary>
    ''' 沈园园
    ''' </summary>
    ''' <returns></returns>
    Public Property NoteDrawer As string

    ''' <summary>
    ''' 壹拾万圆整
    ''' </summary>
    ''' <returns></returns>
    Public Property AmountInWords As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property AmountInFiguers As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property TotalTax As string

    ''' <summary>
    ''' 专用发票
    ''' </summary>
    ''' <returns></returns>
    Public Property InvoiceType As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property SellerRegisterNum As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property CommodityName As List(Of CommodityNameItem)

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property CommodityType As List(Of CommodityTypeItem)

End Class


Public Class RootObject

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property log_id As string

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property words_result_num As Integer

    ''' <summary>
    '''
    ''' </summary>
    ''' <returns></returns>
    Public Property words_result As Words_result

End Class

3.使用Newtonsot类库结合JSON实体类对JSON数据进行取值操作即可，非常简单！

   Imports Newtonsoft.Json

    Public Class Form1
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim rb As RootObject = JsonConvert.DeserializeObject(Of RootObject)(RichTextBox1.Text)
            Dim ls As List(Of CommodityAmountItem)
            ls = rb.words_result.CommodityAmount
            For Each x In ls
                RichTextBox2.AppendText(x.word & vbCrLf)
            Next
            RichTextBox2.AppendText("log_id:" & rb.log_id.ToString)
        End Sub
    End Class