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

wh1234567

如何实现这样的组合？编辑框里有多行花名（例如7行，每行为一个花名），要求将全部人数进行分成按变量定义人数（假如分成4组），每组人数也是变量定义人数（例如：第一组2人、第二组2人、第三组2人，第四组1人），每周四轮流一遍（例如从周期为设定的开始日期2025.3.3日周四到结束日期2025.11.26），并按日期进行按行分别插入到高级表格里，求例子

补充内容 (2025-3-11 18:09):
http://www.chacuo.net/uploads/ch ... 8b67fdbb91fbfd0.jpg

神猴

test.e (960.47 KB, 下载次数: 1)

2025-3-12 07:03 上传

点击文件名下载附件

只改了数字1

wh1234567

神猴

去定制区定制吧

神猴

test.e (961.66 KB, 下载次数: 2)

2025-3-11 19:32 上传

点击文件名下载附件

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

wh1234567

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

非常感谢老师帮助，技术和理解能力不错，能不能增加2个选择框（按日一次、按每周比如周四一次），当选择了按日时就按日轮流组合，当选择了每周四一次的话就是现在这样子的，期待老师，另外能不能弄成高级表格的？

神猴

wh1234567 发表于 2025-3-11 21:09
非常感谢老师帮助，技术和理解能力不错，能不能增加2个选择框（按日一次、按每周比如周四一次），当选择 ...

按日  就是把增减时间那里做一下修改  现在是每次加一周  你改成一天就可以了  不会的看提示

高级表格你自己做替换就行了   没啥问题麻烦直接结算

补充内容 (2025-3-11 21:23):
这是答疑的   你的需求达成了   增加新的功能就再开新帖    如果要不停增加需求  可以隔壁定制区或者看我签名

wh1234567

鱼老板 发表于 2025-3-11 21:20
按日  就是把增减时间那里做一下修改  现在是每次加一周  你改成一天就可以了  不会的看提示

高级表格你 ...

呵呵呵，老师帮修改一下吧，一会采纳，因为现在采纳后没法在本帖回复了

阿狸阿狸

[color=rgba(0, 0, 0, 0.9)]以下是使用易语言实现分组排班系统的完整解决方案，包含详细注释和代码示例：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
花名数组	文本型	0
分组数据	文本型	0	"0"  ' 二维数组存储分组结果
周四日期数组	日期时间型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 初始化高级表格
高级表格1.置列数 (2)
高级表格1.置行数 (1)
高级表格1.置表头 ("日期|值班人员")
' 设置示例数据
编辑框1.内容 ＝ “玫瑰” ＋ #换行符 ＋ “百合” ＋ #换行符 ＋ “郁金香” ＋ #换行符 ＋ “向日葵” ＋ #换行符 ＋ “兰花” ＋ #换行符 ＋ “菊花” ＋ #换行符 ＋ “梅花”

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

变量名	类 型	静态	数组	备 注
开始日期	日期时间型
结束日期	日期时间型
分组人数	整数型		0
总人数	整数型

' 步骤1：获取输入参数
开始日期 ＝ 到日期 (“2025-03-03”)
结束日期 ＝ 到日期 (“2025-11-26”)
分组人数 ＝ { 2, 2, 2, 1 }  ' 可改为从界面输入
' 步骤2：处理花名数据
花名数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
总人数 ＝ 取数组成员数 (花名数组)
' 验证分组人数总和
如果真 (数组求和 (分组人数) ≠ 总人数)
信息框 (“分组人数总和与总人数不符！”, #错误图标, )
返回

' 步骤3：执行分组
分组处理 ()
' 步骤4：生成周四日期列表
生成周四日期数组 (开始日期, 结束日期)
' 步骤5：填充表格
填充排班表 ()

子程序名	返回值类型	公开	备 注
分组处理

变量名	类 型	静态	数组	备 注
i	整数型
当前索引	整数型
组号	整数型

当前索引 ＝ 1
重定义数组 (分组数据, 假, 0)
计次循环首 (取数组成员数 (分组人数), 组号)
' 为每组创建子数组
重定义数组 (分组数据 [组号], 真, 分组人数 [组号])

计次循环首 (分组人数 [组号], i)
如果真 (当前索引 > 总人数)
跳出循环 ()

分组数据 [组号] [i] ＝ 花名数组 [当前索引]
当前索引 ＝ 当前索引 ＋ 1
计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
生成周四日期数组
参数名	类 型	参考	可空	数组	备 注
开始日期	日期时间型
结束日期	日期时间型

变量名	类 型	静态	数组	备 注
当前日期	日期时间型

重定义数组 (周四日期数组, 假, 0)
当前日期 ＝ 开始日期
判断循环首 (当前日期 ≤ 结束日期)
如果真 (取星期几 (当前日期) ＝ 4)  ' 星期四=4
加入成员 (周四日期数组, 当前日期)
当前日期 ＝ 增加时间 (当前日期, #日, 1)
判断循环尾 ()
' 如果开始日期不是周四，从第一个周四开始
如果真 (取数组成员数 (周四日期数组) ＝ 0)
当前日期 ＝ 开始日期
判断循环首 (真)
当前日期 ＝ 增加时间 (当前日期, #日, 1)
如果真 (取星期几 (当前日期) ＝ 4)
加入成员 (周四日期数组, 当前日期)
跳出循环 ()

判断循环尾 ()

子程序名	返回值类型	公开	备 注
填充排班表

变量名	类 型	静态	数组	备 注
当前行	整数型
组号	整数型
i	整数型

高级表格1.清空 ()
高级表格1.置列数 (2)
高级表格1.置行数 (1)
高级表格1.置表头 ("日期|值班人员")
计次循环首 (取数组成员数 (周四日期数组), i)
组号 ＝ ( (i － 1) ％ 取数组成员数 (分组数据)) ＋ 1  ' 循环使用分组

' 插入新行
高级表格1.插入行 ()
当前行 ＝ 高级表格1.行数
高级表格1.置数据 (当前行, 0, 到文本 (周四日期数组 [i]))

' 合并显示分组人员
计次循环首 (取数组成员数 (分组数据 [组号]), j)
如果真 (j ＝ 1)
高级表格1.置数据 (当前行, 1, 分组数据 [组号] [j])
高级表格1.置数据 (当前行, 1, 高级表格1.取数据 (当前行, 1) ＋ “、” ＋ 分组数据 [组号] [j])

计次循环尾 ()
计次循环尾 ()
' 自动调整列宽
高级表格1.自动调整列宽 (0)
高级表格1.自动调整列宽 (1)

子程序名	返回值类型	公开	备 注
数组求和
参数名	类 型	参考	可空	数组	备 注
数组	整数型

变量名	类 型	静态	数组	备 注
和	整数型
i	整数型

计次循环首 (取数组成员数 (数组), i)
和 ＝ 和 ＋ 数组 [i]
计次循环尾 ()
返回 (和)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 花名数组, 文本型, , "0"<br /> .程序集变量 分组数据, 文本型, , "0", "0"  ' 二维数组存储分组结果<br /> .程序集变量 周四日期数组, 日期时间型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> ' 初始化高级表格<br /> 高级表格1.置列数 (2)<br /> 高级表格1.置行数 (1)<br /> 高级表格1.置表头 ("日期|值班人员")<br /> <br /> ' 设置示例数据<br /> 编辑框1.内容 ＝ “玫瑰” ＋ #换行符 ＋ “百合” ＋ #换行符 ＋ “郁金香” ＋ #换行符 ＋ “向日葵” ＋ #换行符 ＋ “兰花” ＋ #换行符 ＋ “菊花” ＋ #换行符 ＋ “梅花”<br /> <br /> .子程序 _按钮_生成_被单击<br /> .局部变量 开始日期, 日期时间型<br /> .局部变量 结束日期, 日期时间型<br /> .局部变量 分组人数, 整数型, , "0"<br /> .局部变量 总人数, 整数型<br /> <br /> ' 步骤1：获取输入参数<br /> 开始日期 ＝ 到日期 (“2025-03-03”)<br /> 结束日期 ＝ 到日期 (“2025-11-26”)<br /> 分组人数 ＝ { 2, 2, 2, 1 }  ' 可改为从界面输入<br /> <br /> ' 步骤2：处理花名数据<br /> 花名数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 总人数 ＝ 取数组成员数 (花名数组)<br /> <br /> ' 验证分组人数总和<br /> .如果真 (数组求和 (分组人数) ≠ 总人数)<br />     信息框 (“分组人数总和与总人数不符！”, #错误图标, )<br />     返回<br /> .如果真结束<br /> <br /> ' 步骤3：执行分组<br /> 分组处理 ()<br /> <br /> ' 步骤4：生成周四日期列表<br /> 生成周四日期数组 (开始日期, 结束日期)<br /> <br /> ' 步骤5：填充表格<br /> 填充排班表 ()<br /> <br /> .子程序 分组处理<br /> .局部变量 i, 整数型<br /> .局部变量 当前索引, 整数型<br /> .局部变量 组号, 整数型<br /> <br /> 当前索引 ＝ 1<br /> 重定义数组 (分组数据, 假, 0)<br /> <br /> .计次循环首 (取数组成员数 (分组人数), 组号)<br />     ' 为每组创建子数组<br />     重定义数组 (分组数据 [组号], 真, 分组人数 [组号])<br />     <br />     .计次循环首 (分组人数 [组号], i)<br />         .如果真 (当前索引 > 总人数)<br />             跳出循环 ()<br />         .如果真结束<br />         <br />         分组数据 [组号] <i> ＝ 花名数组 [当前索引]<br />         当前索引 ＝ 当前索引 ＋ 1<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 生成周四日期数组<br /> .参数 开始日期, 日期时间型<br /> .参数 结束日期, 日期时间型<br /> .局部变量 当前日期, 日期时间型<br /> <br /> 重定义数组 (周四日期数组, 假, 0)<br /> 当前日期 ＝ 开始日期<br /> <br /> .判断循环首 (当前日期 ≤ 结束日期)<br />     .如果真 (取星期几 (当前日期) ＝ 4)  ' 星期四=4<br />         加入成员 (周四日期数组, 当前日期)<br />     .如果真结束<br />     当前日期 ＝ 增加时间 (当前日期, #日, 1)<br /> .判断循环尾 ()<br /> <br /> ' 如果开始日期不是周四，从第一个周四开始<br /> .如果真 (取数组成员数 (周四日期数组) ＝ 0)<br />     当前日期 ＝ 开始日期<br />     .判断循环首 (真)<br />         当前日期 ＝ 增加时间 (当前日期, #日, 1)<br />         .如果真 (取星期几 (当前日期) ＝ 4)<br />             加入成员 (周四日期数组, 当前日期)<br />             跳出循环 ()<br />         .如果真结束<br />     .判断循环尾 ()<br /> .如果真结束<br /> <br /> .子程序 填充排班表<br /> .局部变量 当前行, 整数型<br /> .局部变量 组号, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 高级表格1.清空 ()<br /> 高级表格1.置列数 (2)<br /> 高级表格1.置行数 (1)<br /> 高级表格1.置表头 ("日期|值班人员")<br /> <br /> .计次循环首 (取数组成员数 (周四日期数组), i)<br />     组号 ＝ ((i － 1) ％ 取数组成员数 (分组数据)) ＋ 1  ' 循环使用分组<br />     <br />     ' 插入新行<br />     高级表格1.插入行 ()<br />     当前行 ＝ 高级表格1.行数<br />     高级表格1.置数据 (当前行, 0, 到文本 (周四日期数组 <i>))<br />     <br />     ' 合并显示分组人员<br />     .计次循环首 (取数组成员数 (分组数据 [组号]), j)<br />         .如果真 (j ＝ 1)<br />             高级表格1.置数据 (当前行, 1, 分组数据 [组号] [j])<br />         .否则<br />             高级表格1.置数据 (当前行, 1, 高级表格1.取数据 (当前行, 1) ＋ “、” ＋ 分组数据 [组号] [j])<br />         .如果真结束<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> ' 自动调整列宽<br /> 高级表格1.自动调整列宽 (0)<br /> 高级表格1.自动调整列宽 (1)<br /> <br /> .子程序 数组求和<br /> .参数 数组, 整数型, 数组<br /> .局部变量 和, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (数组), i)<br />     和 ＝ 和 ＋ 数组 <i><br /> .计次循环尾 ()<br /> 返回 (和)

#
实现原理说明：​数据结构设计：
花名数组：存储从编辑框读取的花名列表
分组数据：二维数组，第一维表示组号，第二维存储该组成员
周四日期数组：存储所有需要排班的周四日期


​关键算法：分组算法：根据预设的每组人数，按顺序分配花名到不同组
​日期生成算法：遍历开始到结束日期，筛选所有周四
​循环排班算法：使用取模运算实现分组循环 组号 = ((i-1) % 组数) + 1


​界面交互：
使用高级表格展示排班结果
第一列为日期，第二列为该天值班人员（多人用顿号分隔）


使用说明：​
在编辑框输入花名（每行一个）
在代码中修改分组人数数组（当前为{2,2,2,1}）
点击生成按钮，查看排班结果


扩展功能建议：​
增加分组人数输入界面
添加导出Excel功能
实现节假日的自动跳过
添加分组校验提示功能
#
日期处理细节：​

  

' 获取下一个周四的优化算法

子程序名	返回值类型	公开	备 注
获取下一个周四
参数名	类 型	参考	可空	数组	备 注
当前日期	日期时间型

变量名	类 型	静态	数组	备 注
间隔天数	整数型

间隔天数 ＝ (4 － 取星期几 (当前日期)) ％ 7
间隔天数 ＝ 选择 (间隔天数 ≥ 0, 间隔天数, 间隔天数 ＋ 7)
返回 (增加时间 (当前日期, #日, 间隔天数))

' 获取下一个周四的优化算法<br /> .子程序 获取下一个周四<br /> .参数 当前日期, 日期时间型<br /> .局部变量 间隔天数, 整数型<br /> <br /> 间隔天数 ＝ (4 － 取星期几 (当前日期)) ％ 7<br /> 间隔天数 ＝ 选择 (间隔天数 ≥ 0, 间隔天数, 间隔天数 ＋ 7)<br /> 返回 (增加时间 (当前日期, #日, 间隔天数))

#
高级表格优化技巧：​

  

' 设置表格样式
高级表格1.置列宽 (0, 100)  ' 日期列宽度
高级表格1.置对齐方式 (0, 0, 2, 高级表格1.行数, 1, #表格对齐方式_居中 )
' 添加斑马线效果
计次循环首 (高级表格1.行数, i)
如果真 (i ％ 2 ＝ 0)
高级表格1.置背景颜色 (i, 0, #白色 )
高级表格1.置背景颜色 (i, 0, #浅 **)

计次循环尾 ()

' 设置表格样式<br /> 高级表格1.置列宽 (0, 100)  ' 日期列宽度<br /> 高级表格1.置对齐方式 (0, 0, 2, 高级表格1.行数, 1, #表格对齐方式_居中)<br /> <br /> ' 添加斑马线效果<br /> .计次循环首 (高级表格1.行数, i)<br />     .如果真 (i ％ 2 ＝ 0)<br />         高级表格1.置背景颜色 (i, 0, #白色)<br />     .否则<br />         高级表格1.置背景颜色 (i, 0, #浅**)<br />     .如果真结束<br /> .计次循环尾 ()

[color=rgba(0, 0, 0, 0.9)]#该方案可实现动态分组排班需求，通过调整分组人数和日期范围，可适应不同场景的排班需求，楼主参考在！

wh1234567

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

老师辛苦了，我这里一复制就乱了，可以上传文件吗