按重复要求，竖向相同数字提取，求助教学

sangco

感觉象是玩投注用的........

Siempre

lianzhong 发表于 2022-7-4 18:29
感谢老师的相助，如果只取重复5次的该如何实现呐？老师完成了第一步教学，没有实现第二步，如何限制次数 ...

消息太多，刚看见你的回复，5次把里面的=>2改成=5就行了

Siempre

lianzhong 发表于 2022-7-4 18:33
感谢老师的相助！但是如何只取5次的呐？老师实现了第一步，没实现第二步教学，如何实现按要求设定提取相 ...

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 str, 文本型

文本_逐字分割 (子文本替换 (编辑框1.内容, #换行符, “”, , , 真), 数组)
.计次循环首 (取数组成员数 (数组), i)
    .如果真 (文本_取出现次数 (编辑框1.内容, 数组 , 假) =5)
        .如果真 (寻找文本 (str, 数组 , , 真) ＝ -1)
            str ＝ str ＋ 数组
        .如果真结束

    .如果真结束

.计次循环尾 ()
调试输出 (str)
编辑框2.内容 ＝ str

lianzhong

1、感谢“Siempre”老师的再次回复，老师的代码很简练，学习了你的编程思路，经过测试老师的方案还有一点点小瑕疵，有重复的数组无法识别，总之还是很感谢帮助。
2、感谢“企鹅号525150138”老师的两次帮助，第1次方案内有错误，第2次方案符合题目所有要求，老师的代码感觉包容性很强，学习中，感谢。
3、感谢两位老师的指点，两位老师都很牛，由于最佳答案帖子只能选其一，“企鹅号525150138”老师的更贴切题目，选他了。
4、帖子回复不知道有时间缓冲，看到没显示就多发 了几次，结果都显示出了多次。