Parser

2.3.34 Parser クラス

Remarks

JSON文字列からオブジェクトをパースするクラスです。
ArrayListやDictionaryからJSONに変換するには各クラスのToStringメソッドで。
このクラスは Staticクラス(Attribute VB_PredeclaredId = True) です。

Dependent

• Message
• StringBuilder
• ArrayList
• Dictionary
• IList
• IDictionary
• INewInstance
• IValueObject
• StringHelper
• Convert
• ICursor
• CharCursor

---

2.3.34.1 ParseJSON(Parser)

Syntax

Set ret = Parser.ParseJSON(strJSON, [obj = Nothing])

Parameters

Name	Required/Optional	Data type	Description
strJSON	必須	String	JSON文字列を指定
obj	省略可	object/Collection	オブジェクト（省略可）省略した場合、Object = Dictionary, Array = ArrayList でパースされます。 JSON文字列がネストされており、復元するオブジェクトを指定したい場合、Collection にインスタンスを設定したものを指定する。

Return Value

Name	Data type	Description
ret	Object	変換後のオブジェクト

Remarks

JSON文字列からDictionary(OrderedDictionary/SortedDictionary) または ArrayList を復元する機能。
ICompatibleProperty(I/F)とINewInstance(I/F)に対応すれば、通常のクラスにも復元可能。

Example

複数指定する場合、Collectionに詰めて指定する

    Dim col As Collection
    Set col = new Collection

    col.Add OrderdDictionary.NewInstance  'ネストの1レベル目に使用されるオブジェクト
    col.Add ArrayList.NewInstance         'ネストの2レベル目に使用されるオブジェクト
    col.Add New CustomPerson      'ネストの3レベル目に使用されるオブジェクト

    Set dic = JSON.ParseJSON(strJSON, col)

単数指定する場合、Collection を用いず直接指定する

    Set dic = JSON.ParseJSON(strJSON, New CustomPerson)

See also

• ArrayList
• Dictionary
• OrderdDictionary
• SortedDictionary

---

2.3.34.2 ParseFromListbox(Parser)

Syntax

Set ret = Parser.ParseFromListbox(objList,[obj = Nothing])

Parameters

Name	Required/Optional	Data type	Description
objList	必須	Object	Parseする ListBox or ComboBox を指定
obj	省略可	Object	レコードに使用するオブジェクトを指定。省略時は Dictionary

Return Value

Name	Data type	Description
ret	Boolean	新しいインスタンス(ArrayList)

Remarks

ListBox/ComboBox パース
ListBox/ComboBoxからArrayList(レコードはDictionary)を生成する。
Tagにレコードを生成するためのフィールド名リスト（カンマ区切り）が必須。
レコードに使用するオブジェクトは INewInstance と ICompatibleProperty を Implements したクラスであること。

Example

    'これはコードではなくプロパティウィンドウで設定しても良い
    lstFavorite.Tag = "No,Name,Address"

    Dim lst As IList
    Set lst = Parser.ParseFromListbox(lstFavorite, New FavoriteBean)

See also

• Parser.CopyToListbox
• Dictionary
• INewInstance
• ICompatibleProperty

---

2.3.34.3 ParseFromListbox(Parser)

Syntax

Set ret = Parser.ParseFromListview(objList,[obj = Nothing])

Parameters

Name	Required/Optional	Data type	Description
objList	必須	Object	Parseする ListBox or ComboBox を指定
obj	省略可	Object	レコードに使用するオブジェクトを指定。省略時は Dictionary

Return Value

Name	Data type	Description
ret	Boolean	新しいインスタンス(ArrayList)

Remarks

ListView/ComboBox パース
ListView/ComboBoxからArrayList(レコードはDictionary)を生成する。
Tagにレコードを生成するためのフィールド名リスト（カンマ区切り）が必須。
レコードに使用するオブジェクトは INewInstance と ICompatibleProperty を Implements したクラスであること。

Example

    'これはコードではなくプロパティウィンドウで設定しても良い
    lstFavorite.Tag = "No,Name,Address"

    Dim lst As IList
    Set lst = Parser.ParseFromListview(lstFavorite, New FavoriteBean)

See also

• Parser.CopyToListbox
• Dictionary
• INewInstance
• ICompatibleProperty

---

2.3.34.4 ParseFromListObject(Parser)

Syntax

Set ret = Parser.ParseFromListObject(objList,[obj = Nothing])

Parameters

Name	Required/Optional	Data type	Description
objList	必須	Listobject	Parseする Listobject を指定
obj	省略可	Object	レコードに使用するオブジェクトを指定。省略時は Dictionary

Return Value

Name	Data type	Description
ret	Boolean	新しいインスタンス(ArrayList)

Remarks

ListObject パース
ListobjectからArrayList(レコードはDictionary)を生成する。
ListObject(テーブル)の列ヘッダの情報が必須
レコードに使用するオブジェクトは INewInstance と ICompatibleProperty を Implements したクラスであること。

Example

Sub ArrayList_ParseFromListObject_Sample()

    Dim lst As IList
    Dim dic As IDictionary
    Dim Key As Variant

    Set lst = Parser.ParseFromListObject(ActiveSheet.ListObjects(1))

    For Each dic In lst

        For Each Key In dic.Keys

            Debug.Print dic.Item(Key)

        Next

    Next

    Dim a As ArrayList

    Set a = lst

    a.CopyToListObject ActiveSheet.ListObjects(2)

End Sub

See also

• Parser.CopyToListObject
• Dictionary
• INewInstance
• ICompatibleProperty