@乐事123

Suky

数组排序，删除
https://bbs.125.la/forum.php?mod=viewthread&tid=14821990
(出处: 精易论坛)

@乐事123 @风度猫

我的意思是类似这样的：

  

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
P_日期	文本型				与时间文本年月日相同格式的日期文本，示例：2024年5月23日
P_删除数量	整数型				要删除的数量
P_原数组	数据类型1

变量名	类 型	静态	数组	备 注
k	整数型
n	整数型

计次循环首 (P_删除数量, )
k ＝ 0
计次循环首 (取数组成员数 (P_原数组), n)
如果真 (寻找文本 (到文本 (P_原数组 [n].登录时间), P_日期, , 假) ≠ -1)
如果真 (k ＝ 0)
k ＝ n
到循环尾 ()

如果真 (取时间间隔 (P_原数组 [k].登录时间, P_原数组 [n].登录时间, #秒 ) ＞ 0)
k ＝ n


计次循环尾 ()
调试输出 (P_原数组 [k].ID, P_原数组 [k].名称, P_原数组 [k].登录时间)
删除成员 (P_原数组, k, 1)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .参数 P_日期, 文本型, , 与时间文本年月日相同格式的日期文本，示例：2024年5月23日<br /> .参数 P_删除数量, 整数型, , 要删除的数量<br /> .参数 P_原数组, 数据类型1, 数组<br /> .局部变量 k, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (P_删除数量, )<br />     k ＝ 0<br />     .计次循环首 (取数组成员数 (P_原数组), n)<br />         .如果真 (寻找文本 (到文本 (P_原数组 [n].登录时间), P_日期, , 假) ≠ -1)<br />             .如果真 (k ＝ 0)<br />                 k ＝ n<br />                 到循环尾 ()<br />             .如果真结束<br /> <br />             .如果真 (取时间间隔 (P_原数组 [k].登录时间, P_原数组 [n].登录时间, #秒) ＞ 0)<br />                 k ＝ n<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     调试输出 (P_原数组 [k].ID, P_原数组 [k].名称, P_原数组 [k].登录时间)<br />     删除成员 (P_原数组, k, 1)<br /> .计次循环尾 ()

乐事123

谢谢大佬指点 今天才有时间上线

Suky