求编程大佬指导

ai185704529

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
排序内容	测试类型
数据	文本型
编	文本型
名	文本型
分	文本型
打开文件号	整数型
正则	正则表达式类
数据2	文本型
行数	整数型

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

变量名	类 型	静态	数组	备 注
循环次	整数型

打开文件号 ＝ 打开文件 (“C:\用户数据\123.ini”, , )  ' 请根据你需要读取的文件更改路径和文件名称
数据 ＝ 读入文本 (打开文件号, )
整理文本 ()
冒泡排序 ()
关闭文件 (打开文件号)
调试输出 (数据)
判断 (文本_寻找文本 (数据, 名) ≠ -1)
写到文件 (“C:\用户数据\123.ini”, 到字节集 (数据2))
超级列表框1.全部删除 ()
计次循环首 (取数组成员数 (排序内容.需要排序文本), 循环次)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “编：”, “|名：”))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “|名：”, “|分：”))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “|分：”, “|”))
计次循环尾 ()
写到文件 (“C:\用户数据\123.ini”, 到字节集 (数据2))
数据2 ＝ “”
超级列表框1.全部删除 ()
计次循环首 (取数组成员数 (排序内容.需要排序文本), 循环次)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “编：”, “|名：”))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “|名：”, “|分：”))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “分：”, “|”))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
整理文本

变量名	类 型	静态	数组	备 注
循环次	整数型
temp	文本型		0

编 ＝ “1”
名 ＝ “ni”
分 ＝ 到文本 (到整数 (分) ＋ 1)
判断 (文本_寻找文本 (数据, 名) ≠ -1)
正则.创建 (“(.*?名：” ＋ 名 ＋ “\|.*?：).*”, 数据)
数据 ＝ 正则.替换 (“$1” ＋ 分 ＋ “|”)
行数 ＝ 文本_取行数 (数据)
数据2 ＝ 文本_插入文本到某行后 (数据, 行数, #换行符 ＋ “编：” ＋ 编 ＋ “|名：” ＋ 名 ＋ “|分：” ＋ 分 ＋ “|”)
排序内容.需要排序文本 ＝ 分割文本 (数据2, #换行符, )
重定义数组 (排序内容.依据排序的内容, 假, 取数组成员数 (排序内容.需要排序文本))
循环次 ＝ 1
判断循环首 (取数组成员数 (排序内容.需要排序文本) ≥ 循环次)
temp ＝ 分割文本 (排序内容.需要排序文本 [循环次], “|”, )
如果 (取数组成员数 (temp) ＝ 3)
排序内容.依据排序的内容 [循环次] ＝ 到整数 (文本区分_只取数字 (temp [3]))


循环次 ＝ 循环次 ＋ 1
判断循环尾 ()

子程序名	返回值类型	公开	备 注
冒泡排序

变量名	类 型	静态	数组	备 注
temp_a	整数型
temp_b	文本型
外循环次	整数型
内循环次	整数型

计次循环首 (取数组成员数 (排序内容.依据排序的内容) － 1, 外循环次)
计次循环首 (取数组成员数 (排序内容.依据排序的内容) － 1, 内循环次)
如果真 (排序内容.依据排序的内容 [内循环次] ＜ 排序内容.依据排序的内容 [内循环次 ＋ 1])
temp_a ＝ 排序内容.依据排序的内容 [内循环次]
排序内容.依据排序的内容 [内循环次] ＝ 排序内容.依据排序的内容 [内循环次 ＋ 1]
排序内容.依据排序的内容 [内循环次 ＋ 1] ＝ temp_a
temp_b ＝ 排序内容.需要排序文本 [内循环次]
排序内容.需要排序文本 [内循环次] ＝ 排序内容.需要排序文本 [内循环次 ＋ 1]
排序内容.需要排序文本 [内循环次 ＋ 1] ＝ temp_b

计次循环尾 ()
计次循环尾 ()

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

调试输出 (数据2)

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

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 排序内容, 测试类型<br /> .程序集变量 数据, 文本型<br /> .程序集变量 编, 文本型<br /> .程序集变量 名, 文本型<br /> .程序集变量 分, 文本型<br /> .程序集变量 打开文件号, 整数型<br /> .程序集变量 正则, 正则表达式类<br /> .程序集变量 数据2, 文本型<br /> .程序集变量 行数, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 循环次, 整数型<br /> <br /> 打开文件号 ＝ 打开文件 (“C:\用户数据\123.ini”, , )  ' 请根据你需要读取的文件更改路径和文件名称<br /> 数据 ＝ 读入文本 (打开文件号, )<br /> 整理文本 ()<br /> 冒泡排序 ()<br /> 关闭文件 (打开文件号)<br /> 调试输出 (数据)<br /> .判断开始 (文本_寻找文本 (数据, 名) ≠ -1)<br />     写到文件 (“C:\用户数据\123.ini”, 到字节集 (数据2))<br />     超级列表框1.全部删除 ()<br />     .计次循环首 (取数组成员数 (排序内容.需要排序文本), 循环次)<br />         超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “编：”, “|名：”))<br />         超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “|名：”, “|分：”))<br />         超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “|分：”, “|”))<br />     .计次循环尾 ()<br /> .默认<br />     写到文件 (“C:\用户数据\123.ini”, 到字节集 (数据2))<br />     数据2 ＝ “”<br />     超级列表框1.全部删除 ()<br />     .计次循环首 (取数组成员数 (排序内容.需要排序文本), 循环次)<br />         超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “编：”, “|名：”))<br />         超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “|名：”, “|分：”))<br />         超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 文本_取出中间文本 (排序内容.需要排序文本 [循环次], “分：”, “|”))<br />     .计次循环尾 ()<br /> .判断结束<br /> <br /> <br /> .子程序 整理文本<br /> .局部变量 循环次, 整数型<br /> .局部变量 temp, 文本型, , "0"<br /> <br /> 编 ＝ “1”<br /> 名 ＝ “ni”<br /> 分 ＝ 到文本 (到整数 (分) ＋ 1)<br /> .判断开始 (文本_寻找文本 (数据, 名) ≠ -1)<br />     正则.创建 (“(.*?名：” ＋ 名 ＋ “\|.*?：).*”, 数据)<br />     数据 ＝ 正则.替换 (“$1” ＋ 分 ＋ “|”)<br /> .默认<br />     行数 ＝ 文本_取行数 (数据)<br />     数据2 ＝ 文本_插入文本到某行后 (数据, 行数, #换行符 ＋ “编：” ＋ 编 ＋ “|名：” ＋ 名 ＋ “|分：” ＋ 分 ＋ “|”)<br /> .判断结束<br /> 排序内容.需要排序文本 ＝ 分割文本 (数据2, #换行符, )<br /> 重定义数组 (排序内容.依据排序的内容, 假, 取数组成员数 (排序内容.需要排序文本))<br /> 循环次 ＝ 1<br /> .判断循环首 (取数组成员数 (排序内容.需要排序文本) ≥ 循环次)<br />     temp ＝ 分割文本 (排序内容.需要排序文本 [循环次], “|”, )<br />     .如果 (取数组成员数 (temp) ＝ 3)<br />         排序内容.依据排序的内容 [循环次] ＝ 到整数 (文本区分_只取数字 (temp [3]))<br />     .否则<br /> <br />     .如果结束<br />     循环次 ＝ 循环次 ＋ 1<br /> .判断循环尾 ()<br /> <br /> .子程序 冒泡排序<br /> .局部变量 temp_a, 整数型<br /> .局部变量 temp_b, 文本型<br /> .局部变量 外循环次, 整数型<br /> .局部变量 内循环次, 整数型<br /> <br /> .计次循环首 (取数组成员数 (排序内容.依据排序的内容) － 1, 外循环次)<br />     .计次循环首 (取数组成员数 (排序内容.依据排序的内容) － 1, 内循环次)<br />         .如果真 (排序内容.依据排序的内容 [内循环次] ＜ 排序内容.依据排序的内容 [内循环次 ＋ 1])<br />             temp_a ＝ 排序内容.依据排序的内容 [内循环次]<br />             排序内容.依据排序的内容 [内循环次] ＝ 排序内容.依据排序的内容 [内循环次 ＋ 1]<br />             排序内容.依据排序的内容 [内循环次 ＋ 1] ＝ temp_a<br />             temp_b ＝ 排序内容.需要排序文本 [内循环次]<br />             排序内容.需要排序文本 [内循环次] ＝ 排序内容.需要排序文本 [内循环次 ＋ 1]<br />             排序内容.需要排序文本 [内循环次 ＋ 1] ＝ temp_b<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 调试输出 (数据2)<br /> <br /> .子程序 __启动窗口_创建完毕

现在遇到了一个问题，在点击排序的时候，我判断了目录下123.ini里有没有这个用户，没有的话就把用户的数据加进123.ini里，然后把里面的所有数据都排列到超级列表框上，但是现在出现了个问题，123.ini里有这个用户的话，却直接清空了ini里所有数据，而且也没有排列到列表框上，。。。。想了我一个小时我都没想明白哪里出了问题。。。

源码附上，望大佬们赐教
test.e (925.38 KB, 下载次数: 0)

2022-6-3 03:51 上传

点击文件名下载附件


补充内容 (2022-6-3 03:59):
问题自己解决了。。。。。。。。。

我就是想写个答题排名小游戏，回答正确的加1分，然后把他们都排列到列表框里，有大佬帮忙优化一下我的代...

ai185704529

卧槽，。。。。。真是通宵搞得脑子坏掉了，刚刚检查了一下是因为我加了个 数据2=“”

ai185704529

问题自己解决了。。。。。。。。。

我就是想写个答题排名小游戏，回答正确的加1分，然后把他们都排列到列表框里，大佬们帮我看看我代码哪里需要优化一下{:3_52:}

Godsteal

当初因为多加了个空格折腾半个月，最后还是一段一段复写才解决问题。

ai185704529

Godsteal 发表于 2022-6-3 09:47
当初因为多加了个空格折腾半个月，最后还是一段一段复写才解决问题。 ...

{:3_44:}这就是代码写多了，脑子短路了