home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / rxmir13.zip / cnvnam.cmd < prev    next >
OS/2 REXX Batch file  |  1998-11-07  |  669b  |  19 lines
  1. /* REXX script to convert rfc filename to have/not have zeros in it's number */
  2. parse arg nam func .
  3. nam = filespec("NAME",nam)
  4. if length(nam) < 4 then return
  5. if func="pack" then do
  6.     dotpos = pos(".",nam)
  7.     if dotpos = 0 then dotpos = length(nam)
  8.     nums = substr(nam,4,dotpos-4)
  9.     if length(nums)<4 then nums = copies("0", 4-length(nums))||nums
  10.     push substr(nam,1,3)||nums||substr(nam,dotpos)
  11. end
  12. if func="unpack" then do
  13.     dotpos = pos(".",nam)
  14.     if dotpos = 0 then dotpos = length(nam)
  15.     nums = substr(nam,4,dotpos-4)
  16.     do while left(nums,1)="0"; nums = substr(nums,2); end
  17.     push substr(nam,1,3)||nums||substr(nam,dotpos)
  18. end
  19.