手动递归JSON 模型 未完成 思路

已注销41434

.版本 2
.支持库 spec


.子程序 _临时子程序
.局部变量 Body, 文本型


' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
Body ＝ “{'User':'782765640','UserID':1,'UserID':1,'UserID':1,'UserID':{qq:{11:11}}}”
TEST (Body)


.子程序 TEST
.参数 Body, 文本型
.参数 Level, 整数型, 可空
.局部变量 length, 整数型
.局部变量 index, 整数型
.局部变量 CHAR, 文本型
.局部变量 String, 文本型
.局部变量 Type, 整数型
.局部变量 Value, 文本型


length ＝ 取文本长度 (Body)
.counter (length, index)
    CHAR ＝ 取文本中间 (Body, index, 1)
    .判断开始 (CHAR ＝ “{”)
        Level ＝ Level ＋ 1
    .switch (CHAR ＝ “}”)
        Level ＝ Level － 1
    .switch (CHAR ＝ “[”)
        Level ＝ Level ＋ 1
    .switch (CHAR ＝ “]”)
        Level ＝ Level － 1
    .switch ((CHAR ＝ “'” 或 CHAR ＝ #引号) 且 Level ÷ 2 ％ 1 ＝ 0)
        Level ＝ Level ＋ 1
    .switch ((CHAR ＝ “'” 或 CHAR ＝ #引号) 且 Level ÷ 2 ％ 1 ≠ 0)
        Level ＝ Level － 1
    .switch (CHAR ＝ “,” 且 Level ＝ 0)


    .switch (CHAR ＝ “:” 且 Level ≠ 0)


    .默认
        String ＝ String ＋ CHAR
        Value ＝ Value ＋ CHAR
    .判断结束
    .判断开始 (Level ÷ 2 ％ 1 ＝ 0)
        ' 调试输出 (Level, String, Value)
    .switch (Level ÷ 2 ％ 1 ≠ 0)
        调试输出 (Level, Value)
        Value ＝ “”
    .默认


    .判断结束


.CounterLoop ()

84915659

易语言递归我还真没怎么搞懂

杨明煜

真的感谢.................