json数组数据求处理

53770zhang

json数组数据求处理，如下，比如一下费用是2881，我现在我希望扣除一个500的费用，优先扣除自费项目和应收金额高的。剩下的返回2881-500的费用。
[{"项目类别":"手术","保险类别":"自费","项目名称":"种植体植入费(单颗)","数次":1.0,"标准单价":1358.0,"应收金额":1358.0},{"项目类别":"检查","保险类别":"乙类","项目名称":"计算机体层成像（CT）平扫-口腔颌面锥形束CT（CBCT）（扩展）","数次":2.0,"标准单价":230.0,"应收金额":460.0},{"项目类别":"材料","保险类别":"自费","项目名称":"种植态美瑞瓷","数次":1.0,"标准单价":100.0,"应收金额":100.0},{"项目类别":"手术","保险类别":"自费","项目名称":"端午种植体植入费(单颗)","数次":1.0,"标准单价":963.0,"应收金额":963.0}]
比如这个json，我就应该扣除自费，应收1358这条，返回数次 1358-500/1358=0.63次，应收13580-500=858。 返回的json就是
[{"项目类别":"手术","保险类别":"自费","项目名称":"种植体植入费(单颗)","数次":0.63,"标准单价":1358.0,"应收金额":858.0},{"项目类别":"检查","保险类别":"乙类","项目名称":"计算机体层成像（CT）平扫-口腔颌面锥形束CT（CBCT）（扩展）","数次":2.0,"标准单价":230.0,"应收金额":460.0},{"项目类别":"材料","保险类别":"自费","项目名称":"种植态美瑞瓷","数次":1.0,"标准单价":100.0,"应收金额":100.0},{"项目类别":"手术","保险类别":"自费","项目名称":"端午种植体植入费(单颗)","数次":1.0,"标准单价":963.0,"应收金额":963.0}]
假如要扣费2000，扣掉1358后继续扣除下一个自费的，没有就扣其他类的。让豆包写，豆包逻辑倒是对的，就是自己编了2个函数[color=rgba(0, 0, 0, 0.85)][backcolor=rgba(0, 0, 0, 0.04)]数组_自定义排序和[color=rgba(0, 0, 0, 0.85)][backcolor=rgba(0, 0, 0, 0.04)]JSON_解析数组，让他写函数原始代码也不对。

白橙

.版本 2
.支持库 spec

.子程序 Json处理, 整数型, , 本子程序在程序启动后最先执行
.局部变量 输入_Json, zyJsonDocument
.局部变量 输出_Json, zyJsonDocument
.局部变量 j, 整数型
.局部变量 i, 整数型
.局部变量 临时值, zyJsonValue
.局部变量 子_Json, zyJsonValue, , "0"
.局部变量 临_Json, zyJsonValue
.局部变量 优先级1, 整数型
.局部变量 优先级2, 整数型
.局部变量 剩余扣除, 双精度小数型
.局部变量 应收金额, 双精度小数型
.局部变量 标准单价, 双精度小数型

输入_Json.解析 (#原始_Json, , , )

清除数组 (子_Json)
.计次循环首 (输入_Json.取成员数 (), i)
    临_Json ＝ 输入_Json.取成员 (, i － 1)
    加入成员 (子_Json, 临_Json)
.计次循环尾 ()

.计次循环首 (取数组成员数 (子_Json), i)
    .计次循环首 (取数组成员数 (子_Json) － i, j)
        优先级1 ＝ 选择 (子_Json [j].取文本 (“保险类别”, ) ＝ “自费”, 1, 0)
        优先级2 ＝ 选择 (子_Json [j ＋ 1].取文本 (“保险类别”, ) ＝ “自费”, 1, 0)
        .如果真 (优先级1 ＜ 优先级2 或 优先级1 ＝ 优先级2 且 子_Json [j].取双精度 (“应收金额”) ＜ 子_Json [j ＋ 1].取双精度 (“应收金额”))
            临时值 ＝ 子_Json [j]
            子_Json [j] ＝ 子_Json [j ＋ 1]
            子_Json [j ＋ 1] ＝ 临时值
        .如果真结束

    .计次循环尾 ()
.计次循环尾 ()
剩余扣除 ＝ 500
.计次循环首 (取数组成员数 (子_Json), i)
    .如果真 (剩余扣除 ≤ 0)
        跳出循环 ()
    .如果真结束
    应收金额 ＝ 子_Json .取双精度 (“应收金额”)
    标准单价 ＝ 子_Json .取双精度 (“标准单价”)

    .如果真 (应收金额 ≤ 0)
        到循环尾 ()
    .如果真结束

    .如果 (应收金额 ≥ 剩余扣除)
        应收金额 ＝ 应收金额 － 剩余扣除
        子_Json .置双精度 (“应收金额”, 四舍五入 (应收金额, 2))
        .如果真 (标准单价 ＞ 0)
            子_Json .置双精度 (“数次”, 四舍五入 (应收金额 ÷ 标准单价, 2))
        .如果真结束
        剩余扣除 ＝ 0
    .否则
        剩余扣除 ＝ 剩余扣除 － 应收金额
        子_Json .置双精度 (“应收金额”, 0)
        子_Json .置双精度 (“数次”, 0)
    .如果结束

.计次循环尾 ()
输出_Json.创建 (, , , )
.计次循环首 (取数组成员数 (子_Json), i)
    输出_Json.置成员 (, i － 1, 子_Json )
.计次循环尾 ()
调试输出 (输出_Json.到文本 (, , , ))
返回 (0)


补充内容 (2026-6-11 13:16):
[{
    "项目类别": "手术",
    "保险类别": "自费",
    "项目名称": "种植体植入费(单颗)",
    "数次": 0.63,
    "标准单价": 1358,
    "应收金额": 858
}, {
    "项...

Ruang

  

子程序名	返回值类型	公开	备 注
功能_Json解析
参数名	类 型	参考	可空	数组	备 注
参_Json文本	文本型
参_扣除费用	整数型
参_返回次数	小数型
参_返回费用	双精度小数型

变量名	类 型	静态	数组	备 注
局_Json	类_json
局_收取金额	双精度小数型
局_计次	整数型

局_Json.解析 (参_Json文本, , )
计次循环首 (局_Json.成员数 (), 局_计次)
局_收取金额 ＝ 局_收取金额 ＋ 到数值 (局_Json.取通用属性 (“[” ＋ 到文本 (局_计次 － 1) ＋ “].应收金额”, ))
计次循环尾 ()
参_返回费用 ＝ 局_收取金额 － 参_扣除费用
参_返回次数 ＝ 参_返回费用 ÷ 局_收取金额
调试输出 (局_收取金额, 参_返回费用, 参_返回次数)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 功能_Json解析<br /> .参数 参_Json文本, 文本型<br /> .参数 参_扣除费用, 整数型, 可空<br /> .参数 参_返回次数, 小数型, 参考 可空<br /> .参数 参_返回费用, 双精度小数型, 参考 可空<br /> .局部变量 局_Json, 类_json<br /> .局部变量 局_收取金额, 双精度小数型<br /> .局部变量 局_计次, 整数型<br /> <br /> 局_Json.解析 (参_Json文本, , )<br /> .计次循环首 (局_Json.成员数 (), 局_计次)<br />     局_收取金额 ＝ 局_收取金额 ＋ 到数值 (局_Json.取通用属性 (“[” ＋ 到文本 (局_计次 － 1) ＋ “].应收金额”, ))<br /> .计次循环尾 ()<br /> 参_返回费用 ＝ 局_收取金额 － 参_扣除费用<br /> 参_返回次数 ＝ 参_返回费用 ÷ 局_收取金额<br /> 调试输出 (局_收取金额, 参_返回费用, 参_返回次数)

看看对不对

53770zhang

白橙 发表于 2026-6-11 13:16
.版本 2
.支持库 spec

对的对的，就是这个意思。但是不知道是不是zyjson的版本不对，我执行的时候。 应收金额 ＝ 子_Json .取双精度 (“应收金额”) 需要改为  应收金额 ＝ 子_Json .取双精度 (“应收金额”)

输出_Json.置成员 (, i － 1, 子_Json )这里值也不对。

53770zhang

但是不知道是不是zyjson的版本不对，我执行的时候。 应收金额 ＝ 子_Json .取双精度 (“应收金额”) 需要改为  应收金额 ＝ 子_Json[i] .取双精度 (“应收金额”)

输出_Json.置成员 (, i － 1, 子_Json )这里值也不对。我在研究下

白橙

53770zhang 发表于 2026-6-11 14:16
但是不知道是不是zyjson的版本不对，我执行的时候。 应收金额 ＝ 子_Json .取双精度 (“应收金额”) 需要改 ...

zyJson4.0.8.ec

白橙

zyJson4.0.8.ec，可以在论坛下到的