:::info 并不是很通用，但很多地方会有此用法，如下代码就很神奇了，哈哈哈哈哈 :::

    1. /// Description: 多维数组转为List, 只能循环最后一个节点
    2. /// Input:         pMultiData 多维数组数据, 如 aaa("cat",1)=222
    3. ///              pNode(不允许为空) 节点位置, 第一级节点为要循环的, 则不给值
    4. /// Debug:           w $lts(##class(PHA.COM.Util).Multi2List(.aaa, "a", "b", "c"), "^")
    5. ClassMethod Multi2List(ByRef pMultiData, pNode...)
    6. {
    7.     s ret = ""
    9.     s index = ""
    10.     if ($g(pNode) = ""){
    11.         for {
    12.             s index = $o(pMultiData(index), 1, data)
    13.             q:(index = "")
    14.             d SetMulti2List
    15.         }
    16.     }
    17.     if (pNode = 1){
    18.         for {
    19.             s index = $o(pMultiData(pNode(1), index), 1, data)
    20.             q:(index = "")
    21.             d SetMulti2List
    22.         }
    23.     }
    24.     if (pNode = 2){
    25.         for {
    26.             s index = $o(pMultiData(pNode(1), pNode(2), index), 1, data)
    27.             q:(index = "")
    28.             d SetMulti2List
    29.         }
    30.     }
    31.     if (pNode = 3){
    32.         for {
    33.             s index = $o(pMultiData(pNode(1), pNode(2), pNode(3), index), 1, data)
    34.             q:(index = "")
    35.             d SetMulti2List
    36.         }
    37.     }
    38.     if (pNode = 4){
    39.         for {
    40.             s index = $o(pMultiData(pNode(1), pNode(2), pNode(3), pNode(4), index), 1, data)
    41.             q:(index = "")
    42.             d SetMulti2List
    43.         }
    44.     }
    45.     if (pNode = 5){
    46.         for {
    47.             s index = $o(pMultiData(pNode(1), pNode(2), pNode(3), pNode(4), pNode(5), index), 1, data)
    48.             q:(index = "")
    49.             d SetMulti2List
    50.         }
    51.     }
    53.     q ret
    54. SetMulti2List
    55.     q:(index = "")
    56.     s ret = ret _ $lb(data)
    57.     q
    58. }
    DHC-APP>zw calcData
calcData("a","b",1)="yyy"
calcData("a","b",2)="hhh"
calcData("a","b",3)="bbb"
calcData("a","c",2)="XXX"

DHC-APP>w $lts(##class(PHA.COM.Util).Multi2List(.calcData, "a", "b"), "^")
yyy^hhh^bbb