|
发表于 2021-9-26 10:19:19
|
显示全部楼层
江西省萍乡市
.版本 2
.支持库 EDataStructure
.支持库 iext
.子程序 超级列表框_合并相同项, 整数型, 公开, 返回合并后的项目数.相同数据相加.用到节点数据类型
.参数 参_超级列表框_来源, 超级列表框, , 2列表项列:名称|数量
.参数 参_超级列表框_目标, 超级列表框
.局部变量 节点数量, 节点
.局部变量 节点索引, 节点, , , 从1开始
.局部变量 ii
.局部变量 循环次数
.局部变量 文本值, 文本型
.局部变量 名称, 文本型
.局部变量 数量
.局部变量 临时数值
.局部变量 临时索引
参_超级列表框_目标.全部删除 ()
循环次数 = 参_超级列表框_来源.取表项数 ()
.计次循环首 (循环次数, ii)
名称 = 参_超级列表框_来源.取标题 (ii - 1, 0)
数量 = 到整数 (参_超级列表框_来源.取标题 (ii - 1, 1))
.判断开始 (节点数量.加入属性 (名称, 数量))
节点索引.加入属性 (名称, 参_超级列表框_目标.取表项数 ())
参_超级列表框_目标.置标题 (参_超级列表框_目标.插入表项 (, 名称, , , , ), 1, 到文本 (数量))
.默认
节点数量.取数值 (名称, 临时数值)
节点数量.修改属性 (名称, 临时数值 + 数量)
节点索引.取数值 (名称, 临时索引)
参_超级列表框_目标.置标题 (临时索引, 1, 到文本 (临时数值 + 数量))
.判断结束
.计次循环尾 ()
返回 (参_超级列表框_目标.取表项数 ())
|
|