小白求大佬帮下忙，保存的数据是自下而上依次保存

akzpwy

保存的数据是自下而上依次保存，不会因为其他因素造成保存排序混乱（期号顺序，时间顺序），并保证保存数据的唯一性

931691974

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
temp	文本型
正则	正则表达式类
数量	整数型
i	整数型
text	文本型
局_文件号	整数型
数据内容	文本型
gameNo	文本型
endTime	文本型
lotTime	文本型
数据内容分割	文本型		0
记录标记	文本型
排序后的数组	文本型		0

temp ＝ #常量1
正则.创建 (“({” ＋ #引号 ＋ “id” ＋ #引号 ＋ “)”, temp, , , , )
temp ＝ 正则.替换 ( #换行符 ＋ “$1”)
文本_文本数组排序 (分割文本 (temp, #换行符, ), 排序后的数组, 假)
temp ＝ “”
局_文件号 ＝ 打开文件 (取运行目录 () ＋ “/保存数据.ini”, 6, 1)
移到文件尾 (局_文件号)
计次循环首 (取数组成员数 (排序后的数组), i)
如果真 (排序后的数组 [i] ＝ “”)
到循环尾 ()
正则.创建 ( #取信息, 排序后的数组 [i], , , , )
gameNo ＝ 正则.取子匹配文本 (1, 1, )
endTime ＝ 正则.取子匹配文本 (1, 2, )
lotTime ＝ 正则.取子匹配文本 (1, 3, )
记录标记 ＝ gameNo
调试输出 (记录标记)
text ＝ gameNo ＋ “    ” ＋ endTime ＋ “    ” ＋ lotTime ＋ “    ” ＋ 到文本 (i)
写文本行 (局_文件号, text)
计次循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 temp, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 text, 文本型<br /> .局部变量 局_文件号, 整数型<br /> .局部变量 数据内容, 文本型<br /> .局部变量 gameNo, 文本型<br /> .局部变量 endTime, 文本型<br /> .局部变量 lotTime, 文本型<br /> .局部变量 数据内容分割, 文本型, , "0"<br /> .局部变量 记录标记, 文本型<br /> .局部变量 排序后的数组, 文本型, , "0"<br /> <br /> temp ＝ #常量1<br /> 正则.创建 (“({” ＋ #引号 ＋ “id” ＋ #引号 ＋ “)”, temp, , , , )<br /> temp ＝ 正则.替换 (#换行符 ＋ “$1”)<br /> 文本_文本数组排序 (分割文本 (temp, #换行符, ), 排序后的数组, 假)<br /> temp ＝ “”<br /> 局_文件号 ＝ 打开文件 (取运行目录 () ＋ “/保存数据.ini”, 6, 1)<br /> 移到文件尾 (局_文件号)<br /> .计次循环首 (取数组成员数 (排序后的数组), i)<br />     .如果真 (排序后的数组 <i> ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br />     正则.创建 (#取信息, 排序后的数组 <i>, , , , )<br />     gameNo ＝ 正则.取子匹配文本 (1, 1, )<br />     endTime ＝ 正则.取子匹配文本 (1, 2, )<br />     lotTime ＝ 正则.取子匹配文本 (1, 3, )<br />     记录标记 ＝ gameNo<br />     调试输出 (记录标记)<br />     text ＝ gameNo ＋ “    ” ＋ endTime ＋ “    ” ＋ lotTime ＋ “    ” ＋ 到文本 (i)<br />     写文本行 (局_文件号, text)<br /> .计次循环尾 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

补充内容 (2025-7-13 19:31):
关闭文件 (局_文件号)
返回 (0)  ' 可以根据您的需要返回任意数值

akzpwy

931691974 发表于 2025-7-13 19:29
[e=1].版本 2
.支持库 spec

很感谢您费心了，这个效果和期望值相差较大，我换个别的方式处理，最佳给您，后来删帖。