Daten aus .txt auslesen, Txt anhand der Daten erstellen und Inhalt einfügen

RoThe

Hallo erstmal und guten Abend.
Bin neu hier und hab auch gleich mal eine Frage

Ich habe eine .txt, die so aufgebaut ist:

Code

Nun will ich mithilfe meines AutoIt Programmes die .txt auslesen und eine neue txt erstellen, welche den Dateinamen und Inhalt der Zahl hat welche ausgelesen wurde. Im Beispiel sollen also 4 .txt´s erstellt werden. Die erste mit dem Namen 421.txt und dem Inhalt 421, die zweite mit dem Namen 532.txt und dem Inhalt 532. Das Programm soll die Liste abarbeiten und eben dann 4 solcher .txt´s erstellen.

Meine Idee des Grundgerüsts war eine For-Schleife:

[autoit]

$x = 0
Local $var[4]

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

For $i = 1 to 4
$var[$x] = FileOpen ($x & ".txt", 1)
$file = FileOpen(@ScriptDir & "/" & $x & ".txt",1)
FileWrite($file, $x & @CRLF)
FileClose($file)
$x += 1
Next

[/autoit]

Jedoch weiiß ich nicht wie auf die Liste in Form der .txt zugegriffen werden soll und dann eben Zeile für Zeile eine andere .txt erstellt werden soll.

Ich hoffe es ist verständlich was ich meine..
Freue mich auf Anworten
lg
RoThe

**UEZ**

Probiere es mal damit:

[autoit]

#include <File.au3>

[/autoit][autoit][/autoit][autoit]

Global $aZahlen
_FileReadToArray(@ScriptDir & "\Zahlen.txt", $aZahlen)

[/autoit][autoit][/autoit][autoit]

For $i = 1 To $aZahlen[0]
$hFile = FileOpen(@ScriptDir & "\" & $aZahlen[$i] & ".txt", 2)
FileWrite($hFile, $aZahlen[$i])
FileClose($hFile)
Next

[/autoit]

Zahlen.txt ist die Datei mit den 4 Zeilen an Zahlen.

Gruß,
UEZ

RoThe

Danke für die Hilfe!
Habs dadurch jetzt hingebracht