|
水淼没用过,但是yyjson是下面这么写。要自己写递归循环。
另外这个没有键名的叫 JSON数组 有键名的叫JOSN对象
- <火山程序 类型 = "通常" 版本 = 1 />
- 类 我的主窗口 <公开 基础类 = 窗口 注释 = "样例主窗口" @视窗.布局 = "client_size = "730, 554"">
- {
- 变量 编辑框1 <类型 = 编辑框 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = "45, 30, 616, 480"" 是否允许多行 = 真
- 滚动条 = 纵向滚动条>
- 变量 JSON <类型 = YYJSON只读对象类>
- 方法 我的主窗口_创建完毕 <接收事件 类型 = 整数 注释 = "当本组件及其中所有子组件均被创建完毕后发送此事件.">
- 参数 来源对象 <类型 = 我的主窗口 注释 = "提供事件产生的具体来源对象">
- 参数 标记值 <类型 = 整数 注释 = "用户调用"挂接事件"命令时所提供的"标记值"参数值,非此方式挂接事件则本参数值固定为0.">
- {
- JSON.创建自文件 (取特定目录 (特定目录类型.系统桌面) + "json.txt")
- 数组递归解析 (JSON.到数组 ())
- 返回 (0)
- }
- 方法 数组递归解析
- 参数 参_数组 <类型 = YYJSON只读数组类>
- {
- 变量 计次 <类型 = 整数>
- 参_数组.枚举循环 ()
- {
- 变量 类型 <类型 = YYJSON值类型>
- 类型 = 参_数组.取枚举值 ().取类型 ()
- 变量 局_嵌套对象 <类型 = YYJSON只读对象类>
- 局_嵌套对象 = 参_数组.取成员 (计次)
- 如果 (类型 == YYJSON值类型.数组值)
- {
- 数组递归解析 (局_嵌套对象.到数组 ())
- }
- 否则
- {
- 如果 (是否以文本开头 (局_嵌套对象.到文本 (), "Ci"))
- {
- 编辑框1.加入文本行 (局_嵌套对象.到文本 ())
- }
- }
- 计次 = 计次 + 1
- }
- }
- }
复制代码
|
|