blikk info infothek forum galerie sitemap

Substituiren von zwei Strings

 anfang zurueck weiter ende nach oben


von Georg Folie


 

 PROGRAM substi;
 USES
   Crt;


FUNCTION subst (zeile  :            STRING;
                such   :            STRING;
                ersatz :  STRING) : STRING;

VAR
  teil1 : STRING;
  teil2 : STRING;
  i     : INTEGER;
  k     : INTEGER;

BEGIN
  k     := pos(such, zeile);
  teil1 := copy(zeile, 1, (k - 1));
  i     := (Length(zeile) - k);
  teil2 := copy(zeile, (k + Length(such)), i);
  subst := teil1 + ersatz + teil2;
END;

VAR
  zeile, such, ersatz, ergebnis : STRING;
  benein                        : INTEGER;

BEGIN (* des Hauptprogramms *)
  REPEAT
  clrscr;
  WriteLn('Geben Sie den Text ein: '); (*Benutzereingaben*)
  ReadLn(zeile);
  WriteLn('Geben Sie den zu substituierenden Ausdruck ein: ');
  ReadLn(such);
  WriteLn('Geben Sie den Ersatz ein: ');
  ReadLn(ersatz);
  ergebnis := subst (zeile, such, ersatz);
  WriteLn (ergebnis); (*Gibt die substituierte Zeile aus*)
  WriteLn('Moechten Sie das Programm nocheinmal starten: JA(1)   NEIN(2)');
  ReadLn(benein);
  UNTIL benein = 2;   (*wiederholt den Vorgang bis Benutzer 2 eingibt*)
  ReadLn;
END.  (*Ende des Hauptprogramms*)
nach oben