精易论坛

标题: 求一个逐行和随机读取的例子 [打印本页]

作者: wh1234567 时间: 2025-2-20 17:25
标题: 求一个逐行和随机读取的例子
编辑框1里有多行内容，求一个随机读取行内容到编辑框2里的例子，和逐行读取内容到编辑框2里的例子，这2个例子分别都是每点击一次读取一次，必须全部读取完，不得重复和遗漏。

作者: aipca 时间: 2025-2-20 17:25
服了你最后一次更改了余下的你自己改改吧

取编辑框内容.e

974.24 KB, 下载次数: 1

作者: 憨憨问号 时间: 2025-2-20 17:45
不重复取数组随机成员
1.把数组成员枚举出来，例如5位成员，随机1-5
2.如果随机出的是3，就把3取出来，同时原数组删除3，重新排列数组，此时数组变为1-4，以此类推
3.最终取到0为止，这就是不重复取随机
不重复按顺序取数组成员
1.把数组成员枚举出来，取第一位
2.删除第一位，重新排列数组，此时依然是1-4，继续取第一位
3.取到0为止，这就是不重复按顺序

原理就这么个原理，实现起来也没什么难度，T7等级了，上述有哪里不懂可以搜搜论坛，都有例子

作者: 你的猫 时间: 2025-2-20 17:49

是这个意思么

作者: b0y 时间: 2025-2-20 17:51

1.e (3.76 KB, 下载次数: 2)

作者: aipca 时间: 2025-2-20 23:38
大体这么个意思

取编辑框内容.e

4.49 KB, 下载次数: 2

作者: wh1234567 时间: 2025-2-21 00:00

aipca 发表于 2025-2-20 23:38
大体这么个意思

是这样的，期待

补充内容 (2025-2-21 00:00):
10
202
200
667
679
56
808
噢噢08
道德观
对过方
343
668
56854
-09
7676
343
5757
豆腐
宣传
bvb
dfddd

补充内容 (2025-2-21 00:02):
要排除掉的：
56
对过方
7676

必须出现的
200
808
噢噢08
343
bvb

作者: wh1234567 时间: 2025-2-21 00:06

aipca 发表于 2025-2-20 23:38
大体这么个意思

这个例子思路不错，期待按截图里那样的例子

作者: aipca 时间: 2025-2-21 08:36
排除掉不出现的就是必出现的这个必出现是没必要的所以只要不出现即可。

取编辑框内容.e

6.98 KB, 下载次数: 1

作者: wh1234567 时间: 2025-2-21 10:34

aipca 发表于 2025-2-21 08:36
排除掉不出现的就是必出现的这个必出现是没必要的所以只要不出现即可。
...

选择框1.选中，弄个选择框来判断是否按排除规则执行，把__启动窗口_创建完毕下面的代码放到 _选择框1_被单击下面行不行？期待老师帮忙再修改一下吧，

补充内容 (2025-2-21 10:37):
因为，是否排除以及编辑框里添加排除内容都得是窗口启动以后操作的事件，所以直接放到__启动窗口_创建完毕下面不行。

作者: aipca 时间: 2025-2-21 10:56
加个选择框.选中判断

取编辑框内容.e

8.28 KB, 下载次数: 3

作者: wh1234567 时间: 2025-2-21 11:24

aipca 发表于 2025-2-21 10:56
加个选择框.选中判断

“必须出现”其实就是指首先从指定的内容里优先出现，是这个意思，不知道能不能把这个功能加上去？加个勾选框和必须出现的编辑框存放需要优先出现的内容

作者: aipca 时间: 2025-2-21 11:54
大哥，这些也可以自己动动手的，必须出现的这块你可以做第四个编辑框，把它的数组优化随机然后在随机文本里面的

作者: wh1234567 时间: 2025-2-21 12:08

aipca 发表于 2025-2-21 11:54
大哥，这些也可以自己动动手的，必须出现的这块你可以做第四个编辑框，把它的数组优化随机然后在随机文本 ...

思路没问题，就是这个意思，在随机里，如果必须出现勾选=真，那么就优先让必须出现的编辑框里的多行内容优先出现，也就是指定假如优先里有4个内容，而点击了6次按钮，那么其中前面4个就是优先编辑框里的内容，剩余2个才是全部编辑框内容里的内容，期待老师完善一下，

补充内容 (2025-2-21 12:10):
如果排除也选中=真，那么就得考虑这个因素，让排除编辑框里的内容不得出现

作者: wh1234567 时间: 2025-2-21 19:48

aipca 发表于 2025-2-21 10:56
加个选择框.选中判断

等您，老师

欢迎光临精易论坛 (https://125.confly.eu.org/)