超级编辑框置标题问题

追昂监督

老师们好， 如图 我想超级编辑框结果为
13
24  但是不会 求教.跪谢。




.版本 2
.支持库 iext

.局部变量 数组, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 a, 整数型
.局部变量 文本, 文本型, , "0"
.局部变量 b, 整数型

文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
b ＝ 文本_取行数 (编辑框1.内容)
.计次循环首 (取数组成员数 (文本), i)
    .如果 (b ÷ 4 ≥ i)
        a ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (a, 0, 到文本 (文本 [i]))

    .否则

    .如果结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (文本), i)
    .如果 (b ÷ 2 ≥ i)
        .如果 (i ＞ b ÷ 4)

            超级列表框1.置标题 (a, 1, 到文本 (文本 [i]))

        .否则

        .如果结束

    .否则

    .如果结束

.计次循环尾 ()

zainex

倍数可以自己调整：

  

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

变量名	类 型	静态	数组	备 注
倍数	整数型
数组	文本型		0
值	整数型
索引	整数型		0
数量	整数型
数	整数型
行数	整数型
量	整数型
剩余	整数型

倍数 ＝ 4
超级列表框1.全部删除 ()
计次循环首 (超级列表框1.取列数 (), )
超级列表框1.删除列 (0)
计次循环尾 ()
计次循环首 (倍数, 数)
超级列表框1.插入列 (-1, 到文本 (数), , , , )
计次循环尾 ()
数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
数量 ＝ 取数组成员数 (数组)
值 ＝ 1
行数 ＝ 数量 ÷ 倍数
重定义数组 (索引, 假, 行数)
计次循环首 (行数, 量)
索引 [量] ＝ 超级列表框1.插入表项 (, , , , , )
计次循环尾 ()
计次循环首 (倍数, 数)
如果真 (值 ＋ 行数 － 1 ＞ 数量)
跳出循环 ()
计次循环首 (行数, 量)
超级列表框1.置标题 (索引 [量], 数 － 1, 数组 [值 ＋ 量 － 1])
计次循环尾 ()
值 ＝ 值 ＋ 行数
计次循环尾 ()
剩余 ＝ 数量 ％ 倍数
如果真 (剩余 ≠ 0)
如果真 (倍数 ＜ 数)
数 ＝ 1
清除数组 (索引)
计次循环首 (剩余, )
加入成员 (索引, 超级列表框1.插入表项 (, , , , , ))
计次循环尾 ()
计次循环首 (剩余, 量)
超级列表框1.置标题 (索引 [量], 数 － 1, 数组 [值 ＋ 量 － 1])
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 倍数, 整数型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 值, 整数型<br /> .局部变量 索引, 整数型, , "0"<br /> .局部变量 数量, 整数型<br /> .局部变量 数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 量, 整数型<br /> .局部变量 剩余, 整数型<br /> <br /> 倍数 ＝ 4<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (超级列表框1.取列数 (), )<br />     超级列表框1.删除列 (0)<br /> .计次循环尾 ()<br /> .计次循环首 (倍数, 数)<br />     超级列表框1.插入列 (-1, 到文本 (数), , , , )<br /> .计次循环尾 ()<br /> 数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 数量 ＝ 取数组成员数 (数组)<br /> 值 ＝ 1<br /> 行数 ＝ 数量 ÷ 倍数<br /> 重定义数组 (索引, 假, 行数)<br /> .计次循环首 (行数, 量)<br />     索引 [量] ＝ 超级列表框1.插入表项 (, , , , , )<br /> .计次循环尾 ()<br /> .计次循环首 (倍数, 数)<br />     .如果真 (值 ＋ 行数 － 1 ＞ 数量)<br />         跳出循环 ()<br />     .如果真结束<br />     .计次循环首 (行数, 量)<br />         超级列表框1.置标题 (索引 [量], 数 － 1, 数组 [值 ＋ 量 － 1])<br />     .计次循环尾 ()<br />     值 ＝ 值 ＋ 行数<br /> .计次循环尾 ()<br /> 剩余 ＝ 数量 ％ 倍数<br /> .如果真 (剩余 ≠ 0)<br />     .如果真 (倍数 ＜ 数)<br />         数 ＝ 1<br />         清除数组 (索引)<br />         .计次循环首 (剩余, )<br />             加入成员 (索引, 超级列表框1.插入表项 (, , , , , ))<br />         .计次循环尾 ()<br />     .如果真结束<br />     .计次循环首 (剩余, 量)<br />         超级列表框1.置标题 (索引 [量], 数 － 1, 数组 [值 ＋ 量 － 1])<br />     .计次循环尾 ()

列标题的数量会变成与倍数一致，但是倍数不能小于1：

追昂监督

就是想要3上面的空行消失  让3在第一行 4在第二行

黑咖啡

那5678在第几行

zainex

每次先尝试插入两行，然后再置标题：

  

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

变量名	类 型	静态	数组	备 注
数组	文本型		0
值	整数型
索引1	整数型
索引2	整数型
数量	整数型
数	整数型

超级列表框1.全部删除 ()
数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
数量 ＝ 取数组成员数 (数组)
值 ＝ 1
循环判断首 ()
索引1 ＝ 超级列表框1.插入表项 (, , , , , )
索引2 ＝ 超级列表框1.插入表项 (, , , , , )
计次循环首 (超级列表框1.取列数 (), 数)
如果真 (值 ＋ 1 ＞ 数量)
跳出循环 ()
超级列表框1.置标题 (索引1, 数 － 1, 数组 [值])
超级列表框1.置标题 (索引2, 数 － 1, 数组 [值 ＋ 1])
值 ＝ 值 ＋ 2
计次循环尾 ()
循环判断尾 (值 ＜ 数量)
如果真 (数量 ％ 2 ≠ 0)
调试输出 (数)
如果真 (超级列表框1.取列数 () ＜ 数)
数 ＝ 1
索引1 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引1, 数 － 1, 数组 [值])

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 值, 整数型<br /> .局部变量 索引1, 整数型<br /> .局部变量 索引2, 整数型<br /> .局部变量 数量, 整数型<br /> .局部变量 数, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 数量 ＝ 取数组成员数 (数组)<br /> 值 ＝ 1<br /> .循环判断首 ()<br />     索引1 ＝ 超级列表框1.插入表项 (, , , , , )<br />     索引2 ＝ 超级列表框1.插入表项 (, , , , , )<br />     .计次循环首 (超级列表框1.取列数 (), 数)<br />         .如果真 (值 ＋ 1 ＞ 数量)<br />             跳出循环 ()<br />         .如果真结束<br />         超级列表框1.置标题 (索引1, 数 － 1, 数组 [值])<br />         超级列表框1.置标题 (索引2, 数 － 1, 数组 [值 ＋ 1])<br />         值 ＝ 值 ＋ 2<br />     .计次循环尾 ()<br /> .循环判断尾 (值 ＜ 数量)<br /> .如果真 (数量 ％ 2 ≠ 0)<br />     调试输出 (数)<br />     .如果真 (超级列表框1.取列数 () ＜ 数)<br />         数 ＝ 1<br />         索引1 ＝ 超级列表框1.插入表项 (, , , , , )<br />     .如果真结束<br />     超级列表框1.置标题 (索引1, 数 － 1, 数组 [值])<br /> .如果真结束

效果：

完整代码.zip (1.7 KB, 下载次数: 0)

5 天前 上传

点击文件名下载附件

追昂监督

黑咖啡 发表于 2025-5-21 14:34
那5678在第几行

5678 还没写打算先解决这个  打算写成
1357
2468

追昂监督

zainex 发表于 2025-5-21 15:36
每次先尝试插入两行，然后再置标题：
[e=1].版本 2
.支持库 iext

大佬谢谢了  其实 我打算是 这样    比如 右边输入一组   都是4倍数的行数 然后 会自动分成四列 在
1 2 3 4 这样自动列下来的话有办法吗   比如 我输入 1-16
那就是
1 5   9   13
2 6  10  14
3 7  11  15
4 8  12  16
有办法吗，跪求大佬

补充内容 (2025-5-21 16:14):
右边一定是四的倍数 ，到左边分成四列 这样子