Strings ersetzen und in Datei schreiben

Habe ein Problem mit folgenden Zeilen :

$file1 = FileOpen("vorlage.txt",0)
$file2 = FileOpen("neueDatei.txt",2)


While 1
	$line = FileReadLine($file1)
	$line = StringReplace($line,"%%Vorlage%%","Neuer Text")
	FileWriteLine($file2,$line)
	If @error = -1 Then ExitLoop
Wend


FileClose($file2)
FileClose($file1)

$file1 ist eine Vorlagedatei und $file2 soll aus der $file1 durch ersetzen von Werten erstellt werden. Wenn ich das Script starte, ersetz es auch alle Werte wie gewünscht, kommt jedoch nicht mehr aus der Schleife raus und schreibt nur noch leere Zeilen in die neue Datei. Ich muss das Script dann immer über den Taskmanager abschiessen. Deshalb hier meine Frage. Wieso beendet das Script nicht die Schleife und schreibt über das Ende hinaus?

Da es sich bei $file1 um eine Vorlage handelt, könnte ich die Datei auch mit einer For-Schleife auslesen, da die Zeilenanzahl ja vorgegeben ist. Das habe ich auch schon getestet und funktioniert auch. Nur wenn ich später mal mehrere Vorlagen habe, wäre es mehr Arbeit das Script anzupassen, wenn jede Vorlage eine andere Zeilenanzahl hat.

Hi,

so geht's

Du musst die Errorabfrage nach dem lesen aus der Vorlage einbauen.

$file1 = FileOpen("vorlage.txt",0)
$file2 = FileOpen("neueDatei.txt",2)


While 1
	$line = FileReadLine($file1)
	If @error = -1 Then ExitLoop
	$line = StringReplace($line,"%%Vorlage%%","Neuer Text")
	FileWriteLine($file2,$line)

Wend


FileClose($file2)
FileClose($file1)

Gruß rabbit

Danke für die schnelle Hilfe, habe die Zeilen getauscht und es klappt jetzt auch. Wie konnte mir das nur passieren, manchmal hat man wohl Tomaten vor den Augen. :schild4: