home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / misc_arexx / tabstrip.rexx < prev    next >
OS/2 REXX Batch file  |  1996-10-13  |  220b  |  25 lines
  1. /* */
  2.  
  3. A = '                Fini'
  4.  
  5. Say A
  6.  
  7. A = TABstrip(A)
  8.  
  9. say A
  10.  
  11.  
  12. Exit
  13.  
  14. TABstrip: Procedure
  15.     Parse Arg W
  16.     B = 0
  17.     do i = 1 to length(W)
  18.     
  19.         if left(W,i-B) = '    ' then do
  20.         
  21.             W = right(W,Length(W)-1)
  22.             B = B + 1
  23.         end
  24.     end
  25. return W