码栈中的字典或map

func test2()
Global $headIndex
Global $headIndex = ObjCreate("Scripting.Dictionary")
$headIndex.ADD("A", 1)
$headIndex.ADD("B", 2)
$headIndex.ADD("C", 3)
j_log($headIndex.Item("A"))
j_log($headIndex.Item("B"))
j_log($headIndex.Item("C"))
EndFunc   ;==>test2


Func showmap($map)
        $keys = $map.keys

        For $i = 0 to UBound($keys) - 1
                j_log($keys[$i] & "," & $map.item($keys[$i]))
        Next

EndFunc   ;==>showmap


代码来自 龙臣旗舰店 2017-4-21 15:41:41  本人只是代为整理