## How to open a file

    ' Gambas class file

    PUBLIC SUB Button1_Click()
      myLine AS String
      myFile AS File
      nb AS Integer
      X AS Integer
      nb = 0

      'test.txt must exist!
      OPEN "test.txt" FOR READ AS myFile
      WHILE NOT Eof(myFile)
       LINE INPUT #myFile, myLine
       TextLabel1.Text= TextLabel1.Text & "<br>" & myLine
      WEND
      CLOSE myFile
    END

-- JochenGeorges - 28 Dec 2004