一个很简单的问题 删除重复

南宁南机务运用

是这样
假如我有一段文本
C:\Users\Administrator\Desktop\程序开发\图片资源\2009020517072957.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\3.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451386.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451387.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451388.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\2009020517072957.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\3.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451386.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451387.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451388.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\2009020517072957.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\3.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451386.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451387.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451388.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\2009020517072957.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\3.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451386.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451387.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451388.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\2009020517072957.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\3.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451386.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451387.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451388.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\2009020517072957.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\3.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451386.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451387.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451388.jpg
C:\Users\Administrator\Desktop\程序开发\模块\Ex_DirectUI2.0\bg.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\2009020517072957.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\3.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451386.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451387.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451388.jpg
C:\Users\Administrator\Desktop\程序开发\模块\Ex_DirectUI2.0\bg.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\2009020517072957.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\3.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451386.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451387.jpg
C:\Users\Administrator\Desktop\程序开发\图片资源\451388.jpg
C:\Users\Administrator\Desktop\程序开发\模块\Ex_DirectUI2.0\bg.jpg

有很多重复的 我需要的是 无论有多少重复 都删掉 只留一个

梦生

纯源码实现

一个人的下午茶

我百用不腻的代码

  

子程序名	返回值类型	公开	备 注
去重复	整数型
参数名	类 型	参考	可空	数组	备 注
文本数组	文本型

变量名	类 型	静态	数组	备 注
局_文本数组	文本型		0
局_计次	整数型

如果真 (是否为空 (文本数组) ＝ 假)
计次循环首 (取数组成员数 (文本数组), 局_计次)
如果真 (数组成员是否存在 (局_文本数组, 文本数组 [局_计次]) ＝ -1)
加入成员 (局_文本数组, 文本数组 [局_计次])

计次循环尾 ()
文本数组 ＝ 局_文本数组
返回 (取数组成员数 (文本数组))

返回 (0)

子程序名	返回值类型	公开	备 注
数组成员是否存在	整数型
参数名	类 型	参考	可空	数组	备 注
数组	文本型
要判断值	文本型

变量名	类 型	静态	数组	备 注
局_计次	整数型

计次循环首 (取数组成员数 (数组), 局_计次)
如果真 (数组 [局_计次] ＝ 要判断值)
返回 (局_计次)

计次循环尾 ()
返回 (-1)

.版本 2<br /> <br /> <br /> <br /> .子程序 去重复, 整数型, 公开<br /> .参数 文本数组, 文本型, 参考 可空 数组<br /> .局部变量 局_文本数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> <br /> .如果真 (是否为空 (文本数组) ＝ 假)<br />     .计次循环首 (取数组成员数 (文本数组), 局_计次)<br />         .如果真 (数组成员是否存在 (局_文本数组, 文本数组 [局_计次]) ＝ -1)<br />             加入成员 (局_文本数组, 文本数组 [局_计次])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     文本数组 ＝ 局_文本数组<br />     返回 (取数组成员数 (文本数组))<br /> .如果真结束<br /> <br /> 返回 (0)<br /> <br /> .子程序 数组成员是否存在, 整数型<br /> .参数 数组, 文本型, 数组<br /> .参数 要判断值, 文本型<br /> .局部变量 局_计次, 整数型<br /> <br /> .计次循环首 (取数组成员数 (数组), 局_计次)<br />     .如果真 (数组 [局_计次] ＝ 要判断值)<br />         返回 (局_计次)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (-1)

一个人的下午茶

把你的文本分割成数组  直接去重复（分割数组）  就行了

南宁南机务运用

一个人的下午茶 发表于 2014-8-14 14:24
我百用不腻的代码
[e=1].版本 2

可是我的是文本 不是数组啊 能不能写个程序出来 我有点看不懂

一个人的下午茶

南宁南机务运用 发表于 2014-8-14 14:30
可是我的是文本 不是数组啊 能不能写个程序出来 我有点看不懂

等等吧  我写下

一个人的下午茶

南宁南机务运用 发表于 2014-8-14 14:30
可是我的是文本 不是数组啊 能不能写个程序出来 我有点看不懂

等等吧  我写下

一个人的下午茶

最佳吧

ジ秋水

@Hoibben @大表舅