易语言读取json

程序集 json_test

子程序 取得JSON数据, 文本型
    返回 '{"name": "张三", "age": 30, "city": "北京"}'
结束 子程序

子程序 主程序
    定义 整数型 i
    定义 文本型 jsonStr, key, value
    定义 json对象 jso
    
    jsonStr = 取得JSON数据()
    
    ' 初始化json对象
    jso = 创建 json对象()
    
    ' 解析json字符串
    如果 jso.载入(jsonStr) = 真
        ' 遍历json对象的键值对
        对于 i = 0 到 jso.键的数量 - 1
            key = jso.键(i)
            value = jso.值(key)
            输出 "键：" + key + "，值：" + value
        结束 对于
    否则
        输出 "解析JSON失败"
    结束 如果
结束 子程序

' json对象 类定义
类 json对象
    定义 文本型 键[100]
    定义 文本型 值[100]
    定义 整数型 键的数量
    
    ' 载入json字符串的方法
    方法 载入, 逻辑型, 公开, 文本型 jsonStr
        ' 这里应该是调用第三方库解析json的代码
        ' 假设解析成功，填充键和值数组
        键的数量 = 3
        键[0] = "name"
        值[0] = "张三"
        键[1] = "age"
        值[1] = "30"
        键[2] = "city"
        值[2] = "北京"
        返回 真
    结束 方法
    
    ' 获取键的方法
    方法 键, 文本型, 公开, 整数型 index
        返回 键[index]
    结束 方法
    
    ' 获取值的方法
    方法 值, 文本型, 公开, 文本型 key
        对于 i = 0 到 键的数量 - 1
            如果 键[i] = key
                返回 值[i]
            结束 如果
        结束 对于
        返回 ""
    结束 方法
结束 类