求帮助，超级列表框拆分导入，合并导出

cysgda

如图所示
想实现编辑框内容拆分导入两个列表框内

开头为#的和空行导入到列表1里，行数为编辑框内当前行数，空行也导入

字母开头和下边那些前边有空格后边有内容的导入到列表2里
行数也显示当前编辑框内的行数

然后将两个列表内容按照实际行数合并导出TXT

附上文件，希望有大佬帮忙实现一下这个功能！ 拆分编辑框内容导入列表后合并导出.e (123.83 KB, 下载次数: 5)

2019-4-12 02:18 上传

点击文件名下载附件

xiaowg

111.e (6.09 KB, 下载次数: 20)

2019-4-12 08:24 上传

点击文件名下载附件

chjchlove

说得好乱，都不明白你想表达什么，首先用换行符分割所有文本，然后搜索分割后的子文本，带#的文本行插到你想要的列表框，大概思路就是这样子

chjchlove

说得好乱，都不明白你想表达什么，首先用换行符分割所有文本，然后搜索分割后的子文本，带#的文本行插到你想要的列表框，大概思路就是这样子

走一回

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 文本组, 文本型, , "0"
.局部变量 次数, 整数型
.局部变量 sy1, 整数型
.局部变量 sy2

文本组 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (文本组), 次数)
    .如果 (取文本左边 (文本组 [次数], 1) ＝ “#” 或 文本组 [次数] ＝ “”)
        sy1 ＝ 列表1.插入表项 (, , , , , )
        列表1.置标题 (sy1, 0, 到文本 (次数))
        列表1.置标题 (sy1, 1, 文本组 [次数])
    .否则
        sy2 ＝ 列表2.插入表项 (, , , , , )
        列表2.置标题 (sy2, 0, 到文本 (次数))
        列表2.置标题 (sy2, 1, 文本组 [次数])
    .如果结束

.计次循环尾 ()