3
我有一个文本文件,包含将近45,000个单词,每行一个单词。成千上万的这些词出现超过10次。我想创建一个没有重复单词的新文件。我使用流读取器,但它只读取一次文件。我怎样才能摆脱重复的话。请帮帮我。由于 我的代码是这样从文本文件中删除重复单词
Try
File.OpenText(TextBox1.Text)
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
Dim line As String = String.Empty
Dim OldLine As String = String.Empty
Dim sr = File.OpenText(TextBox1.Text)
line = sr.ReadLine
OldLine = line
Do While sr.Peek <> -1
Application.DoEvents()
line = sr.ReadLine
If OldLine <> line Then
My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Splitted File without Repeats.txt", line & vbCrLf, True)
End If
OldLine = line
Loop
sr.Close()
System.Diagnostics.Process.Start(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Splitted File without Repeats.txt")
MsgBox("Loop terminated. Stream Reader Closed." & vbCrLf)
当然亲爱的拉基蒂奇。你把它毁掉了。 – gulmaily