home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / business / muivideo / arexx / statistik_länge.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-06-24  |  1.8 KB  |  61 lines
  1. /*
  2.  * statistik_länge.rexx
  3.  *
  4.  * ARexx-Script für MUIVideo
  5.  * Ermittelt die größte Länge der Felder
  6.  * TITEL, DARSTELLER, KOMMENTAR, TYP,
  7.  * BILD und QUELLE
  8.  *
  9.  * $VER: statistik_länge.rexx V1.0 (24.06.97)
  10.  * Copyright 1995/96 by Christoph Kirsch
  11.  *
  12.  */
  13.  
  14. address 'MUIVIDEO.1'
  15. options results
  16.  
  17. sleep                           /* Eingaben unterbinden */
  18.  
  19. count                           /* Anzahl der Filme holen */
  20. num = result
  21.  
  22. tlen = 0                        /* Länge von TITEL */
  23. dlen = 0                        /* Länge von DARSTELLER */
  24. klen = 0                        /* Länge von KOMMENTAR */
  25. ylen = 0                        /* Länge von TYP */
  26. blen = 0                        /* Länge von BILD */
  27. qlen = 0                        /* Länge von QUELLE */
  28.  
  29. do i=0 to num-1                 /* bei allen Datensätzen ... */
  30.  
  31.   getquick i TITEL              /* Titel lesen */
  32.   t = result
  33.   getquick i DARSTELLER         /* Darsteller lesen */
  34.   d = result
  35.   getquick i KOMMENTAR          /* Kommentar lesen */
  36.   k = result
  37.   getquick i TYP                /* Typ lesen */
  38.   y = result
  39.   getquick i BILD               /* Bild lesen */
  40.   b = result
  41.   getquick i QUELLE             /* Quelle lesen */
  42.   q = result
  43.  
  44.   if length(t) > tlen then tlen = length(t)
  45.   if length(d) > dlen then dlen = length(d)
  46.   if length(k) > klen then klen = length(k)
  47.   if length(y) > ylen then ylen = length(y)
  48.   if length(b) > blen then blen = length(b)
  49.   if length(q) > qlen then qlen = length(q)
  50.  
  51. end
  52.  
  53.                                  /* Text erstellen */
  54.  
  55. text = """" || "Maximal Längen der Felder:|------------------------|Titel = " || tlen || "|Darsteller = " || dlen || "|Kommentar = " || klen || "|Typ = " || ylen || "|Bild = " || blen || "|Quelle = " || qlen || """"
  56.  
  57. wake                             /* Eingaben erlauben */
  58.  
  59. requestnotify text               /* Requester mit Ergebnis anzeigen */
  60.  
  61.