TC官方合作论坛

标题: 怎么过滤掉文本中重复的内容 [打印本页]
作者: 785953306    时间: 2015-4-22 16:29
标题: 怎么过滤掉文本中重复的内容
怎么过滤掉文本中重复的内容
比如
123456
1234567
1234568
123456
123456
怎么找出这个文本中相同的数据并把他们过滤掉呢请大神来回答下
作者: 18667006365    时间: 2015-4-22 17:46
读取每一行字符，并转换成数组，然后遍历数组对比。
作者: 785953306    时间: 2015-4-22 18:10
18667006365 发表于 2015-4-22 17:46
读取每一行字符，并转换成数组，然后遍历数组对比。

谢谢能给个具体的代码例子吗
作者: 续花丶    时间: 2015-4-22 20:31
看图罗.
作者: 续花丶    时间: 2015-4-22 20:34
附件上传不了..
  1.     变量 字符串1="12345612345671234568123456123456"
  2.     变量 过滤内容="123456"
  3.     消息框(字符串替换(字符串1,过滤内容,""))
复制代码
作者: 785953306    时间: 2015-4-22 20:36
续花丶 发表于 2015-4-22 20:34
附件上传不了..

谢谢您的回答,文本的里内容我是知道,我想知道还有没有别的办法
作者: 续花丶    时间: 2015-4-22 21:22
785953306 发表于 2015-4-22 20:36
谢谢您的回答,文本的里内容我是知道,我想知道还有没有别的办法

别的方法  要什么方法
作者: 785953306    时间: 2015-4-22 21:23
续花丶 发表于 2015-4-22 21:22
别的方法  要什么方法

比如从一个记事本放到另一个记事本中,在导入到另一个记事本要把被导入的记事本的内容重复的数据过滤掉谢谢
作者: 续花丶    时间: 2015-4-22 21:33
785953306 发表于 2015-4-22 21:23
比如从一个记事本放到另一个记事本中,在导入到另一个记事本要把被导入的记事本的内容重复的数据过滤掉谢 ...

单个字符相同也过滤?
作者: 785953306    时间: 2015-4-22 21:38
续花丶 发表于 2015-4-22 21:33
单个字符相同也过滤?

您好不是 是一行一行的判断比如有俩行内容都是123456,只希望导入一行内容
作者: 续花丶    时间: 2015-4-22 21:38
本帖最后由 续花丶 于 2015-4-22 23:06 编辑

  2.    
复制代码

   
作者: 785953306    时间: 2015-4-22 21:42
续花丶 发表于 2015-4-22 21:38

我想要的是比如有俩行一样的字符串,导入到另一个记事本中只导入一行字符串 不是这样的情况
作者: qazw1s2x3    时间: 2015-4-22 22:54
去看下 正则替换
作者: 续花丶    时间: 2015-4-22 23:04
785953306 发表于 2015-4-22 21:42
我想要的是比如有俩行一样的字符串,导入到另一个记事本中只导入一行字符串 不是这样的情况 ...

那样子的话 二楼 已经给你答案了.
作者: hlincs    时间: 2015-4-23 06:37
本帖最后由 hlincs 于 2015-4-23 07:51 编辑

代码如下
  1. 变量 文件路径="D:\\1.txt"
  2.     变量 文本=数组()
  3.     变量 hang= 文件获取行数(文件路径)
  4.     调试输出(hang)
  5.     变量 键=0
  6.     遍历(变量 i = 0; i < hang; i++)
  7.         变量 判断=假
  8.         
  9.         遍历(变量 j = i+1; i < hang; i++)
  10.             如果(文件读指定行(文件路径,i)==文件读指定行(文件路径,j))
  11.                 判断=真
  12.                 跳出
  13.             结束
  14.         结束
  15.         如果(判断==真)
  16.             文本[键]=文件读指定行(文件路径,i)
  17.             调试输出(文本[键])
  18.             键++
  19.         结束  
  20.     结束
  21.     文件覆盖内容(文件路径,文本[0])
  22.     遍历(变量 i = 1; i < 键; i++)
  23.         文件追加文本(文件路径,"\n"&文本[i])
  24.     结束
  25. 结束
复制代码
作者: 忆辰辅助    时间: 2015-4-23 08:10
  1. 功能 去重复及空行()
  2.     变量 回帖内容 = 文件读取内容("D:\\a.txt")
  3.     回帖内容 = 字符串替换(回帖内容, "\r\n\r\n", "\r\n")
  4.     变量 回帖数组
  5.     变量 回帖数 = 字符串分割(回帖内容, "\r\n", 回帖数组)
  6.     文件删除("D:\\b.txt")
  7.     变量 新回帖数组 = 数组()
  8.     遍历(变量 i = 0; i < 回帖数; i++)
  9.         如果(数组值查找(新回帖数组, 回帖数组[i]) == "")
  10.             数组追加元素(新回帖数组, 回帖数组[i])
  11.             文件写日志(回帖数组[i], "D:\\b.txt")
  12.         结束
  13.     结束
  14. 结束
复制代码
作者: 785953306    时间: 2015-4-23 08:11
hlincs 发表于 2015-4-23 06:37
代码如下

谢谢
作者: 785953306    时间: 2015-4-23 08:16
忆辰辅助 发表于 2015-4-23 08:10

谢谢



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1