home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / business / muivideo / arexx / ddd_ans_ende.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-01-12  |  1.3 KB  |  37 lines
  1. /*
  2.  * ddd_ans_ende.rexx
  3.  *
  4.  * Durchsucht die Datenbank nach Filmen, die mit
  5.  * "Der", "Die", "Das" oder "The" anfangen, und stellt den
  6.  * Filmtitel so um, daß der Artikel am Ende steht.
  7.  * Beispiel: aus  "Der Scheinheilige"
  8.  *           wird "Scheinheilige, Der"
  9.  *
  10.  * $VER: ddd_ans_ende.rexx 1.0 (11.01.1997)
  11.  * Copyright by Christoph Kirsch
  12.  *
  13.  */
  14.  
  15. address MUIVIDEO.1
  16. options results
  17.  
  18. sleep                                                       /* Eingaben unterbinden */
  19.  
  20. count                                                       /* Anzahl der Datensätze */
  21. x = result
  22.  
  23. do i=0 to x-1                                               /* bei allen Datensätzen ... */
  24.   getquick i TITEL                                          /* den Titel auslesen */
  25.   t = result
  26.   wort1 = WORD(t,1)                                         /* das erste Wort des Titels */
  27.   if wort1 = 'Der' | wort1 = 'Die' | wort1 = 'Das' | wort1 = 'The' then do
  28.     nt = RIGHT(t,LENGTH(t)-4) || ', ' || wort1              /* ersten 4 Zeichen abschneiden */
  29.     goto i                                                  /* und Artikel mit Komma anhängen */
  30.     set TITEL nt
  31.     change                                                  /* und übernehmen */
  32.   end
  33. end
  34.  
  35. wake                                                        /* wieder Eingaben erlauben */
  36.  
  37.