Hallo alle,
ich habe folgendes problem:
in einer textdatei sind z.b. folgende begriffe vorhanden:
Haus
Baum
Auto
Blume
Haus
Dachnun brauche ich ein script, welches doppelte begriffe aussortiert und anschließend eine textdatei erstellt,
in dem dann jeder begriff nur 1 mal vorhanden ist.
in diesem fall sollte er also "Haus" aussortieren.
habe da mal paar sachen probiert, die aber leider nicht geklappt haben. hat jmd ne idee??
danke =)
_FileReadToArray
_ArrayUnique (aus BugFix' Array-Sammlung)
_FileWriteFromArray
Das sollte helfen :).
peethebee
hm also ich habe es nun mal so gemacht, funtioniert aber leider nicht so ganz...
[autoit]#include <array.au3>
#include <file.au3>
Global $file = @ScriptDir & "\Neu Textdokument.txt"
$i = _FileCountLines($file)
Dim $array[$i]
_FileReadToArray($file, $array)
_ArrayUnique($array)
_ArrayDisplay($array)
Func _ArrayUnique(ByRef $aArray, $vDelim = '', $iBase = 1, $iUnique = 1)
If $vDelim = '' Then $vDelim = Chr(01)
Local $sHold
For $iCC = $iBase To UBound($aArray) - 1
If Not StringInStr($vDelim & $sHold, $vDelim & $aArray[$iCC] & $vDelim, $iUnique) Then _
$sHold &= $aArray[$iCC] & $vDelim
Next
Return StringSplit(StringTrimRight($sHold, StringLen($vDelim)), $vDelim)
EndFunc ;==>_ArrayUnique
#include <array.au3>
#include <file.au3>
Local $file = @ScriptDir & "\Neu Textdokument.txt"
Local $array, $arrayNew
_FileReadToArray($file, $array)
_ArrayDisplay($array)
_ArrayDelete($array, 0)
$arrayNew = _ArrayUnique($array)
_ArrayDisplay($arrayNew)
ah okay, cool. danke.
kann man nun auch zufälligerweise anzeigen lassen, welche doppelt waren? 
(vor diese z.b. ein ! machen)
#include <array.au3>
#include <file.au3>
Local $file = @ScriptDir & "\Neu Textdokument.txt"
Local $array, $arrayNew
_FileReadToArray($file, $array)
_ArrayDisplay($array, 'Datei')
$arrayNew = _ArrayUnique($array, 1, 1)
_ArrayDisplay($arrayNew, 'Unique')
_ArrayDelete($array, 0)
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To $arrayNew[0]
_ArrayDelete($array, _ArraySearch($array, $arrayNew[$i]))
Next
_ArrayDisplay($array, 'Doppelte')
[/autoit]vielen dank, funktioniert!