[按键精灵] 纯文本查看 复制代码 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 |