筛选相同行 超级列表框的问题

fjsystem

用TXT做数据库，
想筛出姓名相同行， 按钮2后，超级

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
联系人	文本型		0
通讯录	文本型
内容	文本型		0
i	整数型
索引	整数型

超级列表框1.全部删除 ()
通讯录 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\通讯录.txt”))
联系人 ＝ 分割文本 (通讯录, #换行符, )
计次循环首 (取数组成员数 (联系人), i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
内容 ＝ 分割文本 (联系人 [i], “-”, )
超级列表框1.置标题 (索引, 0, 内容 [1])
超级列表框1.置标题 (索引, 1, 内容 [2])
超级列表框1.置标题 (索引, 2, 内容 [3])
计次循环尾 ()

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

' 筛出姓名相同行， 按钮后，超级列表框1只显示姓名相同的行，不要在另外超级列表框或控件中显示，有几行显几行。

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 联系人, 文本型, , "0"<br /> .局部变量 通讯录, 文本型<br /> .局部变量 内容, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 通讯录 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\通讯录.txt”))<br /> 联系人 ＝ 分割文本 (通讯录, #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (联系人), i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     内容 ＝ 分割文本 (联系人 <i>, “-”, )<br />     超级列表框1.置标题 (索引, 0, 内容 [1])<br />     超级列表框1.置标题 (索引, 1, 内容 [2])<br />     超级列表框1.置标题 (索引, 2, 内容 [3])<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> <br /> ' 筛出姓名相同行， 按钮后，超级列表框1只显示姓名相同的行，不要在另外超级列表框或控件中显示，有几行显几行。

列表框1只显示姓名相同的行，不要在另外超级列表框或控件中显示，有几行显几行，不合并。谢谢大神们！！！

阿桂桂

瞎搞了。。。。。。。。。。