powerbuilder 2019 jsonparser解析报错

neron

免费乐捐，感谢支持

deepseek复制的代码，运行报错，不知什么原因
// 假设 ls_json 是从Tushare获取的原始JSON字符串
string ls_json
ls_json= '上述JSON内容'

// 创建JSON解析器对象
JSONParser lp_parser
lp_parser = CREATE JSONParser

// 解析JSON字符串
IF lp_parser.ParseString(ls_json) THEN
    // 获取根对象
    JsonObject root = lp_parser.GetRootObject()
   
    // 提取"data"对象
    IF root.ContainsKey("data") THEN
        JsonObject jo_data = root.GetObject("data")
        
        // 提取字段名数组
        JsonArray ja_fields = jo_data.GetArray("fields")
        // 提取数据行数组
        JsonArray ja_items = jo_data.GetArray("items")
        
        // 遍历每一行数据
        FOR li_row = 0 TO ja_items.GetSize() - 1
            JsonArray ja_row = ja_items.GetItem(li_row).GetArray()
            
            // 提取每列数据并与字段名对应
            string ls_ts_code = ja_row.GetItem(0).GetString()
            string ls_symbol = ja_row.GetItem(1).GetString()
            string ls_name = ja_row.GetItem(2).GetString()
            string ls_area = ja_row.GetItem(3).GetString()
            string ls_industry = ja_row.GetItem(4).GetString()
            
            // 此处可将数据插入数据窗口或保存到对象中
            // 示例：输出到调试窗口
            MessageBox("股票信息", "代码: " + ls_ts_code + "~r~n名称: " + ls_name)
        NEXT
    ELSE
        MessageBox("错误", "未找到data节点")
    END IF
ELSE
    MessageBox("错误", "JSON解析失败")
END IF

// 清理对象
DESTROY lp_parser