Dim
json, table
json =
Element.
GetAllInJson()
TracePrint
json
table =
Encode.
JsonToTable
(json)
Call
遍历table(table)
Function
遍历table(table)
For
Each
k, v
In
table
If
k =
"children"
Then
For
Each
k2, v2
In
v
遍历table(v2)
Next
Else
TracePrint
k &
":"
&
CStr
(v)
End
If
Next
End
Function