WriteFile/ReadFile issue

[CurryWurst]

At the moment I'm testing a new script and I often need to write and read files in order to get saved data.
I always get the content of the file + a blank line in the case I listed below. Therefore I'm worried about the Read- and WriteFile function ...

WriteFile(DatabaseFolder + 'LastBackup.txt', FormatDate('dd/mm/yy'));

// content should be a date like 21-04-08
LastBackup:= ReadFile(DatabaseFolder + 'LastBackup.txt');

// will show the date and a blank line ... confusing
WriteLn(LastBackup);


 I also tried to avoid this problem:

LastBackup:= GetPiece(ReadFile(DatabaseFolder + 'LastBackup.txt'), #13#10, 0);

This solution works fine ... but I'm wondering why none has the same problem. Is there any known bug or is the blank line shalled?

Greetings
Markus

[JFK]

Im not sure, cause i haven't experimented a lot with writefile.
But in my lottery script i use readfile and xsplit to read lines from a file (file not made with writefile, btw). It always picks up an extra line at the end of the file which is empty.

Anyway, my guess is that it's in the readfile procedure.. not sure if you can call it a bug.

[CurryWurst]

I'm not sure, cause i haven't experimented a lot with writefile.
But in my lottery script i use readfile and xsplit to read lines from a file (file not made with writefile, btw). It always picks up an extra line at the end of the file which is empty.

Anyway, my guess is that it's in the readfile procedure.. not sure if you can call it a bug.

I also know the problem with XSplit in combination with ReadFile and I think you're right. The blank line is caused rather to the ReadFile function than to the WriteFile function and XSplit is more or less irrelevant in this relation.

I'd like to know whether there is also a solution to avoid the blank line if you read a file and split it with XSplit.  I don't have any idea yet how to fix that problem ...

Thanks for suggestions 

[JFK]

mweh, there is always a solution.

Code: [Select]

SumArray := xplit(readfile(SumFile), #13#10)
SetArrayLenght(SumArray, (GetArrayLenght(SumArray)-1));

there could always be a more elegant one, ofcourse 

edit: and look here my NUMBER ONE scripting-typo : lenght... TWICE!... im leaving it to punish myself 

[CurryWurst]

mweh, there is always a solution.

Code: [Select]

SumArray := xplit(readfile(SumFile), #13#10)
SetArrayLenght(SumArray, (GetArrayLenght(SumArray)-1));



there could always be a more elegant one, ofcourse 

edit: and look here my NUMBER ONE scripting-typo : lenght... TWICE!... im leaving it to punish myself 

*still laughing about your mistake *

Apart from fault, your solution is simple and works fine. God job JFK.

[JFK]

*still laughing about your mistake *

in every script i make, im gonna just MAKE two extra procedures called 'getArrayLenght' and 'setArrayLenght'... at least it WORKS then :p