home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / scripti.lha / 3-DEE / Scripti / Renamers / RenameToAnim.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-05-19  |  1.3 KB  |  57 lines
  1. /*
  2. ----------------------------------------------------------------------------
  3. Name To Anim    Sequence
  4. Filenames with the extension .1, .10, .100, .1000
  5.     and with the extra extension of .image
  6. Will be renamed with the extension: .0001, .0010, .0100, .1000
  7.  
  8. Host address: COMMAND
  9. Written by Jan Van Overbeke, 3-DEE, ©1993.
  10. Read the AREXX-Scripti doc, for more info about operation and rights!
  11. ----------------------------------------------------------------------------
  12. */
  13.  
  14. arg source
  15. dest=source
  16. if ~exists(dest)|source='' then do
  17.     say 'Unable to find file !!'
  18.     say 'Please come again.'
  19.     say ''
  20.     exit
  21.     end
  22.  
  23. extonepos=lastpos('.IMAGE',dest)
  24. if extonepos=length(dest)-5 then do 
  25.     dest=delstr(dest,extonepos)
  26.     say 'Renaming: 'source
  27.     say 'as: 'dest
  28.     say ''
  29.     doscommand='rename 'source' as 'dest
  30.     address COMMAND doscommand
  31.     exit
  32.     end
  33.     
  34. exttwopos = lastpos('.',dest)
  35. if ~exttwopos<length(dest)-5) then do
  36.     extnumber=right(dest,length(dest)-exttwopos)
  37.     if (extnumber<0)|(extnumber>9999) then do
  38.         say 'Invalid filename: Wrong extension !!'
  39.         say 'See Ya...'
  40.         say ''
  41.         exit
  42.         end
  43.     dest=delstr(dest,exttwopos+1)||extnumber
  44.     say 'Renaming: 'source
  45.     say 'as: 'dest
  46.     say ''
  47.     doscommand='rename >NIL: 'source' as 'dest
  48.     address COMMAND doscommand
  49.     exit
  50.     end
  51.  
  52. say 'Extension too large !!!!'
  53. say 'Cannot rename filenames with extensions longer than 4 !'
  54. say 'See Ya...'
  55. say ''
  56. exit
  57.