内容对比求助

我很低调

Desktop.zip (1.54 KB, 下载次数: 5)

2026-7-19 10:35 上传

点击文件名下载附件 要求读入txt 和组合框里面的所有项目内容筛选对比 组合框里面存在的 就加入到列表框 不存在就不加入谢谢！

lipzzzz

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

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 n, 整数型
.局部变量 j, 整数型
.局部变量 内容, 文本型
.局部变量 分割, 文本型, , "0", 0000000000000000
.局部变量 分割1, 文本型, , "0"
.局部变量 条数, 文本型, , "0"

内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “/123.txt”))
分割 ＝ 分割文本 (内容, #换行符, )
调试输出 (分割)
.计次循环首 (组合框1.取项目数 (), i)
    加入成员 (条数, 组合框1.取项目文本 (i － 1))
.计次循环尾 ()
调试输出 (条数)
.计次循环首 (取数组成员数 (分割), n)
    分割1 ＝ 分割文本 (分割 [n], “------”, )

    .计次循环首 (取数组成员数 (条数), j)
        .如果真 (分割1 [3] ＝ 条数 [j])
            超级列表框1.插入表项 (, , , , , )
            超级列表框1.置标题 (n － 1, 0, 超级列表框1.取表项数 ())
            超级列表框1.置标题 (n － 1, 1, 分割1 [1])
            超级列表框1.置标题 (n － 1, 2, 分割1 [3])
            超级列表框1.置标题 (n － 1, 3, 分割1 [5])

        .如果真结束


    .计次循环尾 ()


.计次循环尾 ()




补充内容 (2026-7-19 11:34):
超级列表框1.全部删除 ()    上面加一下

我很低调

lipzzzz 发表于 2026-7-19 11:33
.版本 2
.支持库 spec
.支持库 iext

不行你这代码 还没我写的好 在等会大家的最优代码！

samll88

  

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

变量名	类 型	静态	数组	备 注
i	整数型
文本	文本型		0
j	整数型
c	整数型

内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “/123.txt”))
分割 ＝ 分割文本 (内容, #换行符, )
计次循环首 (取数组成员数 (分割), i)
如果 (寻找文本 (分割 [i], 组合框1.内容, , 假) ≠ -1)
到循环尾 ()
c ＝ 超级列表框1.插入表项 (, , , , , )
文本 ＝ 分割文本 (分割 [i], “------”, )
超级列表框1.置标题 (c, 0, 文本 [1])
超级列表框1.置标题 (c, 1, 文本 [2])
超级列表框1.置标题 (c, 2, 文本 [3])

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 j, 整数型<br /> .局部变量 c, 整数型<br /> <br /> 内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “/123.txt”))<br /> 分割 ＝ 分割文本 (内容, #换行符, )<br /> .计次循环首 (取数组成员数 (分割), i)<br />     .如果 (寻找文本 (分割 <i>, 组合框1.内容, , 假) ≠ -1)<br />         到循环尾 ()<br />     .否则<br />         c ＝ 超级列表框1.插入表项 (, , , , , )<br />         文本 ＝ 分割文本 (分割 <i>, “------”, )<br />         超级列表框1.置标题 (c, 0, 文本 [1])<br />         超级列表框1.置标题 (c, 1, 文本 [2])<br />         超级列表框1.置标题 (c, 2, 文本 [3])<br />     .如果结束<br /> <br /> .计次循环尾 ()

samll88

  

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

变量名	类 型	静态	数组	备 注
i	整数型
文本	文本型		0
j	整数型
c	整数型

内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “/123.txt”))
分割 ＝ 分割文本 (内容, #换行符, )
计次循环首 (取数组成员数 (分割), i)
如果 (寻找文本 (分割 [i], 组合框1.内容, , 假) ≠ -1)
c ＝ 超级列表框1.插入表项 (, , , , , )
文本 ＝ 分割文本 (分割 [i], “------”, )
超级列表框1.置标题 (c, 0, 文本 [1])
超级列表框1.置标题 (c, 1, 文本 [2])
超级列表框1.置标题 (c, 2, 文本 [3])
到循环尾 ()

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 j, 整数型<br /> .局部变量 c, 整数型<br /> <br /> 内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “/123.txt”))<br /> 分割 ＝ 分割文本 (内容, #换行符, )<br /> .计次循环首 (取数组成员数 (分割), i)<br />     .如果 (寻找文本 (分割 <i>, 组合框1.内容, , 假) ≠ -1)<br />         c ＝ 超级列表框1.插入表项 (, , , , , )<br />         文本 ＝ 分割文本 (分割 <i>, “------”, )<br />         超级列表框1.置标题 (c, 0, 文本 [1])<br />         超级列表框1.置标题 (c, 1, 文本 [2])<br />         超级列表框1.置标题 (c, 2, 文本 [3])<br />     .否则<br />         到循环尾 ()<br />     .如果结束<br /> <br /> .计次循环尾 ()

补充内容 (2026-7-19 12:05):
上面看错条件