易语言文本去掉重复的,留下一个重复的
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
epf17
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
职业通路
whcwgr
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
xujianguo21
mingbianzhenli
xujianguo21
xujianguo21
共喝党
w84954830
易语言文本去掉重复的,留下一个重复的那行,只是文本一行就可以了,其他不重复留下
请求这代码应该怎么写,
拜托了 展开
推荐于2017-05-21
.版本 2
.子程序 _判断重复_被单击
.局部变量 要处理的文本, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 输出文本, 文本型
.局部变量 i, 整数型
.局部变量 重复的文本, 文本型
要处理的文本 = 到文本 (读入文件 (“F:\新建文件夹\总.txt”)) ' 改成你自己要处理的文本
数组 = 分割文本 (要处理的文本, #换行符, )
.计次循环首 (取数组成员数 (数组), i)
.如果真 (数组 [i] ≠ “”)
.如果 (寻找文本 (要处理的文本, 数组 [i], , 真) = -1) ' 也就是没有重复,这个是理想情况。
输出文本 = 输出文本 + 数组 [i] + #换行符 ' 所以直接输出
.否则
.如果真 (寻找文本 (重复的文本, 数组 [i], , 真) = -1) ' 如果存在多个同样的文本,先判断,然后加入“重复的文本”里面。。如果在里面没有重复就算不重复了(这么写是因为,重复的第一种文本之前没有项目和它重复)
输出文本 = 输出文本 + 数组 [i] + #换行符
.如果真结束
重复的文本 = 重复的文本 + 数组 [i] + #换行符
.如果结束
.如果真结束
.计次循环尾 ()
写到文件 (“F:\系统桌面\输出文件.txt”, 到字节集 (输出文本)) ' 然后输出
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 分割文本组, 文本型, , "0"
.局部变量 计次变量, 整数型
分割文本组 = 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (分割文本组), 计次变量)
.如果真 (寻找文本 (编辑框2.内容, 分割文本组 [计次变量] + #换行符, , 假) = -1)
编辑框2.加入文本 (分割文本组 [计次变量] + #换行符)
.如果真结束
.计次循环尾 ()