home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_File_043_Read.bas < prev    next >
BASIC Source File  |  2003-11-26  |  338b  |  17 lines
  1.  
  2. Image(0).Color = _ColorWhite
  3. x = 20
  4. y = 20 
  5. filename = File.CommonWindowsDirectory + "\\win.ini"
  6.  
  7. fp = File.Open( filename, "r" )
  8.  
  9. While File.IsEof( fp ) = FALSE
  10.     buffer = File.Read( fp )
  11.     buffer = Left( buffer, Len( buffer ) - 1 )   ' \n
  12.     Image(0).Position( x,y ).Text = buffer
  13.     y = y + Font.Size
  14. Wend
  15.  
  16. File.Close( fp )
  17.