给出一个将数据窗口中数据不全为0或空的内容生成JSON的例子

ehxz

免费乐捐，感谢支持

给出一个将数据窗口中数据不全为0或空的内容生成JSON的例子
数据窗口中有多个行列，第一行为表头，第一、二列为数据描述，其它列为具体数据，需要将数据窗口中仅将具体数据不为0或空的数据生成JSON
请问如何实现，给出具体的实现方法过程，给出代码说明。

pbai

这个需求用 DataWindow 逐行逐列取值 + uo_json 动态建树即可实现：描述列（第 1、2 列）始终保留，具体数据列只把「非0非空」的单元格写进 JSON。本示例适用于 PB 12.5 + PBIDEA（uo_json，websuite.pbl）。

前置：窗口上已放 DataWindow 控件 dw_1 并关联数据对象（如 d_report）且已取数；第 1、2 列为数据描述（如 品名、单位），第 3 列起为具体数据列。
步骤：1) 在按钮 cb_run 的 clicked 事件粘贴下方代码；2) 运行窗口点击按钮，MessageBox 弹出 JSON 文本。

2. uo_json js
3. js = create uo_json
5. long ll_rows, ll_cols, ll_r, ll_c, ll_idx
6. string ls_v1, ls_v2, ls_val, ls_colname, ls_json
7. boolean lb_ok
9. // 数据窗口 dw_1 已取数；第 1、2 列为描述列，第 3 列起为具体数据列
10. ll_rows = dw_1.RowCount()
11. ll_cols = long(dw_1.Describe("DataWindow.Column.Count"))
13. ll_idx = 0  // JSON 数组下标，只对有效行自增
14. for ll_r = 1 to ll_rows
15.     // 描述列：始终写入，保留该行基本信息
16.     ls_v1 = dw_1.GetItemString(ll_r, 1)
17.     ls_v2 = dw_1.GetItemString(ll_r, 2)
18.     if isnull(ls_v1) then ls_v1 = ""
19.     if isnull(ls_v2) then ls_v2 = ""
20.     js.set("/" + string(ll_idx) + "/描述1", ls_v1)
21.     js.set("/" + string(ll_idx) + "/描述2", ls_v2)
23.     // 具体数据列：仅写入非0非空的单元格
24.     for ll_c = 3 to ll_cols
25.         ls_val = dw_1.GetItemString(ll_r, ll_c)
26.         if isnull(ls_val) then ls_val = ""
27.         ls_val = trim(ls_val)
29.         lb_ok = false
30.         if ls_val <> "" then
31.             if IsNumber(ls_val) then
32.                 if dec(ls_val) <> 0 then lb_ok = true  // 数字 0、0.00 等一律跳过
33.             else
34.                 lb_ok = true                            // 非数字文本，非空即写入
35.             end if
36.         end if
38.         if lb_ok then
39.             // 用列名做 JSON 键（如 d_report 的字段名）
40.             ls_colname = dw_1.Describe("#" + string(ll_c) + ".name")
41.             js.set("/" + string(ll_idx) + "/" + ls_colname, ls_val)
42.         end if
43.     next
44.     ll_idx = ll_idx + 1
45. next
47. ls_json = js.toString(true, false, false)
48. MessageBox('JSON 结果', ls_json)
50. destroy js

复制代码

两点补充：

• 若表头是放在数据区第一行的文字（非常规设计），把遍历起点改为 for ll_r = 2 to ll_rows 即可；
  
• 想要中文键名，可把 ls_colname 换成列标题文本 dw_1.Describe("#" + string(ll_c) + ".t.Text")（个别版本写法略有差异）；js.toString 第三个参数 sort 保持 false，键按写入顺序输出。
  

pbai