求助JSON数据的筛重去除

longjingo

有一段JSON文本，想把里面的数据进行筛查       比如时间这里  同一分钟的数据只保留1个   这个该如何处理，谢谢  使用了  精易模块

eavesyang

  

子程序名	返回值类型	公开	备 注
json_解析

变量名	类 型	静态	数组	备 注
json	类_json
a	整数型
行数	整数型
考勤时间	文本型
考勤状态	文本型
考勤地点	文本型
设备序列号	文本型
局_开始日期	文本型

json.解析 ( #常量1 )
计次循环首 (json.成员数 (“data”), a)
考勤时间 ＝ json.取通用属性 (“data[” ＋ 到文本 (a － 1) ＋ “].TTime”, )
' 1、#年份； 2、#季度； 3、#月份； 4、#自年首周数； 5、#日； 6、#小时； 7、#分钟；
考勤状态 ＝ json.取通用属性 (“data[” ＋ 到文本 (a － 1) ＋ “].State”, )
设备序列号 ＝ json.取通用属性 (“data[” ＋ 到文本 (a － 1) ＋ “].SN”, )
如果 (检车重复项 (json.取通用属性 (“data[” ＋ 到文本 (a － 2) ＋ “].TTime”, ), 考勤时间) ＝ 真)
输出调试文本 (json.取通用属性 (“data[” ＋ 到文本 (a － 21) ＋ “].TTime”, ))

行数 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.保证显示 (行数)
超级列表框1.置标题 (行数, 0, 到文本 (行数 ＋ 1))
超级列表框1.置标题 (行数, 1, 考勤时间)
超级列表框1.置标题 (行数, 2, 考勤状态)
超级列表框1.置标题 (行数, 3, 考勤地点)
超级列表框1.置标题 (行数, 4, 设备序列号)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
检车重复项	逻辑型		重复返回真
参数名	类 型	参考	可空	数组	备 注
当前考勤时间	文本型
需要对比时间	文本型

变量名	类 型	静态	数组	备 注
年份	整数型
月份	整数型
日	整数型
小时	整数型
分钟	整数型
年份1	整数型
月份1	整数型
日1	整数型
小时1	整数型
分钟1	整数型

年份 ＝ 取时间部分 (到时间 (当前考勤时间), 1)
月份 ＝ 取时间部分 (到时间 (当前考勤时间), 3)
日 ＝ 取时间部分 (到时间 (当前考勤时间), 5)
小时 ＝ 取时间部分 (到时间 (当前考勤时间), 6)
分钟 ＝ 取时间部分 (到时间 (当前考勤时间), 7)
年份1 ＝ 取时间部分 (到时间 (需要对比时间), 1)
月份1 ＝ 取时间部分 (到时间 (需要对比时间), 3)
日1 ＝ 取时间部分 (到时间 (需要对比时间), 5)
小时1 ＝ 取时间部分 (到时间 (需要对比时间), 6)
分钟1 ＝ 取时间部分 (到时间 (需要对比时间), 7)
返回 (年份 ＝ 年份1 且 月份 ＝ 月份1 且 日 ＝ 日1 且 小时 ＝ 小时1 且 分钟 ＝ 分钟1)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 json_解析<br /> .局部变量 json, 类_json<br /> .局部变量 a, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 考勤时间, 文本型<br /> .局部变量 考勤状态, 文本型<br /> .局部变量 考勤地点, 文本型<br /> .局部变量 设备序列号, 文本型<br /> .局部变量 局_开始日期, 文本型<br /> <br /> json.解析 (#常量1)<br /> <br /> <br /> <br /> .计次循环首 (json.成员数 (“data”), a)<br />     考勤时间 ＝ json.取通用属性 (“data[” ＋ 到文本 (a － 1) ＋ “].TTime”, )<br /> <br />     ' 1、#年份； 2、#季度； 3、#月份； 4、#自年首周数； 5、#日； 6、#小时； 7、#分钟；<br /> <br />     考勤状态 ＝ json.取通用属性 (“data[” ＋ 到文本 (a － 1) ＋ “].State”, )<br />     设备序列号 ＝ json.取通用属性 (“data[” ＋ 到文本 (a － 1) ＋ “].SN”, )<br />     .如果 (检车重复项 (json.取通用属性 (“data[” ＋ 到文本 (a － 2) ＋ “].TTime”, ), 考勤时间) ＝ 真)<br />         输出调试文本 (json.取通用属性 (“data[” ＋ 到文本 (a － 21) ＋ “].TTime”, ))<br /> <br />     .否则<br />         行数 ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.保证显示 (行数)<br />         超级列表框1.置标题 (行数, 0, 到文本 (行数 ＋ 1))<br />         超级列表框1.置标题 (行数, 1, 考勤时间)<br />         超级列表框1.置标题 (行数, 2, 考勤状态)<br />         超级列表框1.置标题 (行数, 3, 考勤地点)<br />         超级列表框1.置标题 (行数, 4, 设备序列号)<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 检车重复项, 逻辑型, , 重复返回真<br /> .参数 当前考勤时间, 文本型<br /> .参数 需要对比时间, 文本型<br /> .局部变量 年份, 整数型<br /> .局部变量 月份, 整数型<br /> .局部变量 日, 整数型<br /> .局部变量 小时, 整数型<br /> .局部变量 分钟, 整数型<br /> .局部变量 年份1, 整数型<br /> .局部变量 月份1, 整数型<br /> .局部变量 日1, 整数型<br /> .局部变量 小时1, 整数型<br /> .局部变量 分钟1, 整数型<br /> <br /> 年份 ＝ 取时间部分 (到时间 (当前考勤时间), 1)<br /> 月份 ＝ 取时间部分 (到时间 (当前考勤时间), 3)<br /> 日 ＝ 取时间部分 (到时间 (当前考勤时间), 5)<br /> 小时 ＝ 取时间部分 (到时间 (当前考勤时间), 6)<br /> 分钟 ＝ 取时间部分 (到时间 (当前考勤时间), 7)<br /> <br /> 年份1 ＝ 取时间部分 (到时间 (需要对比时间), 1)<br /> 月份1 ＝ 取时间部分 (到时间 (需要对比时间), 3)<br /> 日1 ＝ 取时间部分 (到时间 (需要对比时间), 5)<br /> 小时1 ＝ 取时间部分 (到时间 (需要对比时间), 6)<br /> 分钟1 ＝ 取时间部分 (到时间 (需要对比时间), 7)<br /> <br /> <br /> <br /> 返回 (年份 ＝ 年份1 且 月份 ＝ 月份1 且 日 ＝ 日1 且 小时 ＝ 小时1 且 分钟 ＝ 分钟1)

鹏书

把秒的内容去掉，剩下的内容去重复 啊

eavesyang

  

行数 ＝ 超级列表框1.插入表项 (, , , , , )

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br />     行数 ＝ 超级列表框1.插入表项 (, , , , , )

liantan

样本.e (995.42 KB, 下载次数: 3)

2022-2-11 12:22 上传

点击文件名下载附件
例子。