|
楼主 |
发表于 2024-5-14 20:00:38
|
显示全部楼层
浙江省台州市
.版本 2
.支持库 EThread
.支持库 iext
.程序集 窗口程序集_启动窗口
.程序集变量 重复的数组位置, 整数型
.程序集变量 c, 整数型
.程序集变量 批量添加, 整数型
.程序集变量 b, 整数型
.子程序 _打开_被单击
通用对话框1.类型 = 0
通用对话框1.默认文件后缀 = “*.txt”
通用对话框1.过滤器 = “文本文件|*.txt”
通用对话框1.文件名 = “”
.如果真 (通用对话框1.打开 () = 真)
文件存留数据 = 到文本 (读入文件 (通用对话框1.文件名))
读取后的文本 = 分割文本 (文件存留数据, #换行符, )
共有的数组 = 取数组成员数 (读取后的文本)
启动线程 (&线程读取, , )
.如果真结束
.子程序 线程读取
.计次循环首 (共有的数组, i)
已经加载 = 已经加载 + 1
超级列表框2.插入表项 (i - 1, 读取后的文本 [i], , , , )
标签3.标题 = 到文本 (共有的数组 - 已经加载)
.计次循环尾 ()
标签3.标题 = “条数:” + 到文本 (超级列表框2.取表项数 ())
.子程序 _统计_被单击
.局部变量 选择框, 选择框
.局部变量 j, 整数型
.局部变量 出现数, 整数型
.局部变量 pcs, 整数型
.局部变量 文本, 文本型
.局部变量 文本组, 文本型, , "0"
.局部变量 k, 整数型
.局部变量 s, 整数型
.局部变量 新文本, 文本型, , "0"
.局部变量 记录, 逻辑型
.计次循环首 (4, j)
选择框 = 取标记组件 (j)
.如果真 (选择框.选中) ' 由于你是 选择框 所以 取最后的选中结果 比如 你选中了 3个相同数 或者9个相同数 这里以 9个相同数
出现数 = j + 2 ' 3是开始
.如果真结束
处理事件 ()
.计次循环尾 ()
pcs = 超级列表框2.取表项数 ()
' 编辑框2.内容 = “”
.计次循环首 (pcs, j)
' 重定义数组 (新文本, 假, 0)
文本 = 超级列表框2.取标题 (j - 1, )
文本组 = 分割文本 (文本, “ ”, )
.计次循环首 (取数组成员数 (文本组), k)
s = 数组_取次数 (文本组, 文本组 [k])
.如果真 (s = 出现数)
' 加入成员 (新文本, 文本组 [k])
编辑框2.加入文本 (文本组 [k] + “ ”)
记录 = 真
.如果真结束
处理事件 ()
.计次循环尾 ()
.如果真 (记录)
编辑框2.加入文本 (“ ” + “(” + 到文本 (出现数) + “)” + #换行符)
记录 = 假
.如果真结束
处理事件 ()
.计次循环尾 ()
|
|