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...
#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])
#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
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
#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:
#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
#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
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 <.<
Problem mit Honorbuddy Bitte hilfe bitte is sehr wichtig 09/08/2011 - WoW Bots - 3 Replies Hallo leute ich habe mir heute mal Honorbuddy zugelegt ich habe mal aus spaß dan einen neuen lvl 1er char gemacht (Allianz Hexenmeister) und den hochleveln lassen die erste zeit hat es gut geklappt er hat gut gelevelt is nirgendwo gesuckt doch dan auf lvl 5 gab es ein rieeesiges problem ab dem der einfach nichmehr weitermacht und zwar er läuft in goldhain zu einem flugmeister und will irgendwo hinfliegen aber da ich ja die flugroute noch nich hab macht er nich mehr weiter so ist es bei meinen...
Server Problem bitte helft Leute bitte brauche eure hilfe sauu dringen 07/18/2011 - Metin2 Private Server - 20 Replies Hi leute wenn man seinen server ya on bringt (ned das erste mal das ich ihn on bring) dann kommt am ende ya immer das operation timed out 7 mal aber jez steht da Operation reciefet 1000 mal der server startet so einfach ned was kann ich da maachen
[PORTMAPS] Seit Wochen Verzweifelt , BITTE HILFE ! .. Bitte 06/03/2010 - Metin2 Private Server - 3 Replies Hey , ich habe mit den Files von profizocker94 nen p server gemacht , alles in ordnung komm rein lalala .. ABER : Meine Portmaps zeigen 1. nur ca 3 maps an , die arbeiten also wo dann zb steht : 25k , 3k .. aber da müssen ja alle arbeiten ? Die Portmaps sind auch von Profizocker da sind so um die 30 oda so , ich kann echt nicht mehr , bin so verzeifelt , denn wenn ich mich Teleportiere oder Map 2 etc gehen will verschwindet der Char und ich sehe nur noch den Teleporter oder Das Portal oder Es...
