home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Utilities / CompareTextsCED / Deutsch / CompareTextsStart.ced < prev   
Text File  |  2000-08-16  |  2KB  |  65 lines

  1. /* $VER: CompareTextsStart.ced 1.0 (16-Aug-2000) by A.Greve
  2. **
  3. ** Vergleicht zeilenweise ab den aktuellen Zeilen 2 Texte
  4. ** in den ersten beiden Views. Anzeige der ersten unter-
  5. ** schiedlichen Stelle im ersten View. Programmabbruch mit
  6. ** beliebiger Taste.
  7. **
  8. ** Benötigt CygnusEd (getestet mit v4.20) und optional
  9. ** die rexxreqtools.library.
  10. ** Die Variablen "script" und "edname" müssen ggf. an
  11. ** die lokalen Pfade angepasst werden.
  12. **
  13. ** Bei vorhandener rexxreqtools.library :
  14. ** Wenn das Script nicht von CED gestartet wurde, werden
  15. ** die 2 Dateien per ASL-Requester abgefragt und danach
  16. ** versucht, CED mit beiden Dateien zu starten. Nach dem
  17. ** Start von CED wird das Script "script" (der eigentliche
  18. ** Vergleicher) auf der Funktionstaste installiert, die
  19. ** durch die Variable "fkey" definiert wird.
  20. */
  21.  
  22. script = 'CED:cedscripts/CompareTexts.ced'
  23. edname = 'CED:Ed -s'
  24. fkey   = 1
  25.  
  26. /**********************************************************/
  27.  
  28. lf   = '0a'x
  29. rqt1 = ' Datei nicht gewählt,'lf'Programmabbruch !'
  30. rqt2 = 'Meldung...'
  31. rqt3 = ' Datei auswählen'
  32.  
  33. IF (fkey < 1) | (fkey > 10) THEN fkey = 1
  34.  
  35. IF ADDRESS() = 'REXX' THEN DO                                    /* Gestartet von extern ?   */
  36.     IF SHOW(p,'CYGNUSED') THEN DO                                /* Läuft CEd ?              */
  37.         ADDRESS 'CYGNUSED'                                        /* Ja -> adressieren        */
  38.         CEDTOFRONT                                                /*       und nach vorne     */
  39.     END
  40.     ELSE DO                                                        /* CEd läuft noch nicht     */
  41.         IF ~SHOW('L','rexxreqtools.library') THEN DO            /* RexxReqTools einbinden   */
  42.            IF ~ADDLIB('rexxreqtools.library',10,-30,0) THEN DO    /* Library nicht gefunden   */
  43.               SAY 'Kann die <rexxreqtools.library> nicht öffnen!'
  44.               EXIT(0)
  45.            END
  46.         END
  47.         file1 = RTFILEREQUEST(,,'Erste'rqt3)
  48.         IF file1 = '' THEN DO                                    /* Datei 1 nicht ausgewählt */
  49.             CALL RTEZREQUEST('Erste'rqt1,,rqt2)
  50.             EXIT(0)
  51.         END
  52.         file2 = RTFILEREQUEST(,,'Zweite'rqt3)
  53.         IF file2 = '' THEN DO                                    /* Datei 2 nicht ausgewählt */
  54.             CALL RTEZREQUEST('Zweite'rqt1,,rqt2)
  55.             EXIT(0)
  56.         END
  57.         ADDRESS COMMAND edname' 'file1' 'file2                    /* CED lädt beide Dateien   */
  58.         ADDRESS 'CYGNUSED'                                        /* CED adressieren          */
  59.         "INSTALL DOS/AREXX COMMAND" fkey script                    /* Programm auf F.. legen   */
  60.         PREVIOUS VIEW
  61.         EXIT(0)
  62.     END
  63. END
  64.  
  65.