散尽家产，如何取出多个编辑框或者组合框相同的行内容

wodetian55

佚名ka 发表于 2012-5-20 22:41
哥哥 还在吗？？？？只差一点就成功了啊~~

如果你需要显示每一条重复的数据
那么按照下面这个来修改（我测试的用时62毫秒）:

.子程序 取重复
编辑框2.内容 ＝ 保留重复文本 (编辑框1.内容)

.子程序 保留重复文本, 文本型
.参数 原文本, 文本型
.局部变量 节点, 节点
.局部变量 全部重复文本组, 文本型, , "0"
.局部变量 重复文本, 文本型
.局部变量 i, 整数型
.局部变量 原文本组, 文本型, , "0"
.局部变量 新文本, 文本型
.局部变量 t

t ＝ 取启动时间 ()
原文本组 ＝ 分割文本 (原文本, #换行符, )
新文本 ＝ “”
重复文本 ＝ “”
调试输出 (取数组成员数 (原文本组))
.计次循环首 (取数组成员数 (原文本组), i)
    节点.取文本值 (原文本组 , 重复文本)
    .如果真 (重复文本 ≠ “”)
        加入成员 (全部重复文本组, 重复文本)
    .如果真结束
    节点.加入属性 (原文本组 , 原文本组 )
.计次循环尾 ()
.计次循环首 (取数组成员数 (全部重复文本组), i)
    新文本 ＝ 新文本 ＋ 全部重复文本组 ＋ #换行符
.计次循环尾 ()
输出调试文本 (取启动时间 () － t)
返回 (新文本)

wodetian55

佚名ka 发表于 2012-5-20 23:17
哥哥 这个是去掉不重复的 留下重复的吗？

是的，第一个是只保留重复的数据一次。
70楼的是保留每一个重复数据。

小腊肠

wodetian55 发表于 2012-5-20 23:14
这个用时更少，我测试为47毫秒
自己在删除重复的子程序里修改为：

哥哥 麻烦重新把例程传上来吧~~你发的这个貌似有点问题~

wodetian55

佚名ka 发表于 2012-5-20 23:31
哥哥 麻烦重新把例程传上来吧~~你发的这个貌似有点问题~

自己加下数组的中括号。。。论坛屏蔽的中括号