Hallo
was mache ich hier nur falsch?
Kurze Info:
- Ich lese einen Text (mehrere Zeilen) in mein Array
- Ich schreibe mit FileWritefromArray bestimmte Zeilen in eine neue Datei (das klappt nicht)
Mein Code:
[autoit]
#include <file.au3>
Dim $aRecords
$sFile = @ScriptDir & "\Test.txt" ; das ist die neue Datei in die geschrieben wird!
If Not _FileReadToArray("MeinText.txt", $aRecords) Then ; Mein Text der gelesen wird! Mehrere Zeilen...
MsgBox(4096, "Fehler", "Fehler beim Einlesen der Datei in das Array!" & @CRLF & "Fehlercode: " & @error)
Exit
EndIf
For $x = 1 To $aRecords[0] ; zeilenweise Loop
MsgBox(0, 'Datensatz ' & $x & ':', $aRecords[$x]); hier lasse ich alle Zeilen anzeigen!
if $x = "3" then ; Wenn die 3. Zeile erreicht ist...
MsgBox(0,$aRecords[3],"3.Zeile wird geschrieben"); dann schreibe nur diese Zeile in die Datei!
_FileWriteFromArray($sFile, $aRecords[3], 1); hier passiert nichts!
endif
if $x = "5" then ; Wenn die 5. Zeile erreicht ist...
MsgBox(0,$aRecords[5],"5.Zeile wird geschrieben"); dann schreibe nur diese Zeile in die Datei!
_FileWriteFromArray($sFile, $aRecords[5], 1); hier passiert nichts!
endif
Next
Ich komme einfach nicht mehr weiter!
Liebe Grüße
Ilse