如何用VB将文本本件里的相同行删除
我有一个文本文件,内有一千多行其中有重复的问一下用VB写一段代码将重复行删除(只留一个)并不留空行?...
我有一个文本文件,内有一千多行其中有重复的问一下用VB写一段代码将重复行删除(只留一个)并不留空行?
展开
4个回答
展开全部
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 结果
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 结果
展开全部
用循环语句读取文本文件,将每行数据放入数组中,每读一个数据就和数组进行对比,如果数据不一样就把数据放入新数组中!!!最后再把数组中的数据写入到文本文件中
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个例子包含了很多的文本处理的方法...
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先读取文本文件的每一行,然后添加到字典。当有出现在字典,就可以删除文本文件那一行。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询