home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / CMCD0404.ISO / Software / Demo / PCDUO / data1.cab / Script_Samples / FILEIO.SCP < prev    next >
Encoding:
Text File  |  2003-11-28  |  1.5 KB  |  58 lines
  1. // FILEIO.SCP - File read and write example Script
  2. // Copyright (c) 1999, Vector Networks Limited
  3. // All Rights Reserved
  4. //
  5. // Revision History:
  6. //  0.0 12-Oct-99 DB  - Created.
  7.  
  8. // Script requirements:-
  9. //  Predefined variables:
  10. //    (None)
  11. //
  12. //  The Script opens a test file for write, writes some data, closes 
  13. //  the file, opens it again for read and displays the file contents.
  14.  
  15. Function Main ()
  16. Dim FileName, Handle, Line, LineNo
  17.  
  18. FileName = "C:\TEMP\TEST.TMP"
  19. Line = "1234567890123456789012345678901234567890"
  20. LineNo = 0
  21.  
  22. If FileExists (FileName) then
  23.     Handle = Open (FileName, FILE_OVERWRITE)
  24. Else
  25.     Handle = Open (FileName, FILE_CREATE) 
  26. Endif
  27.  
  28. If Handle != 0 Then
  29.     Print "File ", FileName, " opened for write. Handle = ", Handle
  30.     // Write Handle, FileName, " opened for write. Handle = ", Handle
  31.     WriteLine Handle, FileName, " opened for write. Handle = ", Handle
  32.     WriteLine Handle
  33.     WriteLine Handle, Line
  34.     WriteLine Handle, Line
  35.     Close (Handle)
  36.     Print "File ", FileName, " closed."
  37. Endif
  38.  
  39. // FileName = "C:\AUTOEXEC.BAT"
  40.  
  41. Handle = Open (FileName, FILE_READ)
  42.  
  43. If Handle != 0 Then
  44.     Print "File ", FileName, " opened for read. Handle = ", Handle
  45.     LineNo = 0
  46.  
  47.     Do Until Eof (Handle)
  48.     //    Line = Read (Handle, 32)
  49.         Line = ReadLine (Handle)
  50.         LineNo = LineNo + 1
  51.         Print "Line ", LineNo, ": ", Line
  52.     Loop
  53.     Close (Handle)
  54.     Print "File ", FileName, " closed."
  55. EndIf
  56. End Function
  57.  
  58.