Cannot get correct result when use _FileReadToArray

[Fire]

Hi to all.

Dears when i use

_FileReadToArray()

to get files content to arrays in this case

filewrite()

cannot done corectly and in result result still is undone.

Here is my script:

#include <File.au3>
Dim $avarray
if Not _FileReadToArray(@ScriptDir&"\blokla.txt",$avarray) Then
    Exit
    EndIf
For $i=1 to $avarray[0]
    _FileReadToArray(@ScriptDir&"\blokla.txt",$avarray)
    FileOpen(@ScriptDir&"\test.txt",1)
    FileWrite(@ScriptDir&"\test.txt", @CRLF)
    FileWrite(@ScriptDir&"\test.txt",$avarray[$i] & @CRLF)
    Next

But when i use this simple way it dones correctly(see below)

FileOpen(@ScriptDir&"\blokla.txt",0)      ;
$a=FileRead(@ScriptDir&"\blokla.txt")
FileWrite("test2.txt",$a)

+ I attached reguired *.txt file for test 1`st script(which has problem)

Bcuz 1`st script writes 13 kb of data from blokla.txt file(<= it`s size 70 kb)

Why this occurs?(Also i check file attributes and can`t see problems with attrib)

Any tips,helps greatly appreciate.

I use AutoIt Version: 3.3.2.0

Thanks to all again & Sorry for my awfull English.

P.S Attached files:

EDIT: grammatical mistake:(

Edited January 5, 2010 by Sh3llC043r

[Melba23]

Sh3llC043r,

Perhaps if you tried this way?:

#include <File.au3>
Dim $avarray

_FileReadToArray(@ScriptDir & "\blokla.txt", $avarray)

If @error Then
    Exit
Else
    FileOpen(@ScriptDir & "\test.txt", 1)
    For $i = 1 To $avarray[0]
        FileWrite(@ScriptDir & "\test.txt", @CRLF)
        FileWrite(@ScriptDir & "\test.txt", $avarray[$i] & @CRLF)
    Next
EndIf

This gives me a file with the same content separated by blank lines. I hope that is what you wanted.

M23

[Fire]

Yes Melba this is that what i want to get.Solved.Thank you very-very much Melba .

Your help Greatly appreciated.