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

设计界面和控件功能同上一节，只是换了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
生成的结果同上一节。