超级列表框的问题

tst80tst

原代码是取多列值的代码，现在多列的值合并到一列里了，然后再分，接头取一列的值，跳点取一列。




新建文件夹.rar (1.43 MB, 下载次数: 0)

2020-10-1 17:23 上传

点击文件名下载附件

  

子程序名	返回值类型	公开	备 注
_超级列表框2_当前表项被改变

变量名	类 型	静态	数组	备 注
n	整数型
局_计次	整数型

超级列表框1.全部删除 ()
超级列表框3.全部删除 ()
' 超级列表框2的(接头)到超级列表框3
计次循环首 (9, 局_计次)
如果真 (到数值 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 9 － 1)) ＞ 0)  ' 从超级列表框2的9到17
超级列表框3.插入表项 (, , , , , )
超级列表框3.置标题 (超级列表框3.取表项数 () － 1, 1, 文本_取出中间文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 9 － 1), “”, “(”))  ' 取出括号前的值到超列框第一列
超级列表框3.置标题 (超级列表框3.取表项数 () － 1, 1, 文本_取出中间文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 9 － 1), “(”, “)”))  ' 取出括号内的值到超列框第二列

计次循环尾 ()
' 超级列表框2的(跳点)到超级列表框1
计次循环首 (10, 局_计次)
如果真 (到数值 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 18 － 1)) ＞ 0)  ' 从超级列表框2的18到27
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 文本_取出中间文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 18 － 1), “”, “(”))  ' 取出括号前的值到超列框第一列
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 文本_取出中间文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 18 － 1), “(”, “)”))  ' 取出括号内的值到超列框第二列

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框2_当前表项被改变<br /> .局部变量 n, 整数型<br /> .局部变量 局_计次, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 超级列表框3.全部删除 ()<br /> ' 超级列表框2的(接头)到超级列表框3<br /> .计次循环首 (9, 局_计次)<br />     .如果真 (到数值 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 9 － 1)) ＞ 0)  ' 从超级列表框2的9到17<br />         超级列表框3.插入表项 (, , , , , )<br />         超级列表框3.置标题 (超级列表框3.取表项数 () － 1, 1, 文本_取出中间文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 9 － 1), “”, “(”))  ' 取出括号前的值到超列框第一列<br />         超级列表框3.置标题 (超级列表框3.取表项数 () － 1, 1, 文本_取出中间文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 9 － 1), “(”, “)”))  ' 取出括号内的值到超列框第二列<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' 超级列表框2的(跳点)到超级列表框1<br /> .计次循环首 (10, 局_计次)<br />     .如果真 (到数值 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 18 － 1)) ＞ 0)  ' 从超级列表框2的18到27<br />         超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 文本_取出中间文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 18 － 1), “”, “(”))  ' 取出括号前的值到超列框第一列<br />         超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 文本_取出中间文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 局_计次 ＋ 18 － 1), “(”, “)”))  ' 取出括号内的值到超列框第二列<br />     .如果真结束<br /> <br /> .计次循环尾 ()

菜鸟路过

表项数 先用-分割成数组，在来一个正则 把正则获取的数据插入到新表即可了

tst80tst

自己搞定了，结帖，请管理员删除，谢谢

.版本 2
.支持库 iext

.子程序 _超级列表框2_当前表项被改变
.局部变量 n, 整数型
.局部变量 计次, 整数型
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本, 文本型
.局部变量 索引, 整数型

超级列表框1.全部删除 ()
超级列表框3.全部删除 ()
清除数组 (文本数组)
' 超级列表框2的(接头)到超级列表框3
.计次循环首 (1, 计次)
    文本数组 ＝ 分割文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 计次 ＋ 9 － 1), “-”, )
    .计次循环首 (取数组成员数 (文本数组), 计次)
        索引 ＝ 超级列表框3.插入表项 (计次 － 1, 到文本 (计次), , , , )
        .如果 (文本_取左边 (文本数组 [计次], “(”, , ) ≠ “”)
            超级列表框3.置标题 (索引, 0, 文本_取左边 (文本数组 [计次], “(”, , ))
        .否则
            超级列表框3.置标题 (索引, 0, 文本数组 [计次])
        .如果结束
        超级列表框3.置标题 (索引, 1, 文本_取出中间文本 (文本数组 [计次], “(”, “)”, , ))
    .计次循环尾 ()
.计次循环尾 ()

' 超级列表框2的(跳点)到超级列表框1
.计次循环首 (1, 计次)
    文本数组 ＝ 分割文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 计次 ＋ 18 － 1), “-”, )
    .计次循环首 (取数组成员数 (文本数组), 计次)
        索引 ＝ 超级列表框1.插入表项 (计次 － 1, 到文本 (计次), , , , )
        .如果 (文本_取左边 (文本数组 [计次], “(”, , ) ≠ “”)
            超级列表框1.置标题 (索引, 0, 文本_取左边 (文本数组 [计次], “(”, , ))
        .否则
            超级列表框1.置标题 (索引, 0, 文本数组 [计次])
        .如果结束
        超级列表框1.置标题 (索引, 1, 文本_取出中间文本 (文本数组 [计次], “(”, “)”, , ))
    .计次循环尾 ()
.计次循环尾 ()
[/e]

tst80tst

自己已搞定，请管道员删除， 谢谢

  

子程序名	返回值类型	公开	备 注
_超级列表框2_当前表项被改变

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

超级列表框1.全部删除 ()
超级列表框3.全部删除 ()
清除数组 (文本数组)
' 超级列表框2的(接头)到超级列表框3
计次循环首 (1, 计次)
文本数组 ＝ 分割文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 计次 ＋ 9 － 1), “-”, )
计次循环首 (取数组成员数 (文本数组), 计次)
索引 ＝ 超级列表框3.插入表项 (计次 － 1, 到文本 (计次), , , , )
如果 (文本_取左边 (文本数组 [计次], “(”, , ) ≠ “”)
超级列表框3.置标题 (索引, 0, 文本_取左边 (文本数组 [计次], “(”, , ))
超级列表框3.置标题 (索引, 0, 文本数组 [计次])
超级列表框3.置标题 (索引, 1, 文本_取出中间文本 (文本数组 [计次], “(”, “)”, , ))
计次循环尾 ()
计次循环尾 ()
' 超级列表框2的(跳点)到超级列表框1
计次循环首 (1, 计次)
文本数组 ＝ 分割文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 计次 ＋ 18 － 1), “-”, )
计次循环首 (取数组成员数 (文本数组), 计次)
索引 ＝ 超级列表框1.插入表项 (计次 － 1, 到文本 (计次), , , , )
如果 (文本_取左边 (文本数组 [计次], “(”, , ) ≠ “”)
超级列表框1.置标题 (索引, 0, 文本_取左边 (文本数组 [计次], “(”, , ))
超级列表框1.置标题 (索引, 0, 文本数组 [计次])
超级列表框1.置标题 (索引, 1, 文本_取出中间文本 (文本数组 [计次], “(”, “)”, , ))
计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框2_当前表项被改变<br /> .局部变量 n, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 文本, 文本型<br /> .局部变量 索引, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 超级列表框3.全部删除 ()<br /> 清除数组 (文本数组)<br /> ' 超级列表框2的(接头)到超级列表框3<br /> .计次循环首 (1, 计次)<br />     文本数组 ＝ 分割文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 计次 ＋ 9 － 1), “-”, )<br />     .计次循环首 (取数组成员数 (文本数组), 计次)<br />         索引 ＝ 超级列表框3.插入表项 (计次 － 1, 到文本 (计次), , , , )<br />         .如果 (文本_取左边 (文本数组 [计次], “(”, , ) ≠ “”)<br />             超级列表框3.置标题 (索引, 0, 文本_取左边 (文本数组 [计次], “(”, , ))<br />         .否则<br />             超级列表框3.置标题 (索引, 0, 文本数组 [计次])<br />         .如果结束<br />         超级列表框3.置标题 (索引, 1, 文本_取出中间文本 (文本数组 [计次], “(”, “)”, , ))<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> ' 超级列表框2的(跳点)到超级列表框1<br /> .计次循环首 (1, 计次)<br />     文本数组 ＝ 分割文本 (超级列表框2.取标题 (超级列表框2.现行选中项, 计次 ＋ 18 － 1), “-”, )<br />     .计次循环首 (取数组成员数 (文本数组), 计次)<br />         索引 ＝ 超级列表框1.插入表项 (计次 － 1, 到文本 (计次), , , , )<br />         .如果 (文本_取左边 (文本数组 [计次], “(”, , ) ≠ “”)<br />             超级列表框1.置标题 (索引, 0, 文本_取左边 (文本数组 [计次], “(”, , ))<br />         .否则<br />             超级列表框1.置标题 (索引, 0, 文本数组 [计次])<br />         .如果结束<br />         超级列表框1.置标题 (索引, 1, 文本_取出中间文本 (文本数组 [计次], “(”, “)”, , ))<br />     .计次循环尾 ()<br /> .计次循环尾 ()