文本筛选的问题

oow222

我觉得我写的东西满足你的需求啊，7条消息，排除一条重复的，每一轮为6条消息，且每一轮都是随机顺序

suyan

oow222 发表于 2017-11-16 13:45
我觉得我写的东西满足你的需求啊，7条消息，排除一条重复的，每一轮为6条消息，且每一轮都是随机顺序

说有点说不清楚，给你看一下测试聊天记录哈
---------------------------------------------------------
【Ming】自动发卡系统 2017/11/16 13:55:13
哈哈哈哈哈哈06

Ming 2017/11/16 13:55:16
发文字
【Ming】自动发卡系统 2017/11/16 13:55:20
哈哈哈哈哈哈1

Ming 2017/11/16 13:55:32
发文字
【Ming】自动发卡系统 2017/11/16 13:55:36
哈哈哈哈哈哈哈2

Ming 2017/11/16 13:55:40
发文字
【Ming】自动发卡系统 2017/11/16 13:55:44
哈哈哈哈哈哈06


----------------------------------------

还是会有重复的，我目前写法是这样的：
.版本 2

数据库 ＝ 到文本 (读入文件 (插件目录 ＋ “/Figure/Data.db”))
.如果真 (数据库 ≠ “”)
    tmp ＝ 文本_去重复文本 (数据库, #换行符)
    txt ＝ 分割文本 (tmp, #换行符, )
    .判断循环首 (0 ＝ 0)
        FisherYates (txt)
        .计次循环首 (取数组成员数 (txt), i)
            程序_延时 (500, )
            返回1 ＝ txt
        .计次循环尾 ()
        返回 (返回1)
        跳出循环 ()
    .判断循环尾 ()
.如果真结束
返回 (“”)

oow222

suyan 发表于 2017-11-16 13:57
说有点说不清楚，给你看一下测试聊天记录哈
-------------------------------------------------------- ...

我给你的栗子没有问题。。。大佬，你单子的话就自己慢慢摸索去

荭枫

复制一个文本数组 然后随机数组索引 发送完文本就删除这个成员知道完毕在重新复制原始文本数组

suyan

荭枫 发表于 2017-11-16 15:41
复制一个文本数组 然后随机数组索引 发送完文本就删除这个成员知道完毕在重新复制原始文本数组

有例子吗？

1303456217

第一次取到了第5行（随机取）。判断欲保存文本数组的上限是否等于源文本数组的上限。假则继续判断随机取到的源文本是否包含在文本数组里，若没有保存，则保存到文本数组[1]
第二次取到了第3行（随机取）。判断欲保存文本数组的上限是否等于源文本数组的上限。假则继续判断随机取到的源文本是否包含在文本数组里，若没有保存，则保存到文本数组[2]
……………………
当第一个判断到达上限了则清空文本数组重新判断