超级列表框取相同

jian031

这是txt文本：
asdf----8----4----4----4
zxcv----8----4----4----4
qwer----8----4----4----4
asdf----8----4----4----3
ghju----8----4----4----4
rtyf----8----4----4----4
asdf----8----4----2----4
rtyh----8----4----4----4
iuyt----7----4----8----4
rtyf----8----5----6----8
qwer----8----5----7----6

桃桃

源码： 桌面.rar (1.78 KB, 下载次数: 29)

2012-3-10 01:45 上传

点击文件名下载附件


补充内容 (2012-3-10 01:47):
差了个没有就提示，但是还是会显示全部txt内容。大半夜的，你的错别字也多，就没看清楚需要没有就提示的要求。

jian031

显示为：
5         4        3       2         1        这是表项
qwer    8        4       4          4       这是搜索之后显示的
qwer    8        5        7         6      同上↑

kingsee

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 文本数组1, 文本型, , "0"
   
6. .局部变量 i, 整数型
   
7. .局部变量 文本数组2, 文本型, , "0"
   
8. .局部变量 文本数组3, 文本型, , "0"
   
9. .局部变量 n
   
10. 
    
11. 超级列表框1.全部删除 ()
    
12. 文本数组1 ＝ 分割文本 (到文本 (读入文件 (“这里写你txt文本的路径”)), #换行符, )
    
13. .计次循环首 (取数组成员数 (文本数组1), i)
    
14.     .如果真 (文本数组1 [i] ＝ 编辑框1.内容)
    
15.         加入成员 (文本数组2, 文本数组1 [i])
    
16.     .如果真结束
    
17. 
    
18. .计次循环尾 ()
    
19. .计次循环首 (取数组成员数 (文本数组2), i)
    
20.     文本数组3 ＝ 分割文本 (文本数组2 [i], “----”, )
    
21.     超级列表框1.插入表项 (, , , , , )
    
22.     .计次循环首 (5, n)
    
23.         超级列表框1.置标题 (i － 1, n － 1, 文本数组3 [n])
    
24.     .计次循环尾 ()
    
25. 
    
26. .计次循环尾 ()
    

复制代码