6月2号 看需求写代码活动第五期开始！

傲风‖桷酉告

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 文本, 文本型
   
6. .局部变量 文件号, 整数型
   
7. .局部变量 分割结果, 文本型, , "0"
   
8. .局部变量 a, 整数型
   
9. .局部变量 二次结果, 文本型, , "0"
   
10. .局部变量 索引, 整数型
    
11. .局部变量 总数, 整数型
    
12. 
    
13. 文件号 ＝ 打开文件 (“C:\Documents and Settings\Administrator\桌面\qq文件.txt”, , )
    
14. 文本 ＝ 读入文本 (文件号, )
    
15. 分割结果 ＝ 分割文本 (文本, #换行符, )
    
16. 
    
17. 总数 ＝ 取数组成员数 (分割结果)
    
18. 
    
19. .计次循环首 (总数, a)
    
20. 
    
21.     二次结果 ＝ 分割文本 (分割结果 [a], “----”, )
    
22.     索引 ＝ 超级列表框1.插入表项 (, 二次结果 [1], , , 2, )
    
23.     超级列表框1.置标题 (索引, 1, 二次结果 [2])
    
24. 
    
25. .计次循环尾 ()
    

复制代码

fzb0225

只会同目录下的

￠刀丛里的诗

来参加了
号码管理.rar (1.36 KB, 下载次数: 10)

2011-5-31 21:27 上传

点击文件名下载附件

fsjoe

我来交作业了..支持版主的活动

exit11

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 临时文本1, 文本型, , "0"
.局部变量 临时文本2, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 索引, 整数型

.如果真 (通用对话框1.打开 ())
    文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))
    临时文本1 ＝ 分割文本 (文本, #换行符, )
    .计次循环首 (取数组成员数 (临时文本1), x)
        临时文本2 ＝ 分割文本 (临时文本1 [x], “----”, )
        .如果真 (取数组成员数 (临时文本2) ＝ 2)
            索引 ＝ 超级列表框1.插入表项 (, , , , , )
            超级列表框1.置标题 (索引, 0, 临时文本2 [1])
            超级列表框1.置标题 (索引, 1, 临时文本2 [2])
        .如果真结束

    .计次循环尾 ()

yaoming110

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 qq文本, 文本型
   
6. .局部变量 qq文本分割结果, 文本型, , "0"
   
7. .局部变量 计次, 整数型
   
8. .局部变量 qq总数, 整数型
   
9. .局部变量 号密分割结果, 文本型, , "2"
   
10. .局部变量 位置索引, 整数型
    
11. 
    
12. qq文本 ＝ 到文本 (读入文件 (“C:\Documents and Settings\Administrator\桌面\qq.txt”))
    
13. qq文本分割结果 ＝ 分割文本 (qq文本, #换行符, )
    
14. 
    
15. qq总数 ＝ 取数组成员数 (qq文本分割结果)
    
16. 
    
17. .计次循环首 (qq总数, 计次)
    
18.     号密分割结果 ＝ 分割文本 (qq文本分割结果 [计次], “----”, )
    
19.     .如果真 (取数组成员数 (号密分割结果) ≠ 2)
    
20.         到循环尾 ()
    
21.     .如果真结束
    
22.     位置索引 ＝ 超级列表框1.插入表项 (, 号密分割结果 [1], , , 2, )
    
23.     超级列表框1.置标题 (位置索引, 1, 号密分割结果 [2])
    
24. 
    
25. .计次循环尾 ()
    

复制代码

金哥专用

敬请查收：

精易⌒小傷

完成作业了..

逆风啊

刚做的，用的冒泡排序，看看

fzb0225

第二次.rar (1.07 KB, 下载次数: 3)

2011-5-30 22:41 上传

点击文件名下载附件
来晚了  忘掉了{:3_231:}