超级列表框导入

BanBy

如何判断，导出账号之前 先判断是否存在，如果存在就不导入跳过进入下一个账号进行判断  账号位置索引1


.版本 2
.支持库 shell
.支持库 iext

.子程序 _导入账号_被选择
.局部变量 a, 文本型
.局部变量 b, 文本型, , "0"
.局部变量 c, 文本型, , "0"
.局部变量 w, 整数型
.局部变量 sy, 整数型

通用对话框1.初始目录 ＝ 取特定目录 (3)
.如果真 (通用对话框1.打开 () ＝ 真)
    a ＝ 到文本 (读入文件 (通用对话框1.文件名))

    b ＝ 分割文本 (a, #换行符, )
    .计次循环首 (取数组成员数 (b), w)
        c ＝ 分割文本 (b [w], “-----”, )
        sy ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (sy, 0, 到文本 (sy ＋ 1))
        超级列表框1.置标题 (sy, 1, c [1])
        超级列表框1.置标题 (sy, 2, c [2])

        .如果真 (取数组成员数 (c) ＝ 3)
            超级列表框1.置标题 (sy, 3, c [3])
        .如果真结束

    .计次循环尾 ()

大司命

  

子程序名	返回值类型	公开	备 注
_导入账号_被选择

变量名	类 型	静态	数组	备 注
a	文本型
b	文本型		0
c	文本型		0
w	整数型
sy	整数型

通用对话框1.初始目录 ＝ 取特定目录 (3)
如果真 (通用对话框1.打开 () ＝ 真)
a ＝ 到文本 (读入文件 (通用对话框1.文件名))
b ＝ 分割文本 (a, #换行符, )
计次循环首 (取数组成员数 (b), w)
c ＝ 分割文本 (b [w], “-----”, )
如果真 (超级列表框1.查找表项 (c [1], , , 1) ＝ -1)
sy ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (sy, 0, 到文本 (sy ＋ 1))
超级列表框1.置标题 (sy, 1, c [1])
超级列表框1.置标题 (sy, 2, c [2])
如果真 (取数组成员数 (c) ＝ 3)
超级列表框1.置标题 (sy, 3, c [3])


计次循环尾 ()

.子程序 _导入账号_被选择<br /> .局部变量 a, 文本型<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 c, 文本型, , "0"<br /> .局部变量 w, 整数型<br /> .局部变量 sy, 整数型<br /> 通用对话框1.初始目录 ＝ 取特定目录 (3)<br /> .如果真 (通用对话框1.打开 () ＝ 真)<br />     a ＝ 到文本 (读入文件 (通用对话框1.文件名))<br />     b ＝ 分割文本 (a, #换行符, )<br />     .计次循环首 (取数组成员数 (b), w)<br />         c ＝ 分割文本 (b [w], “-----”, )<br />         .如果真 (超级列表框1.查找表项 (c [1], , , 1) ＝ -1)<br />             sy ＝ 超级列表框1.插入表项 (, , , , , )<br />             超级列表框1.置标题 (sy, 0, 到文本 (sy ＋ 1))<br />             超级列表框1.置标题 (sy, 1, c [1])<br />             超级列表框1.置标题 (sy, 2, c [2])<br />             .如果真 (取数组成员数 (c) ＝ 3)<br />                 超级列表框1.置标题 (sy, 3, c [3])<br />             .如果真结束<br />         .如果真结束<br />     .计次循环尾 ()<br /> .如果真结束

hanyxiang

不就等于去重复吗？

a小墨

1. .版本 2
   
2. 
   
3. .局部变量 a, 文本型
   
4. .局部变量 b, 文本型, , "0"
   
5. .局部变量 c, 文本型, , "0"
   
6. .局部变量 w, 整数型
   
7. .局部变量 sy, 整数型
   
8. 
   
9. 通用对话框1.初始目录 ＝ 取特定目录 (3)
   
10. .如果真 (通用对话框1.打开 () ＝ 真)
    
11. 
    
12. .如果真结束
    
13. 
    
14. a ＝ 到文本 (读入文件 (通用对话框1.文件名))
    
15. 
    
16. 
    
17. 全局_账号导入 ＝ 全局_账号导入 ＋ a ＋ #换行符
    
18. 
    
19. 
    
20. 
    
21. b ＝ 分割文本 (a, #换行符, )
    
22. .计次循环首 (取数组成员数 (b), w)
    
23. 
    
24. 
    
25.     .如果真 (寻找文本 (b [w], 全局_账号导入, , 假) ＝ -1)
    
26.         c ＝ 分割文本 (b [w], “-----”, )
    
27.         sy ＝ 超级列表框1.插入表项 (, , , , , )
    
28.         超级列表框1.置标题 (sy, 0, 到文本 (sy ＋ 1))
    
29.         超级列表框1.置标题 (sy, 1, c [1])
    
30.         超级列表框1.置标题 (sy, 2, c [2])
    
31.         .如果真 (取数组成员数 (c) ＝ 3)
    
32.             超级列表框1.置标题 (sy, 3, c [3])
    
33.         .如果真结束
    
34. 
    
35. 
    
36.     .如果真结束
    
37. 
    
38. .计次循环尾 ()
    

复制代码

‘’全局_账号导入  设置成全局或集变量
希望采纳