🚀 go-pugleaf

In article <zp3ad7aCG2uYZ14d@christmas.idb.tng.oche.de>, Noel Koethe writes:

> ich wnrde gerne in einem einfachen Textfile doppelte  Zeilen
> l÷schen.  Wie  mache  ich das am besten? Ich benutze GoldED,
> der aber leider keine  solche  Funktion  besitzt.  Hab  hier
> jemand einen Tip oder eine kleines Programm fnr mich?

Folgendes Script "REXX:KillDouble.rexx" nennen und so aufrufen:

RX <eingabefile >ausgabefile KillDouble.rexx

Am besten die Eingabedatei vorher alphabetisch sortieren, damit alle
vielfachen Zeilen direkt hintereinander zu liegen kommen.

/**************************************************************************
 ***   Copyright 03 January 1995 by Marc Heuler, Wuerzburg, Germany	***
 **************************************************************************/

 oldpri pragma('p',-1)
 options results
 if eof(stdin) then exit 0
 oldline readln(stdin)
 do while ~eof(stdin)
  line readln(stdin)
  if line oldline then iterate
  say oldline
  oldline line
 end
 say oldline
 call pragma('p',oldpri)
 exit 0