[已解决]请教高手如何去除文本内完全相同的两行只保留一对不重复的附示例文本！

fhcmail

请教高手如何去除文本内完全相同的两行只保留一对不重复的附示例文本！
对偶来说太有挑战了，暂时搞不定，还请高手出招！
请注意，每两行为一对，文本内有大量这样的重复对出现，现在要清除所有重复的对只保留一堆，回车只要一个，不要清完后留了一堆回车的空行哟！！
示例文本如下：

1. 不好笑
   
2. [cqname]那你笑什么
   
3. 
   
4. 关不了
   
5. [cqname]没事的，不用关它拉~
   
6. 
   
7. 唉
   
8. [cqname]叹什么气啊
   
9. 
   
10. 我在说[cqname]呢
    
11. 蒽~不要嘛~不要欺负[cqname]拉~
    
12. 
    
13. 敢不敢6个点
    
14. ......
    
15. 
    
16. ......
    
17. 好吧！[name] 算你狠~
    
18. 
    
19. 词库
    
20. 没事的~[cqname]的词库大家会帮忙一起完善.
    
21. 
    
22. 必须
    
23. [bq106]我不知道拉~什么都不知道.
    
24. 
    
25. 贱人
    
26. 贱人者！人自贱~[cqname]是无辜滴~
    
27. 
    
28. 滚
    
29. 干嘛叫[cqname]滚~我不要嘛.
    
30. 
    
31. ["face",87]
    
32. 敲死一切欺负[cqname]的~
    
33. 
    
34. 你是谁
    
35. 我是[cqname]，请多多指教！[enter]
    
36. 
    
37. 不好笑
    
38. [cqname]那你笑什么
    
39. 
    
40. 关不了
    
41. [cqname]没事的，不用关它拉~
    
42. 
    
43. 唉
    
44. [cqname]叹什么气啊
    
45. 
    
46. 我在说小蜜呢
    
47. 蒽~不要嘛~不要欺负[cqname]拉~
    
48. 
    
49. 敢不敢6个点
    
50. ......
    
51. 
    
52. ......
    
53. 好吧！[name]算你狠~
    
54. 
    
55. 词库
    
56. 没事的~[cqname]的词库大家会帮忙一起完善.
    
57. 
    
58. 必须
    
59. [bq106]我不知道拉~什么都不知道.
    
60. 
    
61. 贱人
    
62. 贱人者！人自贱~[cqname]是无辜滴~
    
63. 
    
64. 滚
    
65. 干嘛叫[cqname]滚~我不要嘛.
    
66. 
    
67. ["face",87]
    
68. 敲死一切欺负[cqname]的~
    
69. 
    
70. 就是要勾引你
    
71. 不要嘛~[cqname]不需要勾引滴~[cqname]一定乖乖的听你的

复制代码

fhcmail

下面是解决办法，再次感谢batman老大的帮忙！

【批处理未处理特殊字符版】用这个处理时文本内不能有特殊字符哟，希望以后有大牛能搞个处理字符的：

1. @echo off&setlocal enabledelayedexpansion
   
2. set "_1=str"&set "_2=var"
   
3. (for /f "delims=" %%a in (a.txt) do (
   
4.   set /a n+=1
   
5.   for %%b in (!n!) do set "!_%%b!=%%a"
   
6.   if !n! equ 2 (
   
7.     if not defined !str!!var! (
   
8.       echo !str!&echo !var!&echo,
   
9.        set "!str!!var!=a"
   
10.      )
    
11.      set /a n=0
    
12.    )
    
13. ))>b.txt

复制代码

【VBS版，完美处理特殊字符，实测超级给力】

1. Dim FSO, vbStr, Arr, Str, Counter, vbVar
   
2. vbVar = ""
   
3. Set FSO = CreateObject("Scripting.FileSystemObject")
   
4. vbStr = FSO.OpenTextFile("test.txt").ReadAll
   
5. Arr = Split(vbStr, vbCrLf & vbCrLf)
   
6. For Each Str In Arr
   
7.   If InStr(vbVar, Str) = 0 Then vbVar = vbVar & Str & vbCrLf & vbCrLf   
   
8. Next
   
9. FSO.OpenTextFile("testb.txt", 2, True).Write vbVar
   
10. CreateObject("Wscript.Shell").run "cmd /cstart testb.txt", True, False
    
11. Set FSO = Nothing

复制代码