[Gambas-user] EOF problem

[Benoît Minisini]

> Hi!
> 
> I'm having a problem reliably reading a text file.
> 
> I am using:
> 
> Panasonic CF-51 Toughbook
> Ubuntu 9.04 , Kernel 2.6.28-18
> Gambas 2.8, QT
> 
> Below is the code for a test program which demonstrates the problem.
> This is a simple form, with one button, and one label. The only code is
> the Button1_click event shown.  The file "testdat.txt" contained in
> Fname is a text file with one short line of text, created with GEDIT.
> 
> One would expect that clicking Button1 would open the file, read the
> line of text, and place it into label1.  Indeed, this is exactly what
> happens roughly 4 times out of 5.  However, sometimes the file comes up
> empty, with an immediate EOF.  When the program is first started from
> the IDE, if it works correctly the first time, it will do so every time
> the button is clicked.  However, if it fails (indicates EOF) the first
> time, it will fail everytime the button is clicked.  Stopping the
> program and restarting it will roll the dice anew.  There does not seem
> to be any pattern to the failure.  It might happen twice in a row, it
> might not happen for 10 starts.
> 
> Does anybody have any ideas?  Is this an Ubuntu issue?
> 
> Thanks!
> 
> Ed K.
> 
> 
> PUBLIC SUB Button1_Click()
> 
>    DIM tfile AS File
>    DIM Fname AS String
> 
>    Fname = "/home/us/Documents/testdat.txt"
> 
>    tfile = OPEN Fname FOR READ
> 
>    label1.Text = ""
> 
>    IF Eof(tfile) THEN
>       label1.Text = "EOF"
>    ELSE
>       LINE INPUT #tfile, label1.Text
>    END IF
> 
>    CLOSE #tfile
> 
> END
> 

I cannot reproduce the problem with the same code. Does it occur whatever the 
contents of 'testdat.txt' is? Can you try the latest version of Gambas 2?

-- 
Benoît Minisini