Ho necessita di cancellare da un file txt i numeri che sono uguali
esempio
1 <----------rimane perché non doppio
2 <----------rimane perché non doppio
3 <----------cancellato perché doppio
4 <----------cancellato perché doppio
3 <----------cancellato perché doppio
5 <----------rimane perché non doppio
4 <----------cancellato perché doppio
alla fine il file txt si presenta cosi
1
2
5
questo il codice che ho scritto ma sono completamente fuori strada perché non funziona dove sto sbagliando? grazie di tutto
Dim numero As String
If IO.File.Exists("c:\archivio\prova1.txt") Then
For Each trovadoppio As String In System.IO.File.ReadAllLines("c:\archivio\prova1.txt")
Dim s2() As String
s2 = Split(trovadoppio, )
numero = s2(0)
For Each trova As String In System.IO.File.ReadAllLines("c:\archivio\prova1.txt")
Dim numero2 As String
Dim doppione As String
Dim s22() As String
s22 = Split(trova, )
numero2 = s22(0)
If numero = numero2 Then
doppione = (trova)
Dim filetesto As String = ("c:\archivio\prova1.txt")
Dim ssrc As String = trova
Dim flines() As String = System.IO.File.ReadAllLines(filetesto)
Dim sw As New System.IO.StreamWriter(filetesto)
For i = 0 To flines.Count - 1
If Not flines(i).StartsWith(ssrc) Then
sw.WriteLine(flines(i))
End If
Next
sw.Close()
Dim aggiorna As IO.StreamWriter
aggiorna = IO.File.AppendText("c:\archivio\prova1.txt")
aggiorna.WriteLine(trova)
aggiorna.Close()
End If
Next
Next
End If