Can Fileread read a file sized 500K in one go?

[Guest Abalone]

When I read a big file (eg 500K) using fileread without specifying the size. It will go into an endless loop

$filehandle=FileOpen("Source",4)

$filehandle2=fileopen("Target",2)

While 1

$buffer=FileRead($filehandle,65534) //It won't work if I use "$buffer=FileRead($filehandle)"

If @error = -1 Then ExitLoop

filewrite($filehandle2,HTMLtoCSV($buffer))

WEnd

FileClose($filehandle)

FileClose($filehandle2)

Did I do something wrong? Thank you!

[/dev/null]

Did I do something wrong? Thank you!

yes. Your error check does not take care of all possible error values.

From help file: FileRead()

Return Value

Success: Returns the binary/string read.

Special: Sets @error to -1 if end-of-file is reached.

Failure: Sets @error to 1 if file not opened in read mode or other error.

Sets @error to 2 if count not defined for file open in raw read mode. <== THIS is your problem!

[Fabry]

When I read a big file (eg 500K) using fileread without specifying the size. It will go into an endless loop

If you don't specify the size, it reads completaly the file and it doesn't make errors, then it will go into endless loop.

[AutoItKing]

Use FileGetSize to fix this problem.

[dabus]

Wouldn't it be easier to read everything to an array an do the writing after that?

Try this (I think it's from SmOke_N):

Func _Txt2Array($a)
    Local $Array = StringSplit(StringStripCR(FileRead($a)), @LF)
    Return $Array
EndFunc   ;==>_Txt2Array

[Jos]

Nopt a bug report but Support request.

- moved-