home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / ADM144.lha / ADM / ARexx / DisplayAddress.ttx < prev    next >
Encoding:
Text File  |  1994-07-26  |  1.5 KB  |  56 lines
  1. /* $VER InsertAddress.ttx 1.1 (11.02.93)
  2.  
  3.    Makro für TurboText.
  4.  
  5.    Fügt die zum unter dem Cursor befindlichen Nachnamen zugehörige
  6.    Adresse in den Text ein. Fragt nach, ob Adresse eingefügt werden
  7.    soll - wenn nicht, dann wird weitergesucht.
  8.  
  9.    Es könnten auch Patterns benutzt werden, doch leider liefert die
  10.    GETWORD-Funktion von TTX keine Patterns wie #? zurück.
  11.  
  12.    Written by Jan Geissler.
  13.                                                                  */
  14.  
  15.  
  16. OPTIONS RESULTS
  17.  
  18. GETWORD                      /*    Wort unter Cursor holen */
  19. WORT = RESULT
  20.  
  21. ADDRESS 'ADM.1'
  22.  
  23. fst = 1                      /* Anfangsposition = 1 (= erste Adresse) */
  24. res = 0
  25.  
  26. DO FOREVER                   /* Endlosschleife */
  27.  
  28.    ADM.LASTNAME = WORT
  29.    SEARCH fst ADM            /* Eintrag suchen */
  30.    res = RESULT
  31.  
  32.    IF res >-1 THEN DO        /* Rückgabewert = Nummer der gefundenen
  33.                                 Adresse */
  34.  
  35.       GETADDRESS RESAD       /* Adresse holen in Stemvariable RESAD   */
  36.  
  37.            DISPLAY
  38.  
  39.            EXIT                /* ... und Programm verlassen          */
  40.    END
  41.    ELSE                      /* Fehler aufgetreten */
  42.  
  43.       ADDRESS
  44.       IF res=-2 THEN msg="AdressSpeicher_leer!"
  45.       IF res=-3 THEN msg="Nicht_genug_Speicher!"
  46.       IF res=-4 THEN msg="Aufruf_v.SEARCH_falsch!"
  47.       IF res=-5 THEN msg="Interner_Fehler_in_Search"
  48.       IF res=-6 THEN msg="Kein_Suchparam.in_Stem"
  49.       IF res=-7 THEN msg="SearchPos_ungültig!"
  50.       REQUESTBOOL "Fehler!" msg
  51.  
  52.       EXIT
  53.  
  54.    END /* IF */
  55. END /* DO */
  56.