求一个关于花名轮流组合的例子

wh1234567

阿狸阿狸 发表于 2025-3-11 21:32
以下是使用易语言实现分组排班系统的完整解决方案，包含详细注释和代码示例：
[e=1].版本 2
.支持库 iext

错误(37): 找不到指定的命令／子程序／Dll命令调用名称“到日期”。

wh1234567

鱼老板 发表于 2025-3-11 19:32
补充内容 (2025-3-11 19:32):
没问题直接结算。下次这种需求你还是多弄点精币吧 ...

.版本 2

' 花名文本 ＝ “老大|张哥|李三三|桥巧|王美人|大姨|小月”
' 花名 ＝ 分割文本 (花名文本, “|”, )

花名 ＝ 分割文本 (编辑框1.内容, #换行符, )
老师，为什么屏蔽后，修改成读取编辑框内容，提示
"运行时出错!
错误代码：1
错误信息：数组成员引用下标超出定义范围
"

wh1234567

鱼老板 发表于 2025-3-11 19:32
补充内容 (2025-3-11 19:32):
没问题直接结算。下次这种需求你还是多弄点精币吧 ...

范围：
起始日期 ＝ “2025.3.3”
结束日期 ＝ “2025.11.26”
如果把“每周四轮流一遍”修改成“每周一轮流一遍”，恰好2025.3.3那天就是星期一，为什么只插入了一行呢？如何修正一下？老师看到后回复我一下该如何修正，谢谢老师

鱼老板

wh1234567 发表于 2025-3-12 01:47
范围：
起始日期 ＝ “2025.3.3”
结束日期 ＝ “2025.11.26”

如果改成还是一周   那就需要先出取来周一的日期   需要在取周几的代码那里进行处理

鱼老板

wh1234567 发表于 2025-3-12 00:27
.版本 2

' 花名文本 ＝ “老大|张哥|李三三|桥巧|王美人|大姨|小月”

这个问题首先看你的花名是通过什么样的形式的    如果是一行一个花名的话   直接把花名文本后面的替换成 编辑框1.内容   下方处理插入数据那里也需要做处理  需要把“|”  替换成 #换行符

补充内容 (2025-3-12 04:12):
结贴   有问题   看我签名直接问我  

wh1234567

鱼老板 发表于 2025-3-12 04:09
如果改成还是一周   那就需要先出取来周一的日期   需要在取周几的代码那里进行处理 ...

我只把取周“4”修改成“1”，但是当开始日期恰好就是设定的周一那天的话 只插入了一行，不知道如何正确修正？期待老师修正后发源码文件可以吗？

wh1234567

鱼老板 发表于 2025-3-11 19:32
补充内容 (2025-3-11 19:32):
没问题直接结算。下次这种需求你还是多弄点精币吧 ...

  

如果真 (选择框1.选中 ＝ 假 且 选择框2.选中 ＝ 假)
返回 ()
超级列表框1.全部删除 ()
' 时间_取中国星期几 ()
起始日期 ＝ “2025.3.3”
结束日期 ＝ “2025.11.26”
' 开始日期 ＝ 日期框1.今天
' 结束日期 ＝ 日期框2.今天
如果真 (选择框1.选中 ＝ 真)
sj ＝ 到时间 (起始日期)
如果真 (选择框2.选中 ＝ 真)
sj ＝ 时间_星期几取日期 (到时间 (起始日期), 1)  ' “2025.3.3”恰好就是周一，也就是说，起始日期那天恰好就是和设定的星期几是同一天，需要修正无法按起始日期到结束日期处理输出的问题

行数 ＝ 0
花名文本 ＝ 编辑框1.内容
花名 ＝ 分割文本 (花名文本, #换行符, )
一号 ＝ 2
二号 ＝ 2
三号 ＝ 2
四号 ＝ 1
判断循环首 (真)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (行数, 0, 到文本 (sj))
如果真 (选择框1.选中 ＝ 真)  ' 每天一次
sj ＝ 增减时间 (sj, #日, 1)
如果真 (选择框2.选中 ＝ 真)  ' 每周的周几一次，可任意设置为周几
sj ＝ 增减时间 (sj, 1, 1)  ' 假如把周四修改为周一

行数 ＝ 行数 ＋ 1
如果真 (取时间间隔 (到时间 (结束日期), sj, 3) ＜ 0 且 取时间间隔 (到时间 (结束日期), sj, 1) ＜ 0)
跳出循环 ()

判断循环尾 ()
s ＝ 封装 (花名文本, 行数)
s1 ＝ 分割文本 (s, #换行符, )
临时s1 ＝ s1
计次循环首 (超级列表框1.取表项数 (), i1)
计次循环首 (4, i2)
如果真 (i2 ＝ 1)
循环次数 ＝ 一号
如果真 (i2 ＝ 2)
循环次数 ＝ 二号
如果真 (i2 ＝ 3)
循环次数 ＝ 三号
如果真 (i2 ＝ 4)
循环次数 ＝ 四号

计次循环首 (循环次数, i3)
判断 (临时写出 ＝ “”)
临时写出 ＝ 临时s1 [1]
临时写出 ＝ 临时写出 ＋ “、” ＋ 临时s1 [1]
如果真 (i2 ＝ 4 且 i3 ＝ 循环次数)
到循环尾 ()
删除成员 (临时s1, 1, 1)
计次循环尾 ()
超级列表框1.置标题 (i1 － 1, i2, 临时写出)
临时写出 ＝ “”
计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .如果真 (选择框1.选中 ＝ 假 且 选择框2.选中 ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> 超级列表框1.全部删除 ()<br /> ' 时间_取中国星期几 ()<br /> 起始日期 ＝ “2025.3.3”<br /> 结束日期 ＝ “2025.11.26”<br /> ' 开始日期 ＝ 日期框1.今天<br /> ' 结束日期 ＝ 日期框2.今天<br /> <br /> .如果真 (选择框1.选中 ＝ 真)<br />     sj ＝ 到时间 (起始日期)<br /> .如果真结束<br /> .如果真 (选择框2.选中 ＝ 真)<br />     sj ＝ 时间_星期几取日期 (到时间 (起始日期), 1)  ' “2025.3.3”恰好就是周一，也就是说，起始日期那天恰好就是和设定的星期几是同一天，需要修正无法按起始日期到结束日期处理输出的问题<br /> .如果真结束<br /> <br /> 行数 ＝ 0<br /> 花名文本 ＝ 编辑框1.内容<br /> 花名 ＝ 分割文本 (花名文本, #换行符, )<br /> <br /> 一号 ＝ 2<br /> 二号 ＝ 2<br /> 三号 ＝ 2<br /> 四号 ＝ 1<br /> <br /> .判断循环首 (真)<br />     超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (行数, 0, 到文本 (sj))<br />     .如果真 (选择框1.选中 ＝ 真)  ' 每天一次<br />         sj ＝ 增减时间 (sj, #日, 1)<br />     .如果真结束<br />     .如果真 (选择框2.选中 ＝ 真)  ' 每周的周几一次，可任意设置为周几<br />         sj ＝ 增减时间 (sj, 1, 1)  ' 假如把周四修改为周一<br />     .如果真结束<br /> <br />     行数 ＝ 行数 ＋ 1<br /> <br />     .如果真 (取时间间隔 (到时间 (结束日期), sj, 3) ＜ 0 且 取时间间隔 (到时间 (结束日期), sj, 1) ＜ 0)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> s ＝ 封装 (花名文本, 行数)<br /> s1 ＝ 分割文本 (s, #换行符, )<br /> 临时s1 ＝ s1<br /> .计次循环首 (超级列表框1.取表项数 (), i1)<br /> <br /> <br />     .计次循环首 (4, i2)<br />         .如果真 (i2 ＝ 1)<br />             循环次数 ＝ 一号<br />         .如果真结束<br />         .如果真 (i2 ＝ 2)<br />             循环次数 ＝ 二号<br />         .如果真结束<br />         .如果真 (i2 ＝ 3)<br />             循环次数 ＝ 三号<br />         .如果真结束<br />         .如果真 (i2 ＝ 4)<br />             循环次数 ＝ 四号<br />         .如果真结束<br /> <br />         .计次循环首 (循环次数, i3)<br />             .判断开始 (临时写出 ＝ “”)<br />                 临时写出 ＝ 临时s1 [1]<br />             .默认<br />                 临时写出 ＝ 临时写出 ＋ “、” ＋ 临时s1 [1]<br />             .判断结束<br />             .如果真 (i2 ＝ 4 且 i3 ＝ 循环次数)<br />                 到循环尾 ()<br /> <br />             .如果真结束<br />             删除成员 (临时s1, 1, 1)<br />         .计次循环尾 ()<br />         超级列表框1.置标题 (i1 － 1, i2, 临时写出)<br />         临时写出 ＝ “”<br />     .计次循环尾 ()<br /> .计次循环尾 ()

期待老师帮忙修正一下吧

鱼老板

wh1234567 发表于 2025-3-12 07:03
[e=0].版本 2
.支持库 iext

你这份代码麻烦重开贴  谢谢  别薅羊毛了   

补充内容 (2025-3-12 07:11):
我是为了达人榜   要不然我也不会回答为了五精币回答你这个问题

补充内容 (2025-3-12 07:11):
这个帖子结算   开新帖了艾特我   你这个帖子不回了

wh1234567

鱼老板 发表于 2025-3-12 07:03
只改了数字1

.版本 2

    sj ＝ 增减时间 (sj, 4, 1)
    行数 ＝ 行数 ＋ 1
    .如果真 (取时间间隔 (到时间 (结束日期), sj, 3) ＜ 0 且 取时间间隔 (到时间 (结束日期), sj, 4) ＜ 0)
        跳出循环 ()
后面这里的2处4不需要修改成1吗？

鱼老板

wh1234567 发表于 2025-3-12 07:12
.版本 2

    sj ＝ 增减时间 (sj, 4, 1)

代码上传了   啥都没改   只改了1    之前帖子里回答过你了   如果是周  就只换那个取周几就可以了 别的不用动