Dim arrLines() As String = Split(Textfile, vbCrLf)
Dim lstLines As List(Of String) = arrLines.ToList()
For i As Integer = 0 To Lines.Length - 1
For j As Integer = 0 To Lines.Length - 1
If lstLines(i) = lstLines(j) Then
lstLines.RemoveAt(j)
End If
Next
Next
You then just save the content of lstLines into a new textfile.
Dim arrLines() As String = Split(Textfile, vbCrLf)
Dim lstLines As List(Of String) = arrLines.ToList()
For i As Integer = 0 To Lines.Length - 1
For j As Integer = 0 To Lines.Length - 1
If lstLines(i) = lstLines(j) Then
lstLines.RemoveAt(j)
End If
Next
Next
You then just save the content of lstLines into a new textfile.