Read text file

built by teacher Quan

  1. 1DECLARE Line : STRING
  2. 2DECLARE Count : INTEGER
  3. 3Count ← 0
  4. 4OPENFILE "Data.txt" FOR READ
  5. 5WHILE NOT EOF("Data.txt")
  6. 6 READFILE "Data.txt", Line
  7. 7 Count ← Count + 1
  8. 8ENDWHILE
  9. 9CLOSEFILE "Data.txt"
  10. 10OUTPUT Count