home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / business / muivideo / arexx / trim.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1997-08-07  |  1010 b   |  58 lines
  1. /*
  2.  * trim.rexx
  3.  *
  4.  * Entfernt unnütze Leerzeichen
  5.  *
  6.  * Copyright by Christoph Kirsch
  7.  * $VER: trim.rexx 1.0 (07.08.1997)
  8.  *
  9.  */
  10.  
  11. address MUIVIDEO.1
  12. options results
  13.  
  14. sleep                     /* Eingaben unterbinden */
  15.  
  16. count                     /* Anzahl der Datensätze */
  17. x = result
  18.  
  19. do i=0 to x-1             /* bei allen Datensätzen ... */
  20.   goto i
  21.  
  22.   get TITEL               /* Titel kürzen */
  23.   t = result
  24.   t =TRIM(t)
  25.   set TITEL t
  26.  
  27.   get DARSTELLER          /* Darsteller kürzen */
  28.   t = result
  29.   t =TRIM(t)
  30.   set DARSTELLER t
  31.  
  32.   get TYP                 /* Typ kürzen */
  33.   t = result
  34.   t =TRIM(t)
  35.   set TYP t
  36.  
  37.   get CASSETTE            /* Cassette kürzen */
  38.   t = result
  39.   t =TRIM(t)
  40.   set CASSETTE t
  41.  
  42.   get TON                 /* Ton kürzen */
  43.   t = result
  44.   t =TRIM(t)
  45.   set TON t
  46.  
  47.  
  48.   get GESCHWINDIGKEIT     /* Geschwindigkeit kürzen */
  49.   t = result
  50.   t =TRIM(t)
  51.   set GESCHWINDIGKEIT t
  52.  
  53.   change                  /* und übernehmen */
  54. end
  55.  
  56. wake                      /* wieder Eingaben erlauben */
  57.  
  58.