怎么过滤掉文本中重复的内容

续花丶

1. 
   
2.    

复制代码

   

续花丶

1. 
   
2.    

复制代码

   

785953306

续花丶 发表于 2015-4-22 21:38

我想要的是比如有俩行一样的字符串,导入到另一个记事本中只导入一行字符串 不是这样的情况

qazw1s2x3

去看下 正则替换

续花丶

785953306 发表于 2015-4-22 21:42
我想要的是比如有俩行一样的字符串,导入到另一个记事本中只导入一行字符串 不是这样的情况 ...

那样子的话 二楼 已经给你答案了.

hlincs

代码如下

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. 结束

复制代码

忆辰辅助

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

hlincs 发表于 2015-4-23 06:37
代码如下

谢谢

785953306

忆辰辅助 发表于 2015-4-23 08:10

谢谢