关于去重复文本，请教高手。

年轻没有失败 · 发表于 2013-12-1 11:43:31

如图所示，需要去重复文本（号码）。
最好有源码，我研究研究。感激不尽。
{:soso_e113:}

SourceCode · 发表于 2013-12-1 11:43:32

[e]
.版本 2
.支持库 spec

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

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

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

.如果结束

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

少了一行代码

SourceCode · 发表于 2013-12-1 11:45:50

这个好搞我来给你写

年轻没有失败 · 发表于 2013-12-1 11:51:12

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

幺西

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

SourceCode · 发表于 2013-12-1 11:58:50

[e]
.版本 2
.支持库 spec

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

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

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

.如果结束

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

		自动登录	找回密码
密码			注册

[已解决] 关于去重复文本，请教高手。

最佳答案

点评

评分

点评