编辑框过滤删内容问题/附上例子

吾爱精益

编辑框1里面存在重复内容直接删除所有相同当行,麻烦弄好传上来一下谢谢 编辑框去除重复内容.zip (1.28 KB, 下载次数: 6)

2016-10-24 17:35 上传

点击文件名下载附件

易正易则

1. .版本 2
   
2. 
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 分割, 文本型, , "0"
   
5. .局部变量 n, 整数型
   
6. .局部变量 a, 整数型
   
7. .局部变量 临时, 文本型
   
8. 
   
9. 分割 ＝ 分割文本 (编辑框1.内容, #换行符, )
   
10. .计次循环首 (取数组成员数 (分割), n)
    
11.     临时 ＝ 分割 [n]
    
12.     .计次循环首 (取数组成员数 (分割), a)
    
13.         .如果真 (临时 ＝ 分割 [a] 且 a ≠ n)
    
14.             编辑框1.内容 ＝ 文本_删除空行 (子文本替换 (编辑框1.内容, 临时, “”, , , 真))
    
15.         .如果真结束
    
16. 
    
17.     .计次循环尾 ()
    
18. .计次循环尾 ()
    
19. 编辑框1.内容 ＝ 文本_去重复文本 (编辑框1.内容, #换行符)
    

复制代码

福仔

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
分割	文本型		0
节点	节点
i	整数型
数组	文本型		0
结果	文本型

分割 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (分割), i)
节点.加入属性 (分割 [i], i)
计次循环尾 ()
节点.取全部属性名 (数组)
计次循环首 (取数组成员数 (数组), i)
结果 ＝ 结果 ＋ 数组 [i] ＋ #换行符
计次循环尾 ()
编辑框1.内容 ＝ 取文本左边 (结果, 取文本长度 (结果) － 2)  ' 减去最后一个换行符

i支持库列表	支持库注释
EDataStructure	数据结构支持库

.版本 2<br /> .支持库 EDataStructure<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 节点, 节点<br /> .局部变量 i, 整数型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 结果, 文本型<br /> <br /> 分割 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (分割), i)<br />     节点.加入属性 (分割 <i>, i)<br /> .计次循环尾 ()<br /> 节点.取全部属性名 (数组)<br /> .计次循环首 (取数组成员数 (数组), i)<br />     结果 ＝ 结果 ＋ 数组 <i> ＋ #换行符<br /> .计次循环尾 ()<br /> 编辑框1.内容 ＝ 取文本左边 (结果, 取文本长度 (结果) － 2)  ' 减去最后一个换行符

yelaizuozuo

看看，，，

易容术

编辑框去除重复内容.zip (170.64 KB, 下载次数: 4)

2016-10-24 17:50 上传

点击文件名下载附件

吾爱精益

yelaizuozuo 发表于 2016-10-24 17:47
看看，，，

这个好像会保留一个，只要相同就把所有相同的全部删掉！保留不相同,比如123-123-321这样的话就把凡事123的全部删掉以此类推