Hilfe Bitte ;)

[momk]

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

PS:
Das darf nicht in einer Reihe geschrieben werden, muss schön untereinander sein...

[Njahs]

 Spoiler

#include <File.au3>

FileDelete("New1.txt")
FileDelete("New2.txt")

Global $Datei = "Tet.txt" ; Deine Datei
Dim $New[2]
Dim $FileArray
_FileReadToArray($Datei,$FileArray)

If IsArray($FileArray) THen

For $i = 1 to UBound($FileArray)-1
   Local $sData = StringSplit($FileArray[$i],':')
   $New[0] &= $sData[1] & @LF
   $New[1] &= $sData[2] & @LF
Next

Else
   Msgbox(0,"","Datei nicht vorhanden")
EndIf

Msgbox(0,"",$New[0])
Msgbox(0,"",$New[1])

Btw. deiner Wünsche angepasst:

 Spoiler

#include <File.au3>

FileDelete("New1.txt")
FileDelete("New2.txt")

Global $Datei = "Tet.txt" ; Deine Datei
Dim $FileArray
_FileReadToArray($Datei,$FileArray)

If IsArray($FileArray) THen

For $i = 1 to UBound($FileArray)-1
   Local $sData = StringSplit($FileArray[$i],':')
   FileWriteLine("New1.txt",$sData[1])
   FileWriteLine("New2.txt",$sData[2])
Next

Else
   Msgbox(0,"","Datei nicht vorhanden")
EndIf

[momk]

Ich habe nun mal ein neues problem, stelle es aber trotzdem in den Thread hier

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

[Njahs]

 Spoiler

#include <File.au3>

Global $Datei = "Test.txt" ,$File = FileRead($Datei)

Local $Clean = StringRegExpReplace( StringRegExpReplace( StringRegExpReplace($File,"[ABCDEFGHIJKLMNOPQRSTUVWXYZ]",""),"#",""),"[abcdefghijklmnopqrstuvwxyz]","")
FileWrite("Clean Test.txt",$Clean)
Msgbox(0,"",$Clean)

[momk]

Originally Posted by Njahs

 Spoiler

#include <File.au3>

Global $Datei = "Test.txt" ,$File = FileRead($Datei)

Local $Clean = StringRegExpReplace( StringRegExpReplace( StringRegExpReplace($File,"[ABCDEFGHIJKLMNOPQRSTUVWXYZ]",""),"#",""),"[abcdefghijklmnopqrstuvwxyz]","")
FileWrite("Clean Test.txt",$Clean)
Msgbox(0,"",$Clean)

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

[lolkop]

#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

[momk]

Originally Posted by lolkop

#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

[lolkop]

Originally Posted by momk

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 <.<

[momk]

Originally Posted by lolkop

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.

[Adroxxx]