超级列表框小问题

haohaode

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

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

子程序名	返回值类型	公开	备 注
_按钮_导入账号_被单击

变量名	类 型	静态	数组	备 注
分割符	文本型
文本	文本型
i	整数型
账号	文本型
密码	文本型

通用对话框1.类型 ＝ 0
通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.过滤器 ＝ “文本文档|*.txt”
分割符 ＝ “----”
如果 (通用对话框1.打开 ())
文本 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
计次循环首 (取数组成员数 (文本), i)
账号 ＝ 文本_取左边 (文本 [i], 分割符, )
密码 ＝ 文本_取右边 (文本 [i], 分割符, )
调试输出 (账号, 密码)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _超级列表框1_当前表项被改变<br /> <br /> <br /> <br /> .子程序 _按钮_导入账号_被单击<br /> .局部变量 分割符, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 账号, 文本型<br /> .局部变量 密码, 文本型<br /> <br /> 通用对话框1.类型 ＝ 0<br /> 通用对话框1.初始目录 ＝ 取运行目录 ()<br /> 通用对话框1.过滤器 ＝ “文本文档|*.txt”<br /> 分割符 ＝ “----”<br /> .如果 (通用对话框1.打开 ())<br /> 文本 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )<br /> .计次循环首 (取数组成员数 (文本), i)<br /> 账号 ＝ 文本_取左边 (文本 <i>, 分割符, )<br /> 密码 ＝ 文本_取右边 (文本 <i>, 分割符, )<br /> 调试输出 (账号, 密码)<br /> .计次循环尾 ()<br /> .否则

执行出错  刚才有人回答错了 害我损失了7分  望大神执行了 再回答 在线等

小侯

这样的效果么？

1. .版本 2
   
2. .支持库 spec
   
3. .支持库 iext
   
4. 
   
5. .子程序 _按钮_导入账号_被单击
   
6. .局部变量 分割符, 文本型
   
7. .局部变量 文本, 文本型, , "0"
   
8. .局部变量 i, 整数型
   
9. .局部变量 账号, 文本型
   
10. .局部变量 密码, 文本型
    
11. .局部变量 分割, 文本型, , "0"
    
12. .局部变量 s, 整数型
    
13. 
    
14. 通用对话框1.类型 ＝ 0
    
15. 通用对话框1.初始目录 ＝ 取运行目录 ()
    
16. 通用对话框1.过滤器 ＝ “文本文档|*.txt”
    
17. 分割符 ＝ “----”
    
18. .如果 (通用对话框1.打开 ())
    
19.     文本 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
    
20.     .计次循环首 (取数组成员数 (文本), i)
    
21.         分割 ＝ 分割文本 (文本 [i], “----”, )
    
22.         .如果真 (取数组成员数 (分割) ＞ 1)
    
23.             账号 ＝ 分割 [1]
    
24.             密码 ＝ 分割 [2]
    
25.             调试输出 (账号, 密码)
    
26.             s ＝ 超级列表框1.插入表项 (, , , , , )
    
27.             超级列表框1.置标题 (s, 0, 账号)
    
28.             超级列表框1.置标题 (s, 1, 密码)
    
29.         .如果真结束
    
30. 
    
31. 
    
32.     .计次循环尾 ()
    

复制代码