powerbuilder 2019 jsonparser解析报错
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
页:
[1]