如何用VB将文本本件里的相同行删除

Question

我有一个文本文件，内有一千多行其中有重复的问一下用VB写一段代码将重复行删除（只留一个）并不留空行？

Answer 1

Private Sub Command1_Click()
Dim i%, j%, k%
Dim a$(5000)
j = 1
Open App.Path + "\1.txt" For Input As #1
Open App.Path + "\2.txt" For Output As #2
Line Input #1, a(1)
Print #2, a(1)
Do
j = j + 1
Line Input #1, a(j)
k = 0
For i = 1 To j - 1
If a(j) = a(i) Then k = 1: Exit For
Next i
If k = 0 Then Print #2, a(j)
Loop While Not EOF(1)
Close #2
Close #1
End Sub
注：1.txt 原文本 2.txt 结果

Answer 2

用循环语句读取文本文件，将每行数据放入数组中，每读一个数据就和数组进行对比，如果数据不一样就把数据放入新数组中！！！最后再把数组中的数据写入到文本文件中

Answer 3

这个例子包含了很多的文本处理的方法...

Answer 4

先读取文本文件的每一行，然后添加到字典。当有出现在字典，就可以删除文本文件那一行。