階層構造JSONから目的のキーの値をリストで取得

詳細
カテゴリ: FileMaker Custom Function
参照数: 602

FileMaker 19

式

Let([
json = FileExplorer::treeData
;boolParent = 0
;target = "path"
;childrenKey = "children"
];
GetListFromTreeJson ( json ; boolParent ; target ; childrenKey )
)

階層構造JSON

[
    {
        "label": "000.txt",
        "path": "D:\\000\\000.txt"
    },
    {
        "label": "001",
        "path": "D:\\000\\001",
        "children": [
            {
                "label": "001.txt",
                "path": "D:\\000\\001\\001.txt"
            },
            {
                "label": "002",
                "path": "D:\\000\\001\\002",
                "children": [
                    {
                        "label": "002-1.txt",
                        "path": "D:\\000\\001\\002\\002-1.txt"
                    },
                    {
                        "label": "002-2.txt",
                        "path": "D:\\000\\001\\002\\002-2.txt"
                    },
                    {
                        "label": "002.txt",
                        "path": "D:\\000\\001\\002\\002.txt"
                    },
                    {
                        "label": "003",
                        "path": "D:\\000\\001\\002\\003",
                        "children": [
                            {
                                "label": "003.txt",
                                "path": "D:\\000\\001\\002\\003\\003.txt"
                            }
                        ]
                    }
                ]
            }
        ]
    },
    {
        "label": "001-1",
        "path": "D:\\000\\001-1",
        "children": [
            {
                "label": "001-1.txt",
                "path": "D:\\000\\001-1\\001-1.txt"
            }
        ]
    }
]

 

結果

D:\000\000.txt
D:\000\001\001.txt
D:\000\001\002\002-1.txt
D:\000\001\002\002-2.txt
D:\000\001\002\002.txt
D:\000\001\002\003\003.txt
D:\000\001-1\001-1.txt

 

親も取得

式

Let([
json = FileExplorer::treeData
;boolParent = 1
;target = "path"
;childrenKey = "children"
];
GetListFromTreeJson ( json ; boolParent ; target ; childrenKey )
)

結果

D:\000\000.txt
D:\000\001
D:\000\001\001.txt
D:\000\001\002
D:\000\001\002\002-1.txt
D:\000\001\002\002-2.txt
D:\000\001\002\002.txt
D:\000\001\002\003
D:\000\001\002\003\003.txt
D:\000\001-1
D:\000\001-1\001-1.txt
function(関数):
GetListFromTreeJson ( json ; boolParent ; target ; childrenKey )
formula(式): 

While ( 
    [ 
	~json = json;
	~listKey = JSONListKeys ( ~json ; "" );
	~count = ValueCount ( ~listKey ) ; 
	~data = "";
	~n = 1
    ] ; 
    ~n  ≤  ~count ; 
    [
	~data = List(~data ;
			Let(
			~children =  JSONGetElement ( ~json ; "[" & ~n-1 & "]." & childrenKey )
			;
			If ( ~children ; 
				List( If( boolParent ; JSONGetElement ( ~json ; "[" & ~n-1 & "]."  & target) ) ; GetListFromTreeJson( ~children ; boolParent ; target ; childrenKey )) ; 
				JSONGetElement ( ~json ; "[" & ~n-1 & "]."  & target) )
			)
		);
        ~n = ~n + 1 
    ] ;
    ~data
)