home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch20 / statclss / process.scr < prev    next >
Encoding:
Text File  |  1996-05-12  |  406 b   |  22 lines
  1. Sub Main()
  2.  
  3. Set FS = CreateObject("Scripting.FileSystemObject")
  4. Set InStream = FS.OpenTextFile("c:\MyData.dat", 1, False, False)
  5. Stat.Clear
  6.  
  7. While InStream.AtEndOfStream = False
  8.     DataValue = InStream.ReadLine
  9.     Add DataValue
  10. Wend
  11.  
  12. Set InStream = Nothing
  13. Set FS = Nothing
  14.  
  15. show "Set Count " & Count
  16. Show "Average   " & Average
  17. Show "Min Value " &  Min
  18. Show "Max Value " &  Max
  19.  
  20. End Sub
  21.  
  22.