home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / steward8.zip / LowerCase.cmd < prev    next >
OS/2 REXX Batch file  |  1996-04-19  |  966b  |  39 lines
  1. /* Lowercase a file */
  2.  
  3. /* variable declarations */
  4.  
  5. uppercase = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  6. lowercase = 'abcdefghijklmnopqrstuvwxyz'
  7.  
  8. call RxFuncAdd 'SysTempFileName', 'RexxUtil', 'SysTempFileName'
  9. call RxFuncAdd 'SysFileDelete', 'RexxUtil', 'SysFileDelete'
  10.  
  11. parse arg FileName
  12.  
  13. /* create a temp file for the outgoing message */
  14. OutFile = SysTempFileName('lc?????.tmp', '?');
  15. rc = stream(OutFile, 'C', 'OPEN WRITE')  /* open the file for writing */
  16. if rc <> 'READY:' then do
  17.   say 'Cannot create temporary file.'
  18.   exit
  19.   end
  20.  
  21. rc = stream(FileName, 'c', 'open read')
  22.  
  23. do while lines(FileName) <> 0         /* until end of file */
  24.   Line = linein(FileName)             /* get a line of the file */
  25.   Line = translate(Line, lowercase, uppercase)
  26.   rc = lineout(OutFile, Line, )
  27.   end
  28.  
  29. rc = stream(FileName, 'c', 'close')
  30. rc = stream(OutFile, 'c', 'close')
  31.  
  32. rc = SysFileDelete(FileName)
  33.  
  34. 'rename' OutFile FileName
  35.  
  36. say 'Done.'
  37.  
  38.  
  39.