精易论坛

标题: 关于去重复文本，请教高手。 [打印本页]

作者: 年轻没有失败 时间: 2013-12-1 11:43
标题: 关于去重复文本，请教高手。
如图所示，需要去重复文本（号码）。
最好有源码，我研究研究。感激不尽。
{:soso_e113:}

作者: SourceCode 时间: 2013-12-1 11:43
[e]
.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量文本数组, 文本型, , "0"
.局部变量计次, 整数型
.局部变量数目, 整数型
.局部变量临时文本, 文本型
.局部变量初始化文本, 文本型
.局部变量原始文本数据, 文本型

原始文本数据＝文本编辑框.内容
文本数组＝分割文本 (原始文本数据, #换行符, )
数目＝取数组成员数 (文本数组)

.计次循环首 (数目, 计次)
临时文本＝文本数组 [计次]
调试输出 (临时文本)
.如果 (寻找文本 (初始化文本, 临时文本, , 假) ＝ -1)
初始化文本＝初始化文本＋临时文本＋ #换行符
处理事件 ()
.否则

.如果结束

.计次循环尾 ()
文本编辑框.内容＝初始化文本
[/e]

少了一行代码

作者: SourceCode 时间: 2013-12-1 11:45

这个好搞我来给你写

作者: 年轻没有失败 时间: 2013-12-1 11:51

莫愁湖畔发表于 2013-12-1 11:45
这个好搞我来给你写

幺西

。早知道直接Q你了。。哈哈

作者: SourceCode 时间: 2013-12-1 11:58
[e]
.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量文本数组, 文本型, , "0"
.局部变量计次, 整数型
.局部变量数目, 整数型
.局部变量临时文本, 文本型
.局部变量初始化文本, 文本型
.局部变量原始文本数据, 文本型

文本数组＝分割文本 (原始文本数据, #换行符, )
数目＝取数组成员数 (文本数组)

.计次循环首 (数目, 计次)
临时文本＝文本数组 [计次]
调试输出 (临时文本)
.如果 (寻找文本 (初始化文本, 临时文本, , 假) ＝ -1)
初始化文本＝初始化文本＋临时文本＋ #换行符
处理事件 ()
.否则

.如果结束

.计次循环尾 ()
文本编辑框.内容＝初始化文本
[/e]

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