home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Utilities / CompareTextsCED / Deutsch / CompareTexts.ced next >
Text File  |  2000-08-16  |  2KB  |  66 lines
  1. /* $VER: CompareTexts.ced 1.1 (16-Aug-2000) by A.Greve
  2. **
  3. ** Beschreibung siehe CompareTextsStart.ced
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. STATUS PIXELTOPEDGE
  9. actview = RESULT
  10. DO FOREVER                                                        /* 1. View suchen...        */
  11.     NEXT VIEW
  12.     STATUS PIXELTOPEDGE
  13.     newview = RESULT
  14.     IF newview <= actview THEN LEAVE                            /* ...gefunden !            */
  15. END
  16. STATUS NUMLINES                                                    /* Zeilenzahl beider...     */
  17. lines1 = RESULT
  18. NEXT VIEW
  19. STATUS NUMLINES                                                    /* ...Dateien ermitteln     */
  20. lines2 = RESULT
  21. PREVIOUS VIEW
  22.  
  23. DO FOREVER
  24.     GETLINE
  25.     theline1 = RESULT
  26.     NEXT VIEW
  27.     GETLINE
  28.     theline2 = RESULT
  29.     IF theline1 == theline2 THEN DO                                /* Beide Zeilen gleich ?    */
  30.         STATUS CURSORLINE
  31.         IF RESULT = lines2 THEN DO                                /* Ende 2. Datei ?          */
  32.             OKAY1 'Ende von Datei 2 erreicht!'
  33.             EXIT(0)
  34.         END
  35.         DOWN
  36.         PREVIOUS VIEW
  37.         STATUS CURSORLINE
  38.         IF RESULT = lines1 THEN DO                                /* Ende 1. Datei ?          */
  39.             OKAY1 'Ende von Datei 1 erreicht!'
  40.             EXIT(0)
  41.         END
  42.         DOWN
  43.     END
  44.     ELSE DO                                                        /* Beide Zeilen ungleich    */
  45.         lastpos = MIN(LENGTH(theline1),LENGTH(theline2))        /* Länge der kürzeren Zeile */
  46.         DO i = 1 TO lastpos                                        /* Zeichenweise Vergleich   */
  47.             IF SUBSTR(theline1,i,1) ~= SUBSTR(theline2,i,1) THEN
  48.                 LEAVE                                            /* Ungleich -> DO...TO-Ende */
  49.         END
  50.         CEDTOFRONT
  51.         PREVIOUS VIEW                                            /* Cursor in 1. Datei auf...*/
  52.         STATUS CURSORLINE
  53.         linenum = RESULT + 1
  54.         LL linenum i                                            /* ...differierende Spalte  */
  55.         EXIT(0)
  56.     END
  57.     LASTKEY
  58.     IF (RESULT ~= -1) & (WORD(RESULT, 1) < 128) THEN DO            /* Tastendruck -> Ende      */
  59.         CEDTOFRONT
  60.         PREVIOUS VIEW
  61.         DM '*** Anwender-Abbruch ***'
  62.         EXIT(0)
  63.     END
  64. END
  65.  
  66.