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

当前位置:

首页 > 编程开发 > VBScript >

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

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

End Sub

生成的结果同上一节。

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

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

————————————————

原文链接：https://blog.csdn.net/uruseibest/article/details/79243953

栏目列表