So-net無料ブログ作成

Jsonファイルの読込み、書込み [VB.NET]

データを保存したり、マスターデータを読み込んだりしたいときは
CSVでデータファイルを作っていたのを、Jsonファイルにしてみた。

Jsonファイルの読み書きは、DataContractJsonSerializerを使用すれば簡単に使える。
Jsonファイルの内容をクラスとして扱える(シリアル化、逆シリアル化)ようになる。
使用するには、参照で System.Runtime.Serialization を追加する。

Dim trend As New TrendGroup

'TrendGroup.jsonを読み込んで、TrendGroupクラスにデータを格納する。
Util.ReadJson(Of TrendGroup)("C:\TrendGroup.json", trend)

'何か処理

'TrendGroupクラスのデータをTrendGroup.jsonに保存する。
Util.WriteJson(Of TrendGroup)("C:\TrendGroup.json", trend)

ファイル名:Util.vb
Imports System.Runtime.Serialization.Json

Public Class Util

    ''' <summary>
    ''' JSONファイルの書込
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="path"></param>
    ''' <param name="target"></param>
    ''' <returns></returns>
    Public Shared Function WriteJson(Of T)(path As String, ByRef target As T) As Boolean

        Dim encUTF8 As System.Text.Encoding = New System.Text.UTF8Encoding(False)
        Dim resValue As Boolean = True
        Dim memory As New IO.MemoryStream
        Try
            'クラスのデータをJSON形式に変換(シリアル化)
            Dim serializer As New DataContractJsonSerializer(GetType(T))
            serializer.WriteObject(memory, target)
            Dim json As String = encUTF8.GetString(memory.ToArray())
            'データの書込
            Dim writer As New IO.StreamWriter(path, False, encUTF8)
            Try
                writer.Write(json)
            Catch ex As Exception
                resValue = False
            Finally
                writer.Close()
            End Try
        Catch ex As Exception
            resValue = False
        Finally
            memory.Close()
        End Try

        Return resValue

    End Function

    ''' <summary>
    ''' JSONファイルの読込
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="path"></param>
    ''' <param name="target"></param>
    ''' <returns></returns>
    Public Shared Function ReadJson(Of T)(ByVal path As String, ByRef target As T) As Boolean

        Dim encUTF8 As System.Text.Encoding = New System.Text.UTF8Encoding(False)
        Dim resValue As Boolean = True
        Dim reader As New IO.StreamReader(path, encUTF8)
        Try
            'データの読込
            Dim json As String = reader.ReadToEnd()
            Dim memory As New IO.MemoryStream(encUTF8.GetBytes(json))
            Try
                'JSON形式のデータをクラスに変換(逆シリアル化)
                Dim serializer As New DataContractJsonSerializer(GetType(T))
                target = DirectCast(serializer.ReadObject(memory), T)
            Catch ex As Exception
                resValue = False
            Finally
                memory.Close()
            End Try
        Catch ex As Exception
            resValue = False
        Finally
            reader.Close()
        End Try

        Return resValue

    End Function

End Class


Order:=0とか付けておくと、保存したときにOrderの順番で保存される。
付けないとアルファベット順に保存される。(順番は読み書きするには問題ないけど)
ファイル名:TrendGroup.vb
Imports System.Runtime.Serialization.Json

<DataContract()>
Public Class TrendGroup

    <DataContract()>
    Public Class Axis
        <DataMember(Order:=0)> Public Property Minimum As Double
        <DataMember(Order:=1)> Public Property Maximum As Double
        <DataMember(Order:=2)> Public Property Interval As Double
    End Class

    <DataContract()>
    Public Class Trend
        <DataMember(Order:=0)> Public Property TrendNo As Integer
        <DataMember(Order:=1)> Public Property AxisType As Integer
        <DataMember(Order:=2)> Public Property LineColor As Integer
    End Class

    <DataContract()>
    Public Class Member
        <DataMember(Order:=0)> Public Property GroupNo As Integer
        <DataMember(Order:=1)> Public Property GroupName As String
        <DataMember(Order:=2)> Public Property Axis1 As Axis
        <DataMember(Order:=3)> Public Property Axis2 As Axis
        <DataMember(Order:=4)> Public Property Trend As Trend()
    End Class

    <DataMember(Order:=0)> Public Property TrendGroup As Member()

End Class


Jsonファイルを書き込むと、整形しないと見づらくなるので整形用ツールを用意しておくと便利。
Jsonファイルは、UTF-8(BOMなし)で保存する。
ファイル名:TrendGroup.json
{
    "TrendGroup": [
        {
            "GroupNo": 1,
            "GroupName": "グループNo1",
            "Axis1": {
                "Minimum": -30,
                "Maximum": 30,
                "Interval": 5
            },
            "Axis2": {
                "Minimum": 0,
                "Maximum": 100,
                "Interval": 5
            },
            "Trend": [
                {
                    "TrendNo": 1,
                    "AxisType": 0,
                    "LineColor": -65536
                },
                {
                    "TrendNo": 2,
                    "AxisType": 0,
                    "LineColor": -23296
                },
                {
                    "TrendNo": 3,
                    "AxisType": 1,
                    "LineColor": -256
                }
            ]
        },
        {
            "GroupNo": 2,
            "GroupName": "グループNo2",
            "Axis1": {
                "Minimum": 0,
                "Maximum": 60,
                "Interval": 5
            },
            "Axis2": {
                "Minimum": 0,
                "Maximum": 100,
                "Interval": 5
            },
            "Trend": [
                {
                    "TrendNo": 4,
                    "AxisType": 0,
                    "LineColor": -65536
                },
                {
                    "TrendNo": 5,
                    "AxisType": 0,
                    "LineColor": -23296
                },
                {
                    "TrendNo": 6,
                    "AxisType": 1,
                    "LineColor": -256
                }
            ]
        }
    ]
}

nice!(0)  コメント(0)  トラックバック(0) 

nice! 0

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0