home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / FileRead.au3 < prev    next >
Encoding:
Text File  |  2004-09-22  |  343 b   |  17 lines
  1. $file = FileOpen("test.txt", 0)
  2.  
  3. ; Check if file opened for reading OK
  4. If $file = -1 Then
  5.     MsgBox(0, "Error", "Unable to open file.")
  6.     Exit
  7. EndIf
  8.  
  9. ; Read in 1 character at a time until the EOF is reached
  10. While 1
  11.     $chars = FileRead($file, 1)
  12.     If @error = -1 Then ExitLoop
  13.     MsgBox(0, "Char read:", $chars)
  14. Wend
  15.  
  16. FileClose($file)
  17.