FileWriteFromArray Problem

1. offizieller Beitrag

    Ich habe eine Text datei.

    Code
    Hans1|5|21.12.2010
Hans2|8|22.12.2010
Hans3|4|23.12.2010
Hans4|96|24.12.2010

    Und dieser soll eine Zeile ergänzt werden.
    Ich habe es so versucht, aber er überschreibt immer nur dieletzte Zeile.

    [autoit]

    $Submit = "Hans5|65|25.12.2010"
    _FileReadToArray(@TempDir&"/Reports.txt",$aRecords)
    Dim $NewFileWrite[$aRecords[0]+1]
    $i = 0
    For $x = 1 To $aRecords[0]
    $NewFileWrite[$i] = $aRecords[$x]
    $i = $i + 1
    Next
    $x = UBound($NewFileWrite)

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

    $NewFileWrite[$i] = $Submit
    _ArrayDisplay($NewFileWrite)
    _FileWriteFromArray(@TempDir&"/Reports.txt",$NewFileWrite)

    [/autoit]

    So?

    Spoiler anzeigen
    [autoit]


    #include <File.au3>
    #include <Array.au3>

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

    $Submit = "Hans5|65|25.12.2010"
    Global $aRecords
    _FileReadToArray(@TempDir & "/Reports.txt", $aRecords)

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

    If IsArray($aRecords) Then
    $aRecords[UBound($aRecords)] = $Submit
    _ArrayDisplay($aRecords)
    FileDelete(@TempDir & "/Reports.txt")
    _FileWriteFromArray(@TempDir & "/Reports.txt", $aRecords)
    EndIf

    [/autoit]
    • Offizieller Beitrag

    Dein Script hängt doch immer eine Zeile an deine Datei an , weiß nicht wo jetzt das Problem ist?