コメント
コメントの投稿
※名前とタイトルが入力されていないコメントでは他のコメントとの区別ができません。
入力されていないコメントには返信しませんのであらかじめご了承くださいませ。
Imports System.Runtime.Serialization
<DataContract()>
Public Class Customer
<DataMember()>
Public Property Id As Integer = 0
<DataMember()>
Public Property Name As String = String.Empty
<DataMember()>
Public Property Age As Integer = 0
<DataMember()>
Public Property Gender As Integer = 0
End Class
Imports System.Runtime.Serialization.Json
Public Class JsonUtility
''' <summary>
''' オブジェクトをJSON文字列に変換する
''' </summary>
''' <param name="obj">変換するオブジェクト型</param>
''' <returns>変換後のJSON文字列</returns>
''' <remarks></remarks>
Public Shared Function GetJson(ByVal obj As Object) As String
'JSON文字列にシリアライズ
Dim tp As Type = obj.GetType
Dim result As String = String.Empty
Dim serializer As New DataContractJsonSerializer(tp)
Using stream As New IO.MemoryStream()
Using sr As New IO.StreamReader(stream)
serializer.WriteObject(stream, obj)
stream.Position = 0
result = sr.ReadToEnd
End Using
End Using
Return result
End Function
End Class
Private Sub btnReadInstance_Click(sender As Object, e As EventArgs) Handles btnReadXml.Click
Dim entity As New Customer()
entity.Id = 1
entity.Name = "名前1"
entity.Age = 10
entity.Gender = 1
Dim json As String = JsonUtility.GetJson(entity)
Console.WriteLine(json)
End Sub
※名前とタイトルが入力されていないコメントでは他のコメントとの区別ができません。
入力されていないコメントには返信しませんのであらかじめご了承くださいませ。