Hallo, wie kann ich ein Script machen, dass automatisch doppelte Einträge aus einer Text datei löscht? Ich will das das Script doppelte Proxys aus einer Liste löscht...
Danke
lg
Doppelte Einträge löschen (.txt)
-
- [ offen ]
-
petry94 -
18. März 2009 um 17:47 -
Geschlossen -
Erledigt
-
-
Folgende Befehle sollten dir helfen:
_filereadtoarray (damit liest du die proxy date in ein array)
_filewritefromarray (damit du die guten ips irgendwo speicherst)
Stringinstr (damit schaust du ob sich irgendwelche strings gleichen)wenn du es nicht selbst lösen willst, sag bescheid dann bastel ich ein beispiel zusammen
-
Du meinst bestimmt "doppelte Zeilen", oder ?
Doppelter Text = doppelte "a", doppelte "b"
Damit blieben alle Buchstaben nur einmal in deiner Datei !
Ansonsten:
- Zeile aus Eingabe lesen (FileOpen,FileReadLine,FileClose)
- Ist Zeile nicht in Ausgabe (StringInStr)
- dann Zeile nach Ausgabe ($out &= $zeile & @CRLF)
- wiederhole bis Ende Eingangsdatei (Do, Until)
- ggf. Ausgabe in Datei (FileOpen,FileWrite,FileClose)Und nun probier einmal...
-
hmm könnte mir einer die Lösung nennen? Ich kriegs nich gebacken
-
Hallo petry94,
poste doch mal, was Du bisher versucht hast.
Komplett für Dich schreiben wird das wohl niemand hier. -
mit arraysearch
-
- Offizieller Beitrag
Führe hiermit einen Textvergleich aus: Schnittmengen und Differenzmengen ermitteln
-
Also bei doppelten Zeileneinträgen sollte es auch mit dieser Minimallösung gehen.
Spoiler anzeigen
[autoit]#include <array.au3>
[/autoit] [autoit][/autoit] [autoit]
#Include <File.au3>Dim $sFilePath = "foo.txt"
[/autoit]
Dim $aContent
_FileReadToArray($sFilePath, $aContent)
;~ _ArrayDisplay($aContent)
$aNewArray = _ArrayUnique($aContent)
;~ _ArrayDisplay($aNewArray)
$hFile = FileOpen($sFilePath, 2)
_FileWriteFromArray($hFile, $aNewArray , 1)
FileClose($hFile)
EDIT: Trotzdem cooles Skript BugFix
EDIT2:Puh Sonntag Morgen Skript verbessert...
EDIT3:So letzter Edit hoffentlich...