单文件制作程序 v7.0.0.9

9001 · 发表于 2020-5-18 14:36:48

本帖最后由 9001 于 2020-5-18 15:02 编辑

527104427 发表于 2020-5-18 14:24
pecmd帮助界面，跳转到list，有详尽解释。
query 后面有行数，则查该行内容，没行数则查所有数据。
add ...

看过了，原来我用的都是精简版，怪不得找不到详细的说明。

精简不精简说明真有差距啊。实际上差0.08M没多少空间嘛

9001 · 发表于 2020-5-18 15:16:07

本帖最后由 9001 于 2020-5-18 15:17 编辑

527104427 发表于 2020-5-18 14:24
pecmd帮助界面，跳转到list，有详尽解释。
query 后面有行数，则查该行内容，没行数则查所有数据。
add ...

5大，第二个应用达不到效果啊，只是产生了100以内的不同数字。

他要求是两队接力赛，每轮对两支队伍排定出场顺序，两队接力出场完毕为一轮。
也就是分别产生两个序列，每个序列10个不同的数。
这个可以模拟计时器周期1秒，瞬间产生。
比如两个队，每队三人，随机三轮接力赛赛程安排：

第一轮：
甲  乙
1 3
3 2
2 1
第二轮：
甲  乙
3 3
1 2
2 1
第三轮：
甲  乙
1 2
3 1
2 3

1.txt出类似这样的结果

红毛樱木 · 发表于 2020-5-18 21:17:55

527104427 发表于 2020-5-18 19:50
第一个问题：

师父，什么时候再带我飞啊

9001 · 发表于 2020-5-19 01:30:57

527104427 发表于 2020-5-18 19:50
第一个问题：

感谢5大！(❁′ω`❁)

应用二 5大的代码实现了主要功能，问题一是没能在第三次停下来，二是每一轮都清空，导致实际输出只有第三轮抽签有结果。

9001 · 发表于 2020-5-19 01:35:57

本帖最后由 9001 于 2020-5-19 01:38 编辑

9001 发表于 2020-5-19 01:30
感谢5大！(❁′ω`❁)

应用二 5大的代码实现了主要功能，问题一是没能在第三次停下来，二 ...

#code=936T950
ENVI^ EnviMode=1
ENVI^ ForceLocal=1
FILE -force "%&CurDir%\11.txt"
PUTF -dd -len=0 "%&CurDir%\11.txt",0,zero
CALC #&i=1+0
WRIT "%&CurDir%\11.txt",$+0, 第%&i%轮:
CALL @autoWALL
_SUB autoWALL,#
TIME &Timer,0, CALL CalcRand
LIST &NumCountA,L0T0W0H0,,,,0x10
LIST &NumCountB,L0T0W0H0,,,,0x10
CALL CalcRand
_END
_SUB CalcRand
ENVI @&Timer=0
HKEY$ #114, --del
ENVI @&NumCountA.Query=10;&Total
IFEX $%&Total%>0,
{
CALC #&i=%&i%+1
IFEX $%&i%<4,WRIT "%&CurDir%\11.txt",$+0, 第%&i%轮:
IFEX $%&i%=4,
{
WRIT "%&CurDir%\11.txt",$+0,A队 B队
EXIT
}
ENVI @&NumCountA.Val=
ENVI @&NumCountB.Val=
}
LOOP #1=1,
{
CALC #&RandNumA=RAND(10)
CALC #&RandNumA=%&RandNumA%+1
ENVI @&NumCountA.SEL=%&RandNumA%
IFEX $%&RandNumA%<>%&NumCountA%,
{
ENVI @&NumCountA.ADDSEL=%&RandNumA%
EXIT
}
}
LOOP #1=1,
{
CALC #&RandNumB=RAND(10)
CALC #&RandNumB=%&RandNumB%+1
ENVI @&NumCountB.SEL=%&RandNumB%
IFEX $%&RandNumB%<>%&NumCountB%,
{
ENVI @&NumCountB.ADDSEL=%&RandNumB%
WRIT "%&CurDir%\11.txt",$+0,%&NumCountA% %&NumCountB%
ENVI @&Timer=1000
HKEY$ #114, ENVI @&Timer=1
EXIT
}
}
_END

复制代码

lhpxs · 发表于 2020-5-19 08:39:18

好给力

9001 · 发表于 2020-5-19 08:42:58

本帖最后由 9001 于 2020-5-19 10:06 编辑

527104427 发表于 2020-5-19 08:11
不错！按你的要求重新弄了一下，3轮抽完退出程序。

#code=936T950

好了！如果加个判断，当A当前值为10时，输出AB两值之间少个空格就更完美了。

那个机器没有注册运行wcs，不过出现提示也是头一次见

9001 · 发表于 2020-5-19 11:13:04

本帖最后由 9001 于 2020-5-19 11:14 编辑

加上判断:

IFEX #%&NumCountA%<>10,WRIT "%&CurDir%\11.txt",$+0,%&NumCountA% %&NumCountB%
IFEX #%&NumCountA%=10,WRIT "%&CurDir%\11.txt",$+0,%&NumCountA% %&NumCountB%

复制代码

有没有办法把这判断搞成一行？条件命令中间用WRIT的话不玩活。

9001 · 发表于 2020-5-19 18:33:17

527104427 发表于 2020-5-19 15:33
与其这样，不如用0补齐吧。

这下完美了，感谢5大帮助解决问题！

1301994096 · 发表于 2020-5-22 18:26:54

请问最新版解压路径可以不创建文件夹吗？比如我打包了6个文件，把解压路径设置在桌面，运行文件后桌面出现一个文件夹，里面才是6个文件。可以直接把6个文件解压在桌面吗？不去创建那个文件夹。怎么设置？谢谢

1301994096 · 发表于 2020-5-22 21:39:12

本帖最后由 1301994096 于 2020-5-22 21:51 编辑

527104427 发表于 2020-5-22 20:24
这。。。“退格键”会用不？，点7下退格键就完事了。

没往这方面想，谢谢，他把我桌面的文件全部删除了，不是只删除释放出来的文件吗？
不论解压在那个文件夹里，都会把这个文件夹清空

brettwang · 发表于 2020-5-22 22:19:41

好工具感谢楼主分享。

at_ape · 发表于 2020-5-22 22:56:29

谢谢分享

zhangqi669 · 发表于 2020-5-23 21:57:41

感谢楼主分析，下载学习

microlaf · 发表于 2020-5-23 23:23:13

527104427 发表于 2020-5-18 19:50
第一个问题：

突然发现5大出手解决了随机数遍历的问题，当真是功力深厚！
这个开机随机换屏可以简单模拟屏保了，虽然不是，但几行代码就实现相近功能，对CPU占用近乎为零，几近完美

zhaotao2018 · 发表于 2020-5-24 12:14:41

谢谢分享

HuAnGkUn · 发表于 2020-5-24 17:12:33

终于露面了，感谢

m68 · 发表于 2020-5-24 18:51:16

谢谢楼主分享！

江南一根葱 · 发表于 2020-5-25 11:01:49

红毛樱木发表于 2020-5-18 21:17
师父，什么时候再带我飞啊

难道红毛也被抛弃了

550 · 发表于 2020-6-2 12:08:09

谢谢共享

LOVPE · 发表于 2020-6-6 22:05:13

单文件看起来简洁，用起来说走就走，大侠风范。

秋虫 · 发表于 2020-6-7 13:15:27

五大的所有都要支持。

5209520 · 发表于 2020-6-7 16:12:33

谢谢共享前来学习

jiayinsong · 发表于 2020-6-8 19:18:24

怎么没有下载连接呀，是没有了吗

yazhiliu · 发表于 2020-6-11 18:41:34

谢谢分享。。。。

ksabc · 发表于 2020-6-12 16:35:14

感谢分享！谢谢

ksabc · 发表于 2020-6-12 16:36:42

感谢分享

enet · 发表于 2020-6-12 17:49:32

希望成为有缘人……

brettwand · 发表于 2020-6-13 09:17:51

谢谢楼主分享！！！前来学习

tlzsw · 发表于 2020-6-13 16:35:39

厉害了哈

		自动登录	找回密码
密码			注册

[原创] 单文件制作程序 v7.0.0.9

点评

点评

点评

点评

点评

点评

点评