home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 13
/
AACD13.ISO
/
AACD
/
Utilities
/
CompareTextsCED
/
Deutsch
/
CompareTextsStart.ced
< prev
Wrap
Text File
|
2000-08-16
|
2KB
|
65 lines
/* $VER: CompareTextsStart.ced 1.0 (16-Aug-2000) by A.Greve
**
** Vergleicht zeilenweise ab den aktuellen Zeilen 2 Texte
** in den ersten beiden Views. Anzeige der ersten unter-
** schiedlichen Stelle im ersten View. Programmabbruch mit
** beliebiger Taste.
**
** Benötigt CygnusEd (getestet mit v4.20) und optional
** die rexxreqtools.library.
** Die Variablen "script" und "edname" müssen ggf. an
** die lokalen Pfade angepasst werden.
**
** Bei vorhandener rexxreqtools.library :
** Wenn das Script nicht von CED gestartet wurde, werden
** die 2 Dateien per ASL-Requester abgefragt und danach
** versucht, CED mit beiden Dateien zu starten. Nach dem
** Start von CED wird das Script "script" (der eigentliche
** Vergleicher) auf der Funktionstaste installiert, die
** durch die Variable "fkey" definiert wird.
*/
script = 'CED:cedscripts/CompareTexts.ced'
edname = 'CED:Ed -s'
fkey = 1
/**********************************************************/
lf = '0a'x
rqt1 = ' Datei nicht gewählt,'lf'Programmabbruch !'
rqt2 = 'Meldung...'
rqt3 = ' Datei auswählen'
IF (fkey < 1) | (fkey > 10) THEN fkey = 1
IF ADDRESS() = 'REXX' THEN DO /* Gestartet von extern ? */
IF SHOW(p,'CYGNUSED') THEN DO /* Läuft CEd ? */
ADDRESS 'CYGNUSED' /* Ja -> adressieren */
CEDTOFRONT /* und nach vorne */
END
ELSE DO /* CEd läuft noch nicht */
IF ~SHOW('L','rexxreqtools.library') THEN DO /* RexxReqTools einbinden */
IF ~ADDLIB('rexxreqtools.library',10,-30,0) THEN DO /* Library nicht gefunden */
SAY 'Kann die <rexxreqtools.library> nicht öffnen!'
EXIT(0)
END
END
file1 = RTFILEREQUEST(,,'Erste'rqt3)
IF file1 = '' THEN DO /* Datei 1 nicht ausgewählt */
CALL RTEZREQUEST('Erste'rqt1,,rqt2)
EXIT(0)
END
file2 = RTFILEREQUEST(,,'Zweite'rqt3)
IF file2 = '' THEN DO /* Datei 2 nicht ausgewählt */
CALL RTEZREQUEST('Zweite'rqt1,,rqt2)
EXIT(0)
END
ADDRESS COMMAND edname' 'file1' 'file2 /* CED lädt beide Dateien */
ADDRESS 'CYGNUSED' /* CED adressieren */
"INSTALL DOS/AREXX COMMAND" fkey script /* Programm auf F.. legen */
PREVIOUS VIEW
EXIT(0)
END
END