vb.net 教程 4-11 Json文件操作 3 DataContractJsonSerializer

- 日理万妓 2022-09-10 12:15 188阅读 0赞

设计界面和控件功能同上一节，只是换了DataContractJsonSerializer来生成和解析json。  
使用.net  framework 4.5框架，不用专门再去引用system.web.extensions，直接在代码中

Imports System.Runtime.Serialization.Json  
由于还要使用到内存流，所以还需要：

Imports System.IO

button1生成：

Private Sub Button1\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
        Dim newbooks As New Books  
   
        Dim newBook As New BookStore  
        Dim newSingleBook As New Book  
        newSingleBook.Title = "这是测试"  
        newSingleBook.Author = "作者"  
        newSingleBook.Country = "中国"  
        newSingleBook.Price = 10.2  
        newSingleBook.Year = "1985"  
        newBook.book = newSingleBook  
        newbooks.bookstore = newBook  
   
        Dim serializer As New DataContractJsonSerializer(GetType(Books))  
        Dim ms As New MemoryStream()  
        serializer.WriteObject(ms, newbooks)  
        Dim json() As Byte  
        json = ms.ToArray  
        ms.Close()  
   
        Dim strNewBook As String = System.Text.Encoding.UTF8.GetString(json)  
   
        TextBox1.Text = strNewBook  
    End Sub  
button2解析：

Private Sub Button2\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
        Dim strNewBook As String = TextBox1.Text  
   
        Dim newbooks As New Books  
   
        Dim serializer As New DataContractJsonSerializer(GetType(Books))  
   
        Dim bteNewBook() As Byte  
        bteNewBook = System.Text.Encoding.UTF8.GetBytes(strNewBook)  
   
        Dim ms As MemoryStream  
        ms = New MemoryStream(bteNewBook) '  
   
        newbooks = serializer.ReadObject(ms)  
   
        TextBox2.Text &= "---------------" & ControlChars.CrLf  
        TextBox2.Text &= "Title：" & newbooks.bookstore.book.Title & ControlChars.CrLf  
        TextBox2.Text &= "Author：" & newbooks.bookstore.book.Author & ControlChars.CrLf  
        TextBox2.Text &= "Country：" & newbooks.bookstore.book.Country & ControlChars.CrLf  
        TextBox2.Text &= "Price：" & newbooks.bookstore.book.Price & ControlChars.CrLf  
        TextBox2.Text &= "Year：" & newbooks.bookstore.book.Year & ControlChars.CrLf  
    End Sub  
button3生成：

Private Sub Button3\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
        Dim newBooks As New Books1  
        ReDim newBooks.bookstore(2)  
   
        Dim newSingleBook As New Book  
        newSingleBook.Title = "这是测试"  
        newSingleBook.Author = "作者"  
        newSingleBook.Country = "中国"  
        newSingleBook.Price = 10  
        newSingleBook.Year = "1985"  
   
        Dim newBook As New BookStore1  
        newBook.book = newSingleBook  
        newBooks.bookstore(0) = newBook  
   
        newSingleBook = New Book  
        newSingleBook.Title = "这是测试1"  
        newSingleBook.Author = "作者"  
        newSingleBook.Country = "中国"  
        newSingleBook.Price = 11  
        newSingleBook.Year = "1985"  
   
        newBook = New BookStore1  
        newBook.book = newSingleBook  
        newBooks.bookstore(1) = newBook  
   
   
        newSingleBook = New Book  
        newSingleBook.Title = "这是测试2"  
        newSingleBook.Author = "作者"  
        newSingleBook.Country = "中国"  
        newSingleBook.Price = 12  
        newSingleBook.Year = "1985"  
   
        newBook = New BookStore1  
        newBook.book = newSingleBook  
        newBooks.bookstore(2) = newBook  
   
   
   
        Dim serializer As New DataContractJsonSerializer(GetType(Books1))  
        Dim ms As New MemoryStream()  
        serializer.WriteObject(ms, newBooks)  
        Dim json() As Byte  
        json = ms.ToArray  
        ms.Close()  
   
        Dim strNewBook As String = System.Text.Encoding.UTF8.GetString(json)  
   
        TextBox1.Text = strNewBook  
    End Sub  
button4解析：

Private Sub Button4\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click  
        Dim strNewBook As String = TextBox1.Text  
   
        Dim newbooks As New Books1  
   
        Dim serializer As New DataContractJsonSerializer(GetType(Books1))  
   
        Dim bteNewBook() As Byte  
        bteNewBook = System.Text.Encoding.UTF8.GetBytes(strNewBook)  
   
        Dim ms As MemoryStream  
        ms = New MemoryStream(bteNewBook) '  
   
        newbooks = serializer.ReadObject(ms)  
   
        For i As Integer = 0 To newbooks.bookstore.Length - 1  
            TextBox2.Text &= "---------------" & ControlChars.CrLf  
            TextBox2.Text &= "Title：" & newbooks.bookstore(i).book.Title & ControlChars.CrLf  
            TextBox2.Text &= "Author：" & newbooks.bookstore(i).book.Author & ControlChars.CrLf  
            TextBox2.Text &= "Country：" & newbooks.bookstore(i).book.Country & ControlChars.CrLf  
            TextBox2.Text &= "Price：" & newbooks.bookstore(i).book.Price & ControlChars.CrLf  
            TextBox2.Text &= "Year：" & newbooks.bookstore(i).book.Year & ControlChars.CrLf  
        Next  
    End Sub  
生成的结果同上一节。

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参看[vb.net教程][vb.net]目录

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721