C_数组文本去重复的源码(你们C哥又要开始装比了)

C。

看软件代码截图，主要就是取重复且去掉第三赋值的文本数组内容，调用了精易模块 ，软件是我自己写的，代码参考了团子  bye的一些指导，发给大家学习

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
a	文本型
b	文本型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' a ＝ 文本_删除空行 (到文本 (读入文件 (取当前目录 () ＋ “\1.txt”))) ＋  #换行符 ＋文本_删除空行 (到文本 (读入文件 (取当前目录 () ＋ “\2.txt”)))   不采用编辑框方法
编辑框1.内容 ＝ 文本_删除空行 (到文本 (读入文件 (取当前目录 () ＋ “\1.txt”)))
编辑框2.内容 ＝ 文本_删除空行 (到文本 (读入文件 (取当前目录 () ＋ “\2.txt”)))

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

变量名	类 型	静态	数组	备 注
i	整数型
t	文本型
c	文本型		0

a ＝ 编辑框1.内容 ＋ #换行符 ＋ 编辑框2.内容
b ＝ 分割文本 (a, #换行符, )
数组_去重复 (b, )
c ＝ 分割文本 (编辑框2.内容, #换行符, )
计次循环首 (取数组成员数 (b), i)
编辑框3.加入文本 (b [i] ＋ #换行符 )
计次循环尾 ()
t ＝ 文本_寻找出文本并删除 (编辑框3.内容, c [1], c [取数组成员数 (c)])
编辑框3.内容 ＝ t

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 a, 文本型<br /> .程序集变量 b, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' a ＝ 文本_删除空行 (到文本 (读入文件 (取当前目录 () ＋ “\1.txt”))) ＋  #换行符 ＋文本_删除空行 (到文本 (读入文件 (取当前目录 () ＋ “\2.txt”)))   不采用编辑框方法<br /> 编辑框1.内容 ＝ 文本_删除空行 (到文本 (读入文件 (取当前目录 () ＋ “\1.txt”)))<br /> 编辑框2.内容 ＝ 文本_删除空行 (到文本 (读入文件 (取当前目录 () ＋ “\2.txt”)))<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 t, 文本型<br /> .局部变量 c, 文本型, , "0"<br /> <br /> a ＝ 编辑框1.内容 ＋ #换行符 ＋ 编辑框2.内容<br /> b ＝ 分割文本 (a, #换行符, )<br /> 数组_去重复 (b, )<br /> c ＝ 分割文本 (编辑框2.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (b), i)<br />     编辑框3.加入文本 (b <i> ＋ #换行符)<br /> .计次循环尾 ()<br /> t ＝ 文本_寻找出文本并删除 (编辑框3.内容, c [1], c [取数组成员数 (c)])<br /> 编辑框3.内容 ＝ t

与你共舞

好像很厉害的样子  支持

olcs

一个字母是怎么注册论坛账号的,不是有长度限制吗

yelaizuozuo

感谢楼主的分享

tianxi

  数组删重复 速度呢

weisuowulai

数组去重复纯代码写呗
判断数组最后一位和前N位比较，重复删除
之后重新写入一个新数组就好了，依次匹配下就行了，直接调用无爱！

wshi141

一千万就好了

qq1259006590

看看

xiaoshengfei

只是调用功能而已，并不是完全原创！！

秋后红叶

好像很厉害的样子  支持