1.6 ArrayListとDictionaryのシリアライズ化

1.6 ArrayListとDictionaryのシリアライズ化

ArrayList/Dictionary でシリアライズ化（JSON形式）に変換が可能です。

JSON で言う Aray = ArrayList, Object = Dictionary で作成後、ToString メソッドで変換してください。 双方でネストが可能です。

Sub Serialize_Sample()

    Dim row As IList
    Dim col As IDictionary
    
    Set row = ArrayList.NewInstance()
    
    Set col = Dictionary.NewInstance()
    
    col.Add "Field01", 10
    col.Add "Field02", 20
    col.Add "Field03", 30

    row.Add col

    Set col = Dictionary.NewInstance()
    col.Add "Field01", 40
    col.Add "Field02", 50
    col.Add "Field03", 60

    row.Add col
    
    Debug.Print row.ToString

End Sub

実行結果

[{"Field01":10, "Field02":20, "Field03":30}, {"Field01":40, "Field02":50, "Field03":60}]

ヒント：レジストリへのArrayList/Dictionaryの登録 VBA の SaveSetting などで設定を保存する場合になど、設定内容をそのまま保存可能になります。 https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/savesetting-statement

なお、CSVで保存すればいいじゃないと思われるかもしれませんが、レジストリエディタは改行を含んだ設定の場合問題があるのでJSONが最適だと思います。

レジストリエディタ、改行含んだ値をエクスポートできるがインポートできない。 https://answers.microsoft.com/ja-jp/windows/forum/all/%E3%83%AC%E3%82%B8%E3%82%B9%E3%83%88%E3%83%AA/24f81a3b-2531-4502-9dc7-b1596bc3df25