归类的问题

忘情不是洒脱

比如，有以下文本：
--------------------------------------
张三是1班，
李四是1班，
王五是2班，
陆六是1班，
赵七是3班，
黄八是2班，
白九是1班，
--------------------------------------
经过处理之后，变成：
张三、李四、陆六、白九是1班，
王五、黄八是2班，
赵七是3班，


要用什么方法实现呢？数组吗？好像不行，键值对好像也不行，求大神给个解法或者思路，万分感谢！祝大家春节快乐、阖家幸福、身体健康、马到成功！








补充内容 (2026-2-19 19:03):
而且人数不是固定的，可能是7个可能是20个可能是30个不确定的，所以数组的话应该不能实现吧？或者有什么最好的解决方法呢？

zainex

先用 正则 取出字段，然后加到节点中，排序，最后生成结果：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
文本	文本型
正则	正则表达式
搜索结果	搜索结果		0
节点	节点
名称	文本型
班级	文本型
数	整数型
临时	文本型
属性名	文本型		0
值	整数型
数组	文本型		0
结果	文本型

文本 ＝ #常量1
正则.创建 (“([^\r\n]+?)是([^\r\n]+?)，”, )
搜索结果 ＝ 正则.搜索全部 (文本)
计次循环首 (取数组成员数 (搜索结果), 数)
名称 ＝ 搜索结果 [数].取子匹配文本 (文本, 1, )
班级 ＝ 搜索结果 [数].取子匹配文本 (文本, 2, )
如果真 (节点.加入属性 (班级, 名称) ＝ 假)
节点.取文本值 (班级, 临时)
节点.修改属性 (班级, 临时 ＋ #换行符 ＋ 名称)

计次循环尾 ()
节点.取全部属性名 (属性名)
计次循环首 (取数组成员数 (属性名), 数)
计次循环首 (取数组成员数 (属性名) － 数, 值)
如果真 (到整数 (属性名 [值]) ＞ 到整数 (属性名 [值 ＋ 1]))
交换变量 (属性名 [值], 属性名 [值 ＋ 1])

计次循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (属性名), 数)
节点.取文本值 (属性名 [数], 临时)
数组 ＝ 分割文本 (临时, #换行符, )
计次循环首 (取数组成员数 (数组), 值)
结果 ＝ 结果 ＋ 数组 [值]
如果真 (值 ＜ 取数组成员数 (数组))
结果 ＝ 结果 ＋ “、”

计次循环尾 ()
结果 ＝ 结果 ＋ 属性名 [数] ＋ “，” ＋ #换行符
计次循环尾 ()
调试输出 ( #换行符 ＋ 结果)

i支持库列表	支持库注释
RegEx	正则表达式支持库
EDataStructure	数据结构支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 EDataStructure<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> .局部变量 节点, 节点<br /> .局部变量 名称, 文本型<br /> .局部变量 班级, 文本型<br /> .局部变量 数, 整数型<br /> .局部变量 临时, 文本型<br /> .局部变量 属性名, 文本型, , "0"<br /> .局部变量 值, 整数型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 结果, 文本型<br /> <br /> 文本 ＝ #常量1<br /> 正则.创建 (“([^\r\n]+?)是([^\r\n]+?)，”, )<br /> 搜索结果 ＝ 正则.搜索全部 (文本)<br /> .计次循环首 (取数组成员数 (搜索结果), 数)<br />     名称 ＝ 搜索结果 [数].取子匹配文本 (文本, 1, )<br />     班级 ＝ 搜索结果 [数].取子匹配文本 (文本, 2, )<br />     .如果真 (节点.加入属性 (班级, 名称) ＝ 假)<br />         节点.取文本值 (班级, 临时)<br />         节点.修改属性 (班级, 临时 ＋ #换行符 ＋ 名称)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 节点.取全部属性名 (属性名)<br /> .计次循环首 (取数组成员数 (属性名), 数)<br />     .计次循环首 (取数组成员数 (属性名) － 数, 值)<br />         .如果真 (到整数 (属性名 [值]) ＞ 到整数 (属性名 [值 ＋ 1]))<br />             交换变量 (属性名 [值], 属性名 [值 ＋ 1])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (属性名), 数)<br />     节点.取文本值 (属性名 [数], 临时)<br />     数组 ＝ 分割文本 (临时, #换行符, )<br />     .计次循环首 (取数组成员数 (数组), 值)<br />         结果 ＝ 结果 ＋ 数组 [值]<br />         .如果真 (值 ＜ 取数组成员数 (数组))<br />             结果 ＝ 结果 ＋ “、”<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     结果 ＝ 结果 ＋ 属性名 [数] ＋ “，” ＋ #换行符<br /> .计次循环尾 ()<br /> 调试输出 (#换行符 ＋ 结果)

开始运行被调试程序
* “
张三、李四、陆六、白九1班，
王五、黄八2班，
赵七3班，
”
被调试易程序运行完毕

liuyue5086

最方便的就用json 无脑弄 比如用zyjson  直接置文本（“一班.名字”，“xxx”）这里名字指的是张三、李四这些
后面需要取出来一班所有人名就直接用取所有属性名（"一班"）就可以了

694336034

  

子程序名	返回值类型	公开	备 注
整理班级名单	文本型
参数名	类 型	参考	可空	数组	备 注
原始文本	文本型

变量名	类 型	静态	数组	备 注
行列表	文本型		0
班级数组	文本型		0
姓名列表数组	文本型		0
遍历索引	整数型
单行文本	文本型
姓名	文本型
班级	文本型
班级位置	整数型			' 班级在班级数组中的位置
最终文本	文本型

' ========== 步骤1：拆分原始文本为每行 ==========
行列表 ＝ 分割文本 (原始文本, #换行符, )
如果真 (取数组成员数 (行列表) ＝ 0)
返回 (“无有效文本”)

' ========== 步骤2：遍历每行，解析并分组 ==========
计次循环首 (取数组成员数 (行列表), 遍历索引)
单行文本 ＝ 删全部空 (行列表 [遍历索引])  ' 去除空行/空格
如果真 (单行文本 ＝ “”)
到循环尾 ()

' 解析姓名（“是”前面的内容）
班级位置 ＝ 寻找文本 (单行文本, “是”, 1, 假)
如果真 (班级位置 ＝ -1)  ' 没有“是”，跳过该行
调试输出 (“第” ＋ 到文本 (遍历索引) ＋ “行格式错误：无‘是’字 → ” ＋ 单行文本)
到循环尾 ()
姓名 ＝ 取文本左边 (单行文本, 班级位置 － 1)
' 解析班级（“是”后面、“，”前面的内容）
班级位置 ＝ 寻找文本 (单行文本, “，”, 班级位置, 假)
判断 (班级位置 ＝ -1)  ' 没有“，”，取到文本末尾
班级 ＝ 取文本右边 (单行文本, 取文本长度 (单行文本) － 寻找文本 (单行文本, “是”, 1, 假))
班级 ＝ 取文本中间 (单行文本, 寻找文本 (单行文本, “是”, 1, 假) ＋ 2, 班级位置 － 寻找文本 (单行文本, “是”, 1, 假) － 2)

' 过滤空姓名/空班级
如果真 (姓名 ＝ “” 或 班级 ＝ “”)
调试输出 (“第” ＋ 到文本 (遍历索引) ＋ “行解析失败 → ” ＋ 单行文本)
到循环尾 ()

' ========== 核心：判断班级是否已存在，存在则追加姓名，不存在则新增 ==========
班级位置 ＝ 寻找数组成员 (班级数组, 班级, 1, 假)
判断 (班级位置 ＞ 0)
' 班级已存在，追加姓名（用顿号分隔）
姓名列表数组 [班级位置] ＝ 姓名列表数组 [班级位置] ＋ “、” ＋ 姓名

' 班级不存在，新增到两个数组
加入成员 (班级数组, 班级)
加入成员 (姓名列表数组, 姓名)

计次循环尾 ()
' ========== 步骤3：拼接最终文本 ==========
计次循环首 (取数组成员数 (班级数组), 遍历索引)
最终文本 ＝ 最终文本 ＋ 姓名列表数组 [遍历索引] ＋ “是” ＋ 班级数组 [遍历索引] ＋ “，” ＋ #换行符
计次循环尾 ()
' 去除最后多余的换行符
如果真 (取文本长度 (最终文本) ＞ 0)
最终文本 ＝ 取文本左边 (最终文本, 取文本长度 (最终文本) － 1)

返回 (最终文本)
' ========== 辅助函数：寻找数组中指定成员的位置（原生易语言实现） ==========

子程序名	返回值类型	公开	备 注
寻找数组成员	整数型
参数名	类 型	参考	可空	数组	备 注
目标数组	文本型				"0"
要找的文本	文本型
起始位置	整数型
是否不区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
索引	整数型

计次循环首 (取数组成员数 (目标数组), 索引)
如果真 (索引 ＜ 起始位置)
到循环尾 ()
' 判断是否匹配
如果真 (是否不区分大小写)
如果真 (到小写 (目标数组 [索引]) ＝ 到小写 (要找的文本))
返回 (索引)

如果真 (目标数组 [索引] ＝ 要找的文本)
返回 (索引)

计次循环尾 ()
返回 (-1)  ' 未找到返回-1
' ========== 测试调用（直接运行即可） ==========

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

变量名	类 型	静态	数组	备 注
原始文本	文本型
整理后文本	文本型

' 原始测试文本（和你提供的完全一致）
原始文本 ＝ “张三是1班，” ＋ #换行符 ＋ “李四是1班，” ＋ #换行符 ＋ “王五是2班，” ＋ #换行符 ＋ “陆六是1班，” ＋ #换行符 ＋ “赵七是3班，” ＋ #换行符 ＋ “黄八是2班，” ＋ #换行符 ＋ “白九是1班，”
' 调用整理函数
整理后文本 ＝ 整理班级名单 (原始文本)
' 输出结果（调试框查看）
调试输出 (“===== 整理后结果 =====”)
调试输出 (整理后文本)
返回 (0)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 整理班级名单, 文本型<br /> .参数 原始文本, 文本型<br /> .局部变量 行列表, 文本型, , "0"<br /> .局部变量 班级数组, 文本型, , "0"<br /> .局部变量 姓名列表数组, 文本型, , "0"<br /> .局部变量 遍历索引, 整数型<br /> .局部变量 单行文本, 文本型<br /> .局部变量 姓名, 文本型<br /> .局部变量 班级, 文本型<br /> .局部变量 班级位置, 整数型, , ,  ' 班级在班级数组中的位置<br /> .局部变量 最终文本, 文本型<br /> <br /> ' ========== 步骤1：拆分原始文本为每行 ==========<br /> 行列表 ＝ 分割文本 (原始文本, #换行符, )<br /> .如果真 (取数组成员数 (行列表) ＝ 0)<br />     返回 (“无有效文本”)<br /> .如果真结束<br /> <br /> <br /> <br /> ' ========== 步骤2：遍历每行，解析并分组 ==========<br /> .计次循环首 (取数组成员数 (行列表), 遍历索引)<br />     单行文本 ＝ 删全部空 (行列表 [遍历索引])  ' 去除空行/空格<br />     .如果真 (单行文本 ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     ' 解析姓名（“是”前面的内容）<br />     班级位置 ＝ 寻找文本 (单行文本, “是”, 1, 假)<br />     .如果真 (班级位置 ＝ -1)  ' 没有“是”，跳过该行<br />         调试输出 (“第” ＋ 到文本 (遍历索引) ＋ “行格式错误：无‘是’字 → ” ＋ 单行文本)<br />         到循环尾 ()<br /> <br />     .如果真结束<br />     姓名 ＝ 取文本左边 (单行文本, 班级位置 － 1)<br /> <br />     ' 解析班级（“是”后面、“，”前面的内容）<br />     班级位置 ＝ 寻找文本 (单行文本, “，”, 班级位置, 假)<br />     .判断开始 (班级位置 ＝ -1)  ' 没有“，”，取到文本末尾<br />         班级 ＝ 取文本右边 (单行文本, 取文本长度 (单行文本) － 寻找文本 (单行文本, “是”, 1, 假))<br />     .默认<br />         班级 ＝ 取文本中间 (单行文本, 寻找文本 (单行文本, “是”, 1, 假) ＋ 2, 班级位置 － 寻找文本 (单行文本, “是”, 1, 假) － 2)<br /> <br />     .判断结束<br /> <br />     ' 过滤空姓名/空班级<br />     .如果真 (姓名 ＝ “” 或 班级 ＝ “”)<br />         调试输出 (“第” ＋ 到文本 (遍历索引) ＋ “行解析失败 → ” ＋ 单行文本)<br />         到循环尾 ()<br /> <br />     .如果真结束<br /> <br />     ' ========== 核心：判断班级是否已存在，存在则追加姓名，不存在则新增 ==========<br />     班级位置 ＝ 寻找数组成员 (班级数组, 班级, 1, 假)<br />     .判断开始 (班级位置 ＞ 0)<br />         ' 班级已存在，追加姓名（用顿号分隔）<br />         姓名列表数组 [班级位置] ＝ 姓名列表数组 [班级位置] ＋ “、” ＋ 姓名<br /> <br />     .默认<br />         ' 班级不存在，新增到两个数组<br />         加入成员 (班级数组, 班级)<br />         加入成员 (姓名列表数组, 姓名)<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' ========== 步骤3：拼接最终文本 ==========<br /> .计次循环首 (取数组成员数 (班级数组), 遍历索引)<br />     最终文本 ＝ 最终文本 ＋ 姓名列表数组 [遍历索引] ＋ “是” ＋ 班级数组 [遍历索引] ＋ “，” ＋ #换行符<br /> .计次循环尾 ()<br /> <br /> ' 去除最后多余的换行符<br /> .如果真 (取文本长度 (最终文本) ＞ 0)<br />     最终文本 ＝ 取文本左边 (最终文本, 取文本长度 (最终文本) － 1)<br /> <br /> .如果真结束<br /> <br /> 返回 (最终文本)<br /> <br /> ' ========== 辅助函数：寻找数组中指定成员的位置（原生易语言实现） ==========<br /> <br /> .子程序 寻找数组成员, 整数型<br /> .参数 目标数组, 文本型, 数组, "0"<br /> .参数 要找的文本, 文本型<br /> .参数 起始位置, 整数型<br /> .参数 是否不区分大小写, 逻辑型<br /> .局部变量 索引, 整数型<br /> <br /> .计次循环首 (取数组成员数 (目标数组), 索引)<br />     .如果真 (索引 ＜ 起始位置)<br />         到循环尾 ()<br />     .如果真结束<br />     ' 判断是否匹配<br />     .如果真 (是否不区分大小写)<br />         .如果真 (到小写 (目标数组 [索引]) ＝ 到小写 (要找的文本))<br />             返回 (索引)<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (目标数组 [索引] ＝ 要找的文本)<br />         返回 (索引)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (-1)  ' 未找到返回-1<br /> <br /> ' ========== 测试调用（直接运行即可） ==========<br /> <br /> .子程序 _启动子程序, 整数型<br /> .局部变量 原始文本, 文本型<br /> .局部变量 整理后文本, 文本型<br /> <br /> ' 原始测试文本（和你提供的完全一致）<br /> 原始文本 ＝ “张三是1班，” ＋ #换行符 ＋ “李四是1班，” ＋ #换行符 ＋ “王五是2班，” ＋ #换行符 ＋ “陆六是1班，” ＋ #换行符 ＋ “赵七是3班，” ＋ #换行符 ＋ “黄八是2班，” ＋ #换行符 ＋ “白九是1班，”<br /> <br /> ' 调用整理函数<br /> 整理后文本 ＝ 整理班级名单 (原始文本)<br /> <br /> ' 输出结果（调试框查看）<br /> 调试输出 (“===== 整理后结果 =====”)<br /> 调试输出 (整理后文本)<br /> <br /> 返回 (0)

694336034

  

子程序名	返回值类型	公开	备 注
整理班级名单	文本型
参数名	类 型	参考	可空	数组	备 注
原始文本	文本型

变量名	类 型	静态	数组	备 注
行列表	文本型		0
班级数组	文本型		0
姓名列表数组	文本型		0
遍历索引	整数型
单行文本	文本型
姓名	文本型
班级	文本型
班级位置	整数型			' 班级在班级数组中的位置
最终文本	文本型

' ========== 步骤1：拆分原始文本为每行 ==========
行列表 ＝ 分割文本 (原始文本, #换行符, )
如果真 (取数组成员数 (行列表) ＝ 0)
返回 (“无有效文本”)

' ========== 步骤2：遍历每行，解析并分组 ==========
计次循环首 (取数组成员数 (行列表), 遍历索引)
单行文本 ＝ 删全部空 (行列表 [遍历索引])  ' 去除空行/空格
如果真 (单行文本 ＝ “”)
到循环尾 ()

' 解析姓名（“是”前面的内容）
班级位置 ＝ 寻找文本 (单行文本, “是”, 1, 假)
如果真 (班级位置 ＝ -1)  ' 没有“是”，跳过该行
调试输出 (“第” ＋ 到文本 (遍历索引) ＋ “行格式错误：无‘是’字 → ” ＋ 单行文本)
到循环尾 ()
姓名 ＝ 取文本左边 (单行文本, 班级位置 － 1)
' 解析班级（“是”后面、“，”前面的内容）
班级位置 ＝ 寻找文本 (单行文本, “，”, 班级位置, 假)
判断 (班级位置 ＝ -1)  ' 没有“，”，取到文本末尾
班级 ＝ 取文本右边 (单行文本, 取文本长度 (单行文本) － 寻找文本 (单行文本, “是”, 1, 假))
班级 ＝ 取文本中间 (单行文本, 寻找文本 (单行文本, “是”, 1, 假) ＋ 2, 班级位置 － 寻找文本 (单行文本, “是”, 1, 假) － 2)

' 过滤空姓名/空班级
如果真 (姓名 ＝ “” 或 班级 ＝ “”)
调试输出 (“第” ＋ 到文本 (遍历索引) ＋ “行解析失败 → ” ＋ 单行文本)
到循环尾 ()

' ========== 核心：判断班级是否已存在，存在则追加姓名，不存在则新增 ==========
班级位置 ＝ 寻找数组成员 (班级数组, 班级, 1, 假)
判断 (班级位置 ＞ 0)
' 班级已存在，追加姓名（用顿号分隔）
姓名列表数组 [班级位置] ＝ 姓名列表数组 [班级位置] ＋ “、” ＋ 姓名

' 班级不存在，新增到两个数组
加入成员 (班级数组, 班级)
加入成员 (姓名列表数组, 姓名)

计次循环尾 ()
' ========== 步骤3：拼接最终文本 ==========
计次循环首 (取数组成员数 (班级数组), 遍历索引)
最终文本 ＝ 最终文本 ＋ 姓名列表数组 [遍历索引] ＋ “是” ＋ 班级数组 [遍历索引] ＋ “，” ＋ #换行符
计次循环尾 ()
' 去除最后多余的换行符
如果真 (取文本长度 (最终文本) ＞ 0)
最终文本 ＝ 取文本左边 (最终文本, 取文本长度 (最终文本) － 1)

返回 (最终文本)
' ========== 辅助函数：寻找数组中指定成员的位置（原生易语言实现） ==========

子程序名	返回值类型	公开	备 注
寻找数组成员	整数型
参数名	类 型	参考	可空	数组	备 注
目标数组	文本型				"0"
要找的文本	文本型
起始位置	整数型
是否不区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
索引	整数型

计次循环首 (取数组成员数 (目标数组), 索引)
如果真 (索引 ＜ 起始位置)
到循环尾 ()
' 判断是否匹配
如果真 (是否不区分大小写)
如果真 (到小写 (目标数组 [索引]) ＝ 到小写 (要找的文本))
返回 (索引)

如果真 (目标数组 [索引] ＝ 要找的文本)
返回 (索引)

计次循环尾 ()
返回 (-1)  ' 未找到返回-1
' ========== 测试调用（直接运行即可） ==========

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

变量名	类 型	静态	数组	备 注
原始文本	文本型
整理后文本	文本型

' 原始测试文本（和你提供的完全一致）
原始文本 ＝ “张三是1班，” ＋ #换行符 ＋ “李四是1班，” ＋ #换行符 ＋ “王五是2班，” ＋ #换行符 ＋ “陆六是1班，” ＋ #换行符 ＋ “赵七是3班，” ＋ #换行符 ＋ “黄八是2班，” ＋ #换行符 ＋ “白九是1班，”
' 调用整理函数
整理后文本 ＝ 整理班级名单 (原始文本)
' 输出结果（调试框查看）
调试输出 (“===== 整理后结果 =====”)
调试输出 (整理后文本)
返回 (0)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 整理班级名单, 文本型<br /> .参数 原始文本, 文本型<br /> .局部变量 行列表, 文本型, , "0"<br /> .局部变量 班级数组, 文本型, , "0"<br /> .局部变量 姓名列表数组, 文本型, , "0"<br /> .局部变量 遍历索引, 整数型<br /> .局部变量 单行文本, 文本型<br /> .局部变量 姓名, 文本型<br /> .局部变量 班级, 文本型<br /> .局部变量 班级位置, 整数型, , ,  ' 班级在班级数组中的位置<br /> .局部变量 最终文本, 文本型<br /> <br /> ' ========== 步骤1：拆分原始文本为每行 ==========<br /> 行列表 ＝ 分割文本 (原始文本, #换行符, )<br /> .如果真 (取数组成员数 (行列表) ＝ 0)<br />     返回 (“无有效文本”)<br /> .如果真结束<br /> <br /> <br /> <br /> ' ========== 步骤2：遍历每行，解析并分组 ==========<br /> .计次循环首 (取数组成员数 (行列表), 遍历索引)<br />     单行文本 ＝ 删全部空 (行列表 [遍历索引])  ' 去除空行/空格<br />     .如果真 (单行文本 ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     ' 解析姓名（“是”前面的内容）<br />     班级位置 ＝ 寻找文本 (单行文本, “是”, 1, 假)<br />     .如果真 (班级位置 ＝ -1)  ' 没有“是”，跳过该行<br />         调试输出 (“第” ＋ 到文本 (遍历索引) ＋ “行格式错误：无‘是’字 → ” ＋ 单行文本)<br />         到循环尾 ()<br /> <br />     .如果真结束<br />     姓名 ＝ 取文本左边 (单行文本, 班级位置 － 1)<br /> <br />     ' 解析班级（“是”后面、“，”前面的内容）<br />     班级位置 ＝ 寻找文本 (单行文本, “，”, 班级位置, 假)<br />     .判断开始 (班级位置 ＝ -1)  ' 没有“，”，取到文本末尾<br />         班级 ＝ 取文本右边 (单行文本, 取文本长度 (单行文本) － 寻找文本 (单行文本, “是”, 1, 假))<br />     .默认<br />         班级 ＝ 取文本中间 (单行文本, 寻找文本 (单行文本, “是”, 1, 假) ＋ 2, 班级位置 － 寻找文本 (单行文本, “是”, 1, 假) － 2)<br /> <br />     .判断结束<br /> <br />     ' 过滤空姓名/空班级<br />     .如果真 (姓名 ＝ “” 或 班级 ＝ “”)<br />         调试输出 (“第” ＋ 到文本 (遍历索引) ＋ “行解析失败 → ” ＋ 单行文本)<br />         到循环尾 ()<br /> <br />     .如果真结束<br /> <br />     ' ========== 核心：判断班级是否已存在，存在则追加姓名，不存在则新增 ==========<br />     班级位置 ＝ 寻找数组成员 (班级数组, 班级, 1, 假)<br />     .判断开始 (班级位置 ＞ 0)<br />         ' 班级已存在，追加姓名（用顿号分隔）<br />         姓名列表数组 [班级位置] ＝ 姓名列表数组 [班级位置] ＋ “、” ＋ 姓名<br /> <br />     .默认<br />         ' 班级不存在，新增到两个数组<br />         加入成员 (班级数组, 班级)<br />         加入成员 (姓名列表数组, 姓名)<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' ========== 步骤3：拼接最终文本 ==========<br /> .计次循环首 (取数组成员数 (班级数组), 遍历索引)<br />     最终文本 ＝ 最终文本 ＋ 姓名列表数组 [遍历索引] ＋ “是” ＋ 班级数组 [遍历索引] ＋ “，” ＋ #换行符<br /> .计次循环尾 ()<br /> <br /> ' 去除最后多余的换行符<br /> .如果真 (取文本长度 (最终文本) ＞ 0)<br />     最终文本 ＝ 取文本左边 (最终文本, 取文本长度 (最终文本) － 1)<br /> <br /> .如果真结束<br /> <br /> 返回 (最终文本)<br /> <br /> ' ========== 辅助函数：寻找数组中指定成员的位置（原生易语言实现） ==========<br /> <br /> .子程序 寻找数组成员, 整数型<br /> .参数 目标数组, 文本型, 数组, "0"<br /> .参数 要找的文本, 文本型<br /> .参数 起始位置, 整数型<br /> .参数 是否不区分大小写, 逻辑型<br /> .局部变量 索引, 整数型<br /> <br /> .计次循环首 (取数组成员数 (目标数组), 索引)<br />     .如果真 (索引 ＜ 起始位置)<br />         到循环尾 ()<br />     .如果真结束<br />     ' 判断是否匹配<br />     .如果真 (是否不区分大小写)<br />         .如果真 (到小写 (目标数组 [索引]) ＝ 到小写 (要找的文本))<br />             返回 (索引)<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (目标数组 [索引] ＝ 要找的文本)<br />         返回 (索引)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (-1)  ' 未找到返回-1<br /> <br /> ' ========== 测试调用（直接运行即可） ==========<br /> <br /> .子程序 _启动子程序, 整数型<br /> .局部变量 原始文本, 文本型<br /> .局部变量 整理后文本, 文本型<br /> <br /> ' 原始测试文本（和你提供的完全一致）<br /> 原始文本 ＝ “张三是1班，” ＋ #换行符 ＋ “李四是1班，” ＋ #换行符 ＋ “王五是2班，” ＋ #换行符 ＋ “陆六是1班，” ＋ #换行符 ＋ “赵七是3班，” ＋ #换行符 ＋ “黄八是2班，” ＋ #换行符 ＋ “白九是1班，”<br /> <br /> ' 调用整理函数<br /> 整理后文本 ＝ 整理班级名单 (原始文本)<br /> <br /> ' 输出结果（调试框查看）<br /> 调试输出 (“===== 整理后结果 =====”)<br /> 调试输出 (整理后文本)<br /> <br /> 返回 (0)

694336034

1.e (7.78 KB, 下载次数: 3)

3 天前 上传

点击文件名下载附件

不让我贴代码我直接上源码把

补充内容 (2026-2-19 20:14):
逻辑原因都有备注，便于你理解

Ruang

精易模块

haoren1212

json是最方便的，看你怎么写。就算用文件夹和文件都行，文件夹名为年级名，文件名为班级名，文件内容为成员名称

RainCharm

  

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

变量名	类 型	静态	数组	备 注
s	文本型		0
i	整数型
人名	文本型
人名1	文本型
人名2	文本型

s ＝ 分割文本 ( #常量2, #换行符, )
计次循环首 (取数组成员数 (s), i)
判断 (寻找文本 (s [i], “1”, , 假) ≠ -1)
人名 ＝ 人名 ＋ 取文本左边 (s [i], 4) ＋ “、”
判断 (寻找文本 (s [i], “2”, , 假) ≠ -1)
人名1 ＝ 人名1 ＋ 取文本左边 (s [i], 4) ＋ “、”
判断 (寻找文本 (s [i], “3”, , 假) ≠ -1)
人名2 ＝ 人名2 ＋ 取文本左边 (s [i], 4) ＋ “、”



计次循环尾 ()
如果真 (人名 ≠ “”)
人名 ＝ 取文本左边 (人名, 取文本长度 (人名) － 2) ＋ “是1班”
调试输出 (人名)
如果真 (人名1 ≠ “”)
人名 ＝ 取文本左边 (人名1, 取文本长度 (人名1) － 2) ＋ “是2班”
调试输出 (人名)
如果真 (人名2 ≠ “”)
人名 ＝ 取文本左边 (人名2, 取文本长度 (人名2) － 2) ＋ “是3班”
调试输出 (人名)

开始运行被调试程序
*
* “张三、李四、陆六、白九是1班”
* “王五、黄八是2班”
* “赵七是3班”
被调试易程序运行完毕

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 s, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 人名, 文本型<br /> .局部变量 人名1, 文本型<br /> .局部变量 人名2, 文本型<br /> <br /> <br /> s ＝ 分割文本 (#常量2, #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (s), i)<br />     .判断开始 (寻找文本 (s <i>, “1”, , 假) ≠ -1)<br />         人名 ＝ 人名 ＋ 取文本左边 (s <i>, 4) ＋ “、”<br />     .判断 (寻找文本 (s <i>, “2”, , 假) ≠ -1)<br />         人名1 ＝ 人名1 ＋ 取文本左边 (s <i>, 4) ＋ “、”<br />     .判断 (寻找文本 (s <i>, “3”, , 假) ≠ -1)<br />         人名2 ＝ 人名2 ＋ 取文本左边 (s <i>, 4) ＋ “、”<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (人名 ≠ “”)<br />     人名 ＝ 取文本左边 (人名, 取文本长度 (人名) － 2) ＋ “是1班”<br />     调试输出 (人名)<br /> .如果真结束<br /> .如果真 (人名1 ≠ “”)<br />     人名 ＝ 取文本左边 (人名1, 取文本长度 (人名1) － 2) ＋ “是2班”<br />     调试输出 (人名)<br /> .如果真结束<br /> .如果真 (人名2 ≠ “”)<br />     人名 ＝ 取文本左边 (人名2, 取文本长度 (人名2) － 2) ＋ “是3班”<br />     调试输出 (人名)<br /> .如果真结束<br /> <br /> <br /> 开始运行被调试程序<br /> *<br /> * “张三、李四、陆六、白九是1班”<br /> * “王五、黄八是2班”<br /> * “赵七是3班”<br /> 被调试易程序运行完毕

这种就是普通数组方式取出，只是写个列子给你参考一下

shenying408

先建一个数据类型，人名和班级，创建变量，取文本左边，取是之前的人名加入变量.人名，然后用取文本中间，取是和班中间的数字加入变量.班级，然后几个班就建几个变量，判断数字是1