求大佬帮忙，列表合并导出问题

cysgda

111.e (6.81 KB, 下载次数: 7)

2019-4-13 01:32 上传

点击文件名下载附件
先上源码
想实现将列表1和列表2的内容按照序号顺序排列合并导出到编辑框2
希望有大佬帮忙实现一下

inm0nc

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 _按钮2_被单击
   
5. .局部变量 i, 整数型
   
6. .局部变量 数据, 文本型, , "0"
   
7. .局部变量 Int, 整数型
   
8. .局部变量 txt, 文本型
   
9. 
   
10. ' 下边是只导入列表1
    
11. ' 求怎么合并列表1和列表2内容按照行数顺序导入到编辑框2
    
12. 编辑框2.内容 ＝ “”
    
13. .计次循环首 (列表1.取表项数 (), i)
    
14.     加入成员 (数据, 列表1.取标题 (i － 1, 0) ＋ “#FGF” ＋ 列表1.取标题 (i － 1, 1))
    
15. .计次循环尾 ()
    
16. 
    
17. 
    
18. .计次循环首 (列表2.取表项数 (), i)
    
19.     加入成员 (数据, 列表2.取标题 (i － 1, 0) ＋ “#FGF” ＋ 列表2.取标题 (i － 1, 1) ＋ #换行符 ＋ 列表2.取标题 (i － 1, 2) ＋ #换行符 ＋ 列表2.取标题 (i － 1, 3) ＋ #换行符 ＋ 列表2.取标题 (i － 1, 4) ＋ #换行符 ＋ 列表2.取标题 (i － 1, 5) ＋ #换行符 ＋ 列表2.取标题 (i － 1, 6) ＋ #换行符 ＋ 列表2.取标题 (i － 1, 7))
    
20. .计次循环尾 ()
    
21. 数组_排序 (数据)
    
22. Int ＝ 取数组成员数 (数据)
    
23. .计次循环首 (Int, i)
    
24.     txt ＝ txt ＋ 文本_取右边 (数据 [i], “#FGF”) ＋ #换行符
    
25. .计次循环尾 ()
    
26. 编辑框2.内容 ＝ txt
    

复制代码

夜凄清

你的意思就是把列表框1和2里的还原成编辑框里的内容吧

补充内容 (2019-4-13 01:59):
还原成编辑框1 的内容

inm0nc

帮你写好了

够爱

  

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

变量名	类 型	静态	数组	备 注
i	整数型
a	整数型
ii	整数型
iii	整数型

' 下边是只导入列表1
' 求怎么合并列表1和列表2内容按照行数顺序导入到编辑框2
编辑框2.内容 ＝ “”
判断 (到整数 (列表1.取标题 (列表1.取表项数 () － 1, 0)) ＞ 到整数 (列表2.取标题 (列表2.取表项数 () － 1, 0)))
a ＝ 到整数 (列表1.取标题 (列表1.取表项数 () － 1, 0))
a ＝ 到整数 (列表2.取标题 (列表2.取表项数 () － 1, 0))
计次循环首 (a, i)
计次循环首 (列表1.取表项数 (), ii)
判断 (到整数 (列表1.取标题 (ii － 1, 0)) ＝ i)
编辑框2.加入文本 (列表1.取标题 (ii － 1, 0) ＋ #换行符 )
跳出循环 ()



计次循环尾 ()
计次循环首 (列表2.取表项数 (), iii)
如果真 (到整数 (列表2.取标题 (iii － 1, 0)) ＝ i)
编辑框2.加入文本 (列表2.取标题 (iii － 1, 0) ＋ #换行符 )
跳出循环 ()

计次循环尾 ()
计次循环尾 ()
' 自己改对应的~

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 iii, 整数型<br /> <br /> ' 下边是只导入列表1<br /> ' 求怎么合并列表1和列表2内容按照行数顺序导入到编辑框2<br /> 编辑框2.内容 ＝ “”<br /> .判断开始 (到整数 (列表1.取标题 (列表1.取表项数 () － 1, 0)) ＞ 到整数 (列表2.取标题 (列表2.取表项数 () － 1, 0)))<br />     a ＝ 到整数 (列表1.取标题 (列表1.取表项数 () － 1, 0))<br /> .默认<br />     a ＝ 到整数 (列表2.取标题 (列表2.取表项数 () － 1, 0))<br /> .判断结束<br /> .计次循环首 (a, i)<br />     .计次循环首 (列表1.取表项数 (), ii)<br />         .判断开始 (到整数 (列表1.取标题 (ii － 1, 0)) ＝ i)<br />             编辑框2.加入文本 (列表1.取标题 (ii － 1, 0) ＋ #换行符)<br />             跳出循环 ()<br />         .默认<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     .计次循环首 (列表2.取表项数 (), iii)<br />         .如果真 (到整数 (列表2.取标题 (iii － 1, 0)) ＝ i)<br />             编辑框2.加入文本 (列表2.取标题 (iii － 1, 0) ＋ #换行符)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> '自己改对应的~

你的猫

1.e (794.22 KB, 下载次数: 5)

2019-4-13 05:10 上传

点击文件名下载附件