超级列表框内容合并

200049749

内容不是固定的，数量也不是固定的。依次从上到下合并为一条数据。

花间一壶酒

赤璃琴殇 发表于 2023-5-4 18:26

  

[/quote]
[e=0].版本 2

子程序名	返回值类型	公开	备 注
合并

变量名	类 型	静态	数组	备 注
i	整数型
数据	文本型

计次循环首 (超级列表框1.取表项数 (), i)
判断 (超级列表框1.取表项数 () ＝ i)
数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 4) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 5)
数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 4) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 5) ＋ “;”

计次循环尾 ()

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

.版本 2<br /> .支持库 iext</blockquote></div><br /> [e=0].版本 2<br /> .支持库 iext<br /> <br /> .子程序 合并<br /> .局部变量 i, 整数型<br /> .局部变量 数据, 文本型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .判断开始 (超级列表框1.取表项数 () ＝ i)<br />         数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 4) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 5)<br />     .默认<br />         数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 4) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 5) ＋ “;”<br />     .判断结束<br /> <br /> .计次循环尾 ()

最后一行不加“；”  就做个判断

花间一壶酒

  

子程序名	返回值类型	公开	备 注
合并

变量名	类 型	静态	数组	备 注
i	整数型
数据	文本型

计次循环首 (超级列表框1.取表项数 (), i)
数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 4) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 5) ＋ “;”
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 合并<br /> .局部变量 i, 整数型<br /> .局部变量 数据, 文本型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 4) ＋ “,” ＋ 超级列表框1.取标题 (i － 1, 5) ＋ “;”<br /> .计次循环尾 ()