vb.net 教程 4-11 Json文件操作 2 JavaScriptSerializer

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

使用JavaScriptSerializer生成和解析json：

设计界面：

其中button1和button3是生成，button2和button4是解析。

项目目标框架选择.net Framework 4.5，添加对system.web.extensions的引用，同时代码中添加：

Imports System.Web.Script.Serialization

当button1按下时，生成json格式的字符串：

    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 JavaScriptSerializer

        Dim strNewBook As String
        strNewBook = serializer.Serialize(newbooks)
        TextBox1.Text = strNewBook

    End Sub

当button2按下时将json字符串解析为类：

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim serializer As New JavaScriptSerializer
        Dim strNewBook As String = TextBox1.Text

        Dim newBooks As New Books
        newBooks = serializer.Deserialize(Of Books)(strNewBook)

        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

生成和解析结果：

在对json字符串进行解析时，设置的类的属性名称请务必与json代码中的键名称相同。

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 JavaScriptSerializer

        Dim strNewBook As String
        strNewBook = serializer.Serialize(newBooks)
        TextBox1.Text = strNewBook
    End Sub

button4解析：

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim serializer As New JavaScriptSerializer
        Dim strNewBook As String = TextBox1.Text

        Dim newBooks As New Books1
        newBooks = serializer.Deserialize(Of Books1)(strNewBook)

        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 教程 目录