home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 164.lha / ARexx / Example_ARexx / join.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1988-04-28  |  315 b   |  15 lines
  1. /* join -- a 'front end' for join. Fixes a problem with join. */
  2. parse arg x
  3. temp = 'arexxtempfile'
  4. do i=1 to (words(x)-1)
  5.   if word(x,i) = word(x,words(x)) then do
  6.     oops = word(x,words(x))
  7.     x = delword(x,words(x)) || temp
  8.     'c:join' x
  9.     'copy ' temp ' ' oops
  10.     'del' temp
  11.     exit
  12.   end
  13. end
  14. 'c:join' x
  15.