Hi Leute .. ich hab hier und auch im englischen Forum schon viel gelesen, aber hab leider nichts gefunden was mit weiterhilft ..
Ich wollte eigentlich nur in einer Datei die doppelten Einträge finden und NICHT löschen, sondern in eine neue Datei schreiben. Hier und auch sonst immer wollen die Leute die doppelten Einträge immer löschen und dazu gibts auch tausend simple Möglichkeiten. Naja wie auch immer, ich hab mir hier was gebastelt womit das theoretisch gehen sollte. Da ist aber angeblich nen Fehler drin den ich einfach nicht sehe ..
Vlt könnt ihr mir ja helfen
#include <array.au3>
#Include <File.au3>
Dim $sFilePath = "new.txt"
Dim $aContent
Dim $newfile = "double.txt"
_FileReadToArray($sFilePath, $aContent)
_ArraySort($aContent)
$i = UBound($aContent,1)
Dim $aArrayTmp[$i]
For $j = 0 To $i
If $aContent[$j] = $aContent[$j+1] Then
_ArrayAdd($aArrayTmp, $aContent[$j])
EndIf
$j = $j+1
Next
_FileWriteFromArray($newfile, $aArrayTmp)
Alles anzeigen
Er meckert bei mir an dieser Stelle hier:
If $aContent[$j] = $aContent[$j+1] Then
Wo liegt der Fehler? Kann ich denn nicht einfach den Array an dieser Stelle mit der anderen vergleichen?
Dadurch das der Array sortiert wird werden die doppelten Einträge alle untereinander geschrieben. Wenn ich also Stelle für Stelle mit der folgenden vergleiche müsste er ja die doppelten finden ..? Oder ist der Gedanke falsch?
Oder habt ihr vlt sogar nen besseren Ansatz für mich?
Ich würd mich über Hilfe echt freuen! Danke
lg
Leo.1906