大方小猪 发表于 2026-3-29 09:29:43

想做个抽奖记录脚本，求写法

想做个抽奖记录脚本，求写法：
页面一共保留10条记录，从上往下顶，带下一页(最好是可以无限页)



勤奋小鸟 发表于 2026-3-29 09:29:43

[@main]
#IF
#ACT
MOV S0 　
GetListString ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt 0 S0
#if
#ACT
MOV N$序号0 0
MOV N$序号1 1
MOV N$序号2 2
MOV N$序号3 3
MOV N$序号4 4
MOV N$序号5 5
MOV N$序号6 6
MOV N$序号7 7
MOV N$序号8 8
MOV N$序号9 9
GetStringPos ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt 　
MOV N$总页数 <$STR(N0)>
DIV N$总页数 10
MOV N$当前页 1
MUL N$总页计算 N$总页数 10
#IF
SMALL N$总页计算 <$STR(N0)>
#ACT
INC N$总页数 1
#IF
EQUAL N$总页数 0
#ACT
INC N$总页数 1
#IF
LARGE N0 9999
#ACT
CLEARNAMELIST ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt
AddTextListEx ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt 　
#IF
#ACT
GOTO @出产界面
[@出产界面]
#IF
#ACT
MOV S$通区第0行
MOV S$通区第1行
MOV S$通区第2行
MOV S$通区第3行
MOV S$通区第4行
MOV S$通区第5行
MOV S$通区第6行
MOV S$通区第7行
MOV S$通区第8行
MOV S$通区第9行
GetListString ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt N$序号0 S$通区第0行
GetListString ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt N$序号1 S$通区第1行
GetListString ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt N$序号2 S$通区第2行
GetListString ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt N$序号3 S$通区第3行
GetListString ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt N$序号4 S$通区第4行
GetListString ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt N$序号5 S$通区第5行
GetListString ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt N$序号6 S$通区第6行
GetListString ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt N$序号7 S$通区第7行
GetListString ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt N$序号8 S$通区第8行
GetListString ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt N$序号9 S$通区第9行
#IF
#ACT
MOV S$总页数1 <$STR(N$总页数)>
MOV S$当前页1 <$STR(N$当前页)>
#SAY
<>             <总页数：/FCOLOR=250>{<$STR(S$总页数1)>/FCOLOR=249}<页/FCOLOR=250>\\ \\ \\
<>                                <中奖记录/FCOLOR=242>\\
<>                <$STR(S$通区第0行)>\\
<>                <$STR(S$通区第1行)>\\
<>                <$STR(S$通区第2行)>\\
<>                <$STR(S$通区第3行)>\\
<>                <$STR(S$通区第4行)>\\
<>                <$STR(S$通区第5行)>\\
<>                <$STR(S$通区第6行)>\\
<>                <$STR(S$通区第7行)>\\
<>                <$STR(S$通区第8行)>\\
<>                <$STR(S$通区第9行)>\\
<>                         <上一页/@上一页>   <第页/FCOLOR=70>   <下一页/@下一页>\\ \\ \\
[@上一页]
#if
LARGE N$序号0 0
#ACT
DEC N$当前页 1
DEC N$序号0 10
DEC N$序号1 10
DEC N$序号2 10
DEC N$序号3 10
DEC N$序号4 10
DEC N$序号5 10
DEC N$序号6 10
DEC N$序号7 10
DEC N$序号8 10
DEC N$序号9 10
GOTO @出产界面
#ELSEACT
MESSAGEBOX 当前首页！
BREAK
[@下一页]
#IF
EQUAL N$当前页 <$STR(N$总页数)>
#ACT
MESSAGEBOX 当前最后一页！
#ELSEACT
INC N$当前页 1
INC N$序号0 10
INC N$序号1 10
INC N$序号2 10
INC N$序号3 10
INC N$序号4 10
INC N$序号5 10
INC N$序号6 10
INC N$序号7 10
INC N$序号8 10
INC N$序号9 10
GOTO @出产界面
BREAK

大方小猪 发表于 2026-3-29 09:29:43

就是抽奖后记录到文本内 然后按行抓取 过10个就翻页。。

勤奋小鸟 发表于 2026-3-29 09:29:43

msxiaobi 发表于 2021-6-23 12:06 就是抽奖后记录到文本内 然后按行抓取 过10个就翻页。。
怎么样抓取呢？

可爱小鸟 发表于 2026-3-29 09:29:43

红枫网络 发表于 2021-6-23 11:02 [@main]
#IF
#ACT
GetStringPos ..\\..\\..\\..\\..\\抽奖数据\\抽奖记录\\抽奖记录.txt 　
这行返回的是99999数值再除以10？后面又乘以10？，到底是啥意思？
页: [1]
查看完整版本: 想做个抽奖记录脚本，求写法