Hallo zusammen
ich versuche in eine bestehende Datei noch zusätzlich Zeilen einzutragen.
Nach jeder Zeile in der Datei soll zusätzlich noch eine Bemerkungszeile hinzugefügt werden.
#include <Array.au3>
#include <File.au3>
Dim $arr_back,$count,$arr_insert
If _FilereadtoArray("C:\Windows\Temp\output.log",$arr_back) Then
;Inhalt von der Datei C:\Windows\Temp\output.log
;~ Dies ist Zeile 1
;~ Dies ist Zeile 2
;~ Dies ist Zeile 3
$count = 1
For $i = 1 to $arr_back[0]
$count = $i + 1
$arr_insert = _ArrayInsert($arr_back,$count,"Dies ist die Bemerkung zu Zeile" & $i)
ReDim $arr_back[0]
Next
Else
MsgBox(0,"","Error in FileReadtoArray")
EndIf
_ArrayDisplay($arr_back)
_FileWriteFromArray("C:\Windows\Temp\output_new.log",$arr_back,1)
Er schreibt die Bemerkungszeilen nicht so wie ich das gerne hätte. Es werden alle direkt geschrieben.
Mit freundlichem Gruss
johny