zoukankan      html  css  js  c++  java
  • vb.net操作josn

    Imports System.Runtime.Serialization.Json
    Imports System.IO
    
    Partial Class _Default
        Inherits System.Web.UI.Page
    
        Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim strTest As String
            strTest = "{""name"":""Peggy"",""email"":""peggy@gmail.com""}"
    
            'Button1.Attributes.Add("onclick", "json(" & strTest & ")")
            Dim mytest As Test
            mytest = FromJosnT(Of Test)(strTest)
            Response.Write(mytest.name & " " & mytest.email)
        End Sub
    
        Public Function FromJosn(ByVal josn As String) As Object
            Dim ds As DataContractJsonSerializer = New DataContractJsonSerializer(GetType(Test))
            Dim ms As MemoryStream = New MemoryStream(System.Text.Encoding.UTF8.GetBytes(josn))
            Return ds.ReadObject(ms)
        End Function
    
        Public Function ToJosnT(Of T)(ByVal myT As T) As String
            Dim ds = New DataContractJsonSerializer(GetType(T))
            Dim ms = New MemoryStream()
            ds.WriteObject(ms, myT)
    
            Dim strReturn As String
            strReturn = Encoding.UTF8.GetString(ms.ToArray())
            ms.Close()
            Return strReturn
        End Function
    
        Public Function FromJosnT(Of T)(ByVal josn As String) As T
            Dim ds As DataContractJsonSerializer = New DataContractJsonSerializer(GetType(T))
            Dim ms As MemoryStream = New MemoryStream(System.Text.Encoding.UTF8.GetBytes(josn))
            Return ds.ReadObject(ms)
        End Function
    
        Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim myTest As New Test()
            myTest.name = "test"
            myTest.email = "adfas@163.com"
    
            Response.Write(ToJosnT(Of Test)(myTest))
        End Sub
    End Class
    
    
    Public Class Test
        Private _name As String
        Public Property name As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
        End Property
    
        Private _email As String
        Public Property email As String
            Get
                Return _email
            End Get
            Set(ByVal value As String)
                _email = value
            End Set
        End Property
    End Class
    

    先把代码贴出来 以后再整理了!!省的自己忘记了

      

  • 相关阅读:
    还记得吗
    PAT A 1065. A+B and C (64bit) (20)
    畅通project(杭电1863)
    cocos2d-x 3.0游戏实例学习笔记《卡牌塔防》第七步---英雄要升级&属性--解析csv配置文件
    热烈祝贺Polymer中文组织站点上线
    具体解释HTML中的window对象和document对象
    oc15--文档安装
    oc14--匿名对象
    oc13--pragma mark
    oc12--对象作为参数
  • 原文地址:https://www.cnblogs.com/allan5204/p/2548688.html
Copyright © 2011-2022 走看看