编辑框取指定时间内容

LEOONL

123.e (960.72 KB, 下载次数: 3)

2024-8-24 23:05 上传

点击文件名下载附件

xianggu

xianggu 发表于 2024-8-24 22:57
我是废物,用楼上那位大神的

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
原日期	文本型
原始数据	文本型		0
i	整数型
分割	文本型		0
n	整数型
分割1	文本型		0
索引	整数型

编辑框3.内容 ＝ “”
原日期 ＝ 时间_格式化 (日期框2.今天, “yyyy-MM-dd”, , , )
原始数据 ＝ 分割文本 (文本_删除空行 (编辑框2.内容), #换行符, )
计次循环首 (取数组成员数 (原始数据), i)
分割 ＝ 分割文本 (原始数据 [i], “|”, )
如果真 (到时间 (原日期) ＞ 到时间 (分割 [1]))
i ＝ 0
跳出循环 ()
如果真 (分割 [1] ＝ 原日期)
跳出循环 ()

计次循环尾 ()
如果真 (取星期几 (到时间 (原日期)) ＝ 1)
计次循环首 (到整数 (编辑框1.内容), n)
编辑框3.加入文本 (原始数据 [i ＋ 1 ＋ n] ＋ #换行符 )
计次循环尾 ()
返回 ()
如果真 (取星期几 (到时间 (原日期)) ＝ 7)
计次循环首 (到整数 (编辑框1.内容), n)
编辑框3.加入文本 (原始数据 [i ＋ n] ＋ #换行符 )
计次循环尾 ()
返回 ()
计次循环首 (到整数 (编辑框1.内容), n)
分割1 ＝ 分割文本 (原始数据 [i ＋ n], “|”, )
索引 ＝ 索引 ＋ 1
如果真 (取星期几 (到时间 (分割1 [1])) ＝ 1 或 取星期几 (到时间 (分割1 [1])) ＝ 7)
索引 ＝ n ＋ 2
编辑框3.加入文本 (原始数据 [i ＋ 索引] ＋ #换行符 )
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 原日期, 文本型<br /> .局部变量 原始数据, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 分割1, 文本型, , "0"<br /> .局部变量 索引, 整数型<br /> <br /> 编辑框3.内容 ＝ “”<br /> 原日期 ＝ 时间_格式化 (日期框2.今天, “yyyy-MM-dd”, , , )<br /> 原始数据 ＝ 分割文本 (文本_删除空行 (编辑框2.内容), #换行符, )<br /> .计次循环首 (取数组成员数 (原始数据), i)<br />     分割 ＝ 分割文本 (原始数据 <i>, “|”, )<br />     .如果真 (到时间 (原日期) ＞ 到时间 (分割 [1]))<br />         i ＝ 0<br />         跳出循环 ()<br />     .如果真结束<br />     .如果真 (分割 [1] ＝ 原日期)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (取星期几 (到时间 (原日期)) ＝ 1)<br />     .计次循环首 (到整数 (编辑框1.内容), n)<br />         编辑框3.加入文本 (原始数据 [i ＋ 1 ＋ n] ＋ #换行符)<br />     .计次循环尾 ()<br />     返回 ()<br /> .如果真结束<br /> .如果真 (取星期几 (到时间 (原日期)) ＝ 7)<br />     .计次循环首 (到整数 (编辑框1.内容), n)<br />         编辑框3.加入文本 (原始数据 [i ＋ n] ＋ #换行符)<br />     .计次循环尾 ()<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (到整数 (编辑框1.内容), n)<br />     分割1 ＝ 分割文本 (原始数据 [i ＋ n], “|”, )<br />     索引 ＝ 索引 ＋ 1<br />     .如果真 (取星期几 (到时间 (分割1 [1])) ＝ 1 或 取星期几 (到时间 (分割1 [1])) ＝ 7)<br />         索引 ＝ n ＋ 2<br />     .如果真结束<br />     编辑框3.加入文本 (原始数据 [i ＋ 索引] ＋ #换行符)<br /> .计次循环尾 ()

必须满足你~~~老板

幻想大人

今天刚学易语言，不知道有没理解对你的意思，

直接上图，上源码


补充内容 (2024-8-25 03:35):
看你的描述，我理解为你不要周六和周日？不知道对不对

影纸

编辑框取指定时间内容

lufanjingyi

看你一直没结帖  看看吧
123.e (957.75 KB, 下载次数: 2)

2024-8-25 09:56 上传

点击文件名下载附件