Hilfe Bitte ;)

02/25/2012 18:17 momk#1
Ich möchte ein Script haben, welches mir eine txt datei einliest.
In dieser sind Sachen wie:
neu:soll-weg
neu2:soll-weg
neu3:soll-weg
und soll nachher so aussehen:
neu
neu2
neu3
Ich habe nach ein bisschen googlen ein kleines script gefunden, allerdings macht es nicht das was ich will...
Ich möchte:
das dann 2 NEUE txtdateien erstellt werden... in denen soll dann neu, neu2 und neu3 stehen, aber auch eine wo das drin steht was bei der ersten nicht steht, beide ohne doppelpunkt. In der zweiten halt in dem fall:
soll-weg
soll-weg
soll-weg

Hoffe ihr könnt helfen :D

PS:
Das darf nicht in einer Reihe geschrieben werden, muss schön untereinander sein...
02/25/2012 18:40 Njahs#2

Btw. deiner Wünsche angepasst:

02/25/2012 22:28 momk#3
Ich habe nun mal ein neues problem, stelle es aber trotzdem in den Thread hier :D

UPDATE:
Sind nun nurnoch teilweise Zeilensprünge drin...
d.h.
255.255.255:80

255.255.255:80

Dieser Sprung darf net sein, sonst erkennt mein "Proxy-Checker" nicht das es weitergeht...
Allerdings sind die Proxys voneinaner natürlich auch mit diesen "Sprüngen" getrennt, da müsste es halt so ein "Standart" geben, indem bestimmt wird das nur Zeilen die aussehen wie ein Proxy durchkommen, und der Rest inkl. Sprung gekillt wird.
MfG
Momk
02/25/2012 22:50 Njahs#4
02/25/2012 23:37 momk#5
Quote:
Originally Posted by Njahs View Post
Das hilft nur gegen die zeichen, diese zeilen-sprünge bleiben trotzdem...
Danke trotzdem ;)
Ich machs nun per Hand, dauert zwar ewigkeiten aber egal... bin nun eh schon bei nummer 800k von 1,3kk...

€dit:
Suche immer noch ne Lösung für die Doppelung mancher Sachen...
Beispiel:

Eingabe:
Affe
Giraffe
Affe
Hund
Hund
Maulwurf
Maulwurf
Giraffe
Giraffe
Affe

Ausgabe:
Affe
Giraffe
Hund
Maulwurf
02/26/2012 01:31 lolkop#6
Code:
#include <array.au3>
Dim $array[10]=["Affe","Giraffe","Affe","Hund","Hund","Maulwurf","Maulwurf","Giraffe","Giraffe","Affe"]
$filtered = RemoveDouble($array)
_ArrayDisplay($filtered)

Func RemoveDouble($array)
	Local $return[1]=[$array[0]], $ubound
	For $i=1 To UBound($array)-1
		If Not inArray($return, $array[$i]) Then
			$ubound = UBound($return)
			ReDim $return[$ubound+1]
			$return[$ubound]=$array[$i]
		EndIf
	Next
	Return $return
EndFunc

Func inArray($array, $element)
	For $i=0 To UBound($array)-1
		If $array[$i]=$element Then Return True
	Next
	Return False
EndFunc
02/26/2012 10:41 momk#7
Quote:
Originally Posted by lolkop View Post
Code:
#include <array.au3>
Dim $array[10]=["Affe","Giraffe","Affe","Hund","Hund","Maulwurf","Maulwurf","Giraffe","Giraffe","Affe"]
$filtered = RemoveDouble($array)
_ArrayDisplay($filtered)

Func RemoveDouble($array)
	Local $return[1]=[$array[0]], $ubound
	For $i=1 To UBound($array)-1
		If Not inArray($return, $array[$i]) Then
			$ubound = UBound($return)
			ReDim $return[$ubound+1]
			$return[$ubound]=$array[$i]
		EndIf
	Next
	Return $return
EndFunc

Func inArray($array, $element)
	For $i=0 To UBound($array)-1
		If $array[$i]=$element Then Return True
	Next
	Return False
EndFunc
Hilft mir nicht im Geringsten...
Da in der Datei keine Tiere stehen, sondern mehr als 100 Tausend verschiedene Sachen, diese Sollte das Script selbst raussuchen... Trotzdem danke, ich hätte meine Beschreibung vllt. anders machen sollen ;)
02/26/2012 19:52 lolkop#8
Quote:
Originally Posted by momk View Post
Hilft mir nicht im Geringsten...
Da in der Datei keine Tiere stehen, sondern mehr als 100 Tausend verschiedene Sachen, diese Sollte das Script selbst raussuchen... Trotzdem danke, ich hätte meine Beschreibung vllt. anders machen sollen ;)
die datei einzulesen wären halt 2 zeilen mehr -.-

es geht wohl mehr um den filteralgorithmus im script als um das beispiel array <.<
03/03/2012 13:01 momk#9
Quote:
Originally Posted by lolkop View Post
die datei einzulesen wären halt 2 zeilen mehr -.-

es geht wohl mehr um den filteralgorithmus im script als um das beispiel array <.<
Ich kann es aber nicht ;)
Ich weiss nur, das es geht.
03/04/2012 14:49 Adroxxx#10
[Only registered and activated users can see links. Click Here To Register...]