易语言按时间顺序读取文件

wuqingg

wxb130260 发表于 2020-6-6 20:19
先枚举   再排序  再处理

比如1.txt 时间是2020-05-01，2.txt 时间是2020-01-01，3.txt 时间是2020-03-01。我怎么才能先读2.txt再读1.txt再读3.txt

补充内容 (2020-6-6 22:36):
刚才搞错了，比如1.txt 时间是2020-05-01，2.txt 时间是2020-01-01，3.txt 时间是2020-03-01。我怎么才能先读2.txt再读3.txt再读1.txt

gua

wuqingg 发表于 2020-6-6 22:34
比如1.txt 时间是2020-05-01，2.txt 时间是2020-01-01，3.txt 时间是2020-03-01。我怎么才能先读2.txt再 ...

  

子程序名	返回值类型	公开	备 注
时间数组排序	逻辑型
参数名	类 型	参考	可空	数组	备 注
要排序的数组	日期时间型
返回排序结果	日期时间型
正反向	逻辑型				真为从小到大 假为从大到小

变量名	类 型	静态	数组	备 注
td	逻辑型
time	日期时间型		2
时间	日期时间型		0
i	整数型
value	整数型
return	整数型

时间 ＝ 要排序的数组
清除数组 (返回排序结果)
td ＝ 选择 (是否为空 (正反向), 真, 正反向)
time [1] ＝ 时间 [1]
time [2] ＝ 时间 [1]
value ＝ 1
return ＝ 0
加入成员 (返回排序结果, 时间 [1])
删除成员 (时间, 1, )
判断循环首 (取数组成员数 (时间) ≠ 0)
判断 (时间 [1] ≤ time [1])
判断 (td)
插入成员 (返回排序结果, 1, 时间 [1])
加入成员 (返回排序结果, 时间 [1])

如果真 (时间 [1] ＜ time [1])
time [1] ＝ 时间 [1]

判断 (时间 [1] ＜ time [2])
i ＝ 1
判断循环首 (时间 [1] ＞ 到时间 (返回排序结果 [i]))
i ＝ i ＋ 1
如果真 (i ＞ 取数组成员数 (返回排序结果))
return ＝ 1
跳出循环 ()

判断循环尾 ()
判断 (return ＝ 1)
加入成员 (返回排序结果, 时间 [1])
return ＝ 0
time [2] ＝ 时间 [1]
value ＝ value ＋ 1


判断 (td)
加入成员 (返回排序结果, 时间 [1])
插入成员 (返回排序结果, i, 时间 [1])


判断 (时间 [1] ≥ time [2])
判断 (td)
加入成员 (返回排序结果, 时间 [1])
插入成员 (返回排序结果, 1, 时间 [1])

value ＝ value ＋ 1
如果真 (时间 [1] ＞ time [2])
time [2] ＝ 时间 [1]



删除成员 (时间, 1, )
判断循环尾 ()
返回 (取数组成员数 (要排序的数组) ＝ 取数组成员数 (返回排序结果))

.版本 2<br /> <br /> .子程序 时间数组排序, 逻辑型<br /> .参数 要排序的数组, 日期时间型, 数组<br /> .参数 返回排序结果, 日期时间型, 参考 数组<br /> .参数 正反向, 逻辑型, 可空, 真为从小到大 假为从大到小<br /> .局部变量 td, 逻辑型<br /> .局部变量 time, 日期时间型, , "2"<br /> .局部变量 时间, 日期时间型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 value, 整数型<br /> .局部变量 return, 整数型<br /> <br /> 时间 ＝ 要排序的数组<br /> 清除数组 (返回排序结果)<br /> td ＝ 选择 (是否为空 (正反向), 真, 正反向)<br /> time [1] ＝ 时间 [1]<br /> time [2] ＝ 时间 [1]<br /> value ＝ 1<br /> return ＝ 0<br /> 加入成员 (返回排序结果, 时间 [1])<br /> 删除成员 (时间, 1, )<br /> .判断循环首 (取数组成员数 (时间) ≠ 0)<br />     .判断开始 (时间 [1] ≤ time [1])<br />         .判断开始 (td)<br />             插入成员 (返回排序结果, 1, 时间 [1])<br />         .默认<br />             加入成员 (返回排序结果, 时间 [1])<br />         .判断结束<br /> <br />         .如果真 (时间 [1] ＜ time [1])<br />             time [1] ＝ 时间 [1]<br />         .如果真结束<br /> <br />     .判断 (时间 [1] ＜ time [2])<br />         i ＝ 1<br />         .判断循环首 (时间 [1] ＞ 到时间 (返回排序结果 <i>))<br />             i ＝ i ＋ 1<br />             .如果真 (i ＞ 取数组成员数 (返回排序结果))<br />                 return ＝ 1<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .判断循环尾 ()<br />         .判断开始 (return ＝ 1)<br />             加入成员 (返回排序结果, 时间 [1])<br />             return ＝ 0<br />             time [2] ＝ 时间 [1]<br />             value ＝ value ＋ 1<br />         .默认<br /> <br />             .判断开始 (td)<br />                 加入成员 (返回排序结果, 时间 [1])<br />             .默认<br />                 插入成员 (返回排序结果, i, 时间 [1])<br />             .判断结束<br /> <br />         .判断结束<br /> <br />     .判断 (时间 [1] ≥ time [2])<br />         .判断开始 (td)<br />             加入成员 (返回排序结果, 时间 [1])<br />         .默认<br />             插入成员 (返回排序结果, 1, 时间 [1])<br />         .判断结束<br /> <br />         value ＝ value ＋ 1<br />         .如果真 (时间 [1] ＞ time [2])<br />             time [2] ＝ 时间 [1]<br />         .如果真结束<br /> <br />     .默认<br /> <br />     .判断结束<br />     删除成员 (时间, 1, )<br /> .判断循环尾 ()<br /> 返回 (取数组成员数 (要排序的数组) ＝ 取数组成员数 (返回排序结果))

gua

wuqingg 发表于 2020-6-6 22:34
比如1.txt 时间是2020-05-01，2.txt 时间是2020-01-01，3.txt 时间是2020-03-01。我怎么才能先读2.txt再 ...

新建文件夹.rar (439.23 KB, 下载次数: 37)

2020-6-7 10:51 上传

点击文件名下载附件


补充内容 (2020-6-7 10:51):
其中有一点摘自三叶

wuqingg

gua 发表于 2020-6-7 10:51
补充内容 (2020-6-7 10:51):
其中有一点摘自三叶

很好的答案，谢谢你。只是感觉速度有点慢，能再快点就好了。

gua

wuqingg 发表于 2020-6-7 12:09
很好的答案，谢谢你。只是感觉速度有点慢，能再快点就好了。

里面有延迟