' 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