归类的问题

694336034

694336034 发表于 2026-2-19 20:09
[e=4].版本 2
.支持库 spec

哈哈，有AI谁还用脑呀

若相守卟离

假如 是 3个班  1 2 3   用分割文本  然后 寻找文本 1 2 3 找到就加入数组 不就行了

若相守卟离

没啥难度吧！！！

  

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

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

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
计次	整数型
索引	整数型
文本	文本型
i	整数型
文本S	文本型

文本数组 ＝ 分割文本 ( #常量1, “，”, )
计次循环首 (取数组成员数 (文本数组), 计次)
如果真 (寻找文本 (文本数组 [计次], “是1班”, , 假) ≠ -1)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
文本 ＝ 文本_取左边 (文本数组 [计次], “是1班”)
计次循环首 (超级列表框1.取表项数 (), i)
文本S ＝ 超级列表框1.取标题 (i － 1, 0)
如果真 (文本S ＝ “”)
超级列表框1.置标题 (i － 1, 0, 文本)
跳出循环 ()

计次循环尾 ()
到循环尾 ()
如果真 (寻找文本 (文本数组 [计次], “是2班”, , 假) ≠ -1)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
文本 ＝ 文本_取左边 (文本数组 [计次], “是2班”)
计次循环首 (超级列表框1.取表项数 (), i)
文本S ＝ 超级列表框1.取标题 (i － 1, 1)
如果真 (文本S ＝ “”)
超级列表框1.置标题 (i － 1, 1, 文本)
跳出循环 ()

计次循环尾 ()
到循环尾 ()
如果真 (寻找文本 (文本数组 [计次], “是3班”, , 假) ≠ -1)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
文本 ＝ 文本_取左边 (文本数组 [计次], “是3班”)
计次循环首 (超级列表框1.取表项数 (), i)
文本S ＝ 超级列表框1.取标题 (i － 1, 2)
如果真 (文本S ＝ “”)
超级列表框1.置标题 (i － 1, 2, 文本)
跳出循环 ()

计次循环尾 ()
到循环尾 ()

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 文本S, 文本型<br /> <br /> 文本数组 ＝ 分割文本 (#常量1, “，”, )<br /> .计次循环首 (取数组成员数 (文本数组), 计次)<br />     .如果真 (寻找文本 (文本数组 [计次], “是1班”, , 假) ≠ -1)<br />         索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         文本 ＝ 文本_取左边 (文本数组 [计次], “是1班”)<br />         .计次循环首 (超级列表框1.取表项数 (), i)<br />             文本S ＝ 超级列表框1.取标题 (i － 1, 0)<br />             .如果真 (文本S ＝ “”)<br />                 超级列表框1.置标题 (i － 1, 0, 文本)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (寻找文本 (文本数组 [计次], “是2班”, , 假) ≠ -1)<br />         索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         文本 ＝ 文本_取左边 (文本数组 [计次], “是2班”)<br />         .计次循环首 (超级列表框1.取表项数 (), i)<br />             文本S ＝ 超级列表框1.取标题 (i － 1, 1)<br />             .如果真 (文本S ＝ “”)<br />                 超级列表框1.置标题 (i － 1, 1, 文本)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (寻找文本 (文本数组 [计次], “是3班”, , 假) ≠ -1)<br />         索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         文本 ＝ 文本_取左边 (文本数组 [计次], “是3班”)<br />         .计次循环首 (超级列表框1.取表项数 (), i)<br />             文本S ＝ 超级列表框1.取标题 (i － 1, 2)<br />             .如果真 (文本S ＝ “”)<br />                 超级列表框1.置标题 (i － 1, 2, 文本)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         到循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

123.e (955.57 KB, 下载次数: 0)

前天 17:40 上传

点击文件名下载附件
自已添加精易模块

shenying408

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 人名, 文本型, , "0"
.局部变量 班级, 文本型, , "0"
.局部变量 一班, 文本型
.局部变量 二班, 文本型
.局部变量 三班, 文本型

文本数组 ＝ 分割文本 (编辑框1.内容, “，” ＋ #换行符, )
重定义数组 (人名, 假, 取数组成员数 (文本数组))
重定义数组 (班级, 假, 取数组成员数 (文本数组))
.计次循环首 (取数组成员数 (文本数组), n)
    人名 [n] ＝ 取文本左边 (文本数组 [n], 寻找文本 (文本数组 [n], “是”, , 假) － 1)
    班级 [n] ＝ 取文本中间 (文本数组 [n], 寻找文本 (文本数组 [n], “是”, , 假) ＋ 2, 1)
    .如果真 (班级 [n] ＝ “1”)
        一班 ＝ 一班 ＋ 人名 [n] ＋ “、”
    .如果真结束
    .如果真 (班级 [n] ＝ “2”)
        二班 ＝ 二班 ＋ 人名 [n] ＋ “，”
    .如果真结束
    .如果真 (班级 [n] ＝ “3”)
        三班 ＝ 三班 ＋ 人名 [n] ＋ “，”

    .如果真结束

.计次循环尾 ()
编辑框2.内容 ＝ 取文本左边 (一班, 取文本长度 (一班) － 2) ＋ “是一班” ＋ #换行符
编辑框2.内容 ＝ 编辑框2.内容 ＋ 取文本左边 (二班, 取文本长度 (二班) － 2) ＋ “是二班” ＋ #换行符
编辑框2.内容 ＝ 编辑框2.内容 ＋ 取文本左边 (三班, 取文本长度 (三班) － 2) ＋ “是三班”